VBA常用程序——每个表都应该有

Sub 复制位图() Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap End Sub

Sub 复制打印() Range("Print_Area").CopyPicture Appearance:=xlScreen, Format:=xlBitmap End Sub

Sub 清除图片() For Each shp In ActiveSheet.Shapes If shp.Type = 13 Then shp.Delete Next shp End Sub

Sub 取消筛选(Optional ob) '用于避免筛选导致清理残留 If IsMissing(ob) Then Set ob = ActiveSheet.Cells ob.AutoFilter Field:=1 ob.AutoFilter End Sub

Function 路径文件全名(Optional path) '包括拓展名 '空参数等同ActiveWorkbook.Name If IsMissing(path) Then path = ActiveWorkbook.FullName 路径文件全名 = Mid(path, InStrRev(path, "") + 1, Len(path)) End Function

Function 路径文件名(Optional path) '不包括拓展名 '也可以用于去掉全名的拓展名 If IsMissing(path) Then path = ActiveWorkbook.FullName 路径文件名 = Mid(path, InStrRev(path, "") + 1, InStrRev(path, ".") - InStrRev(path, "") - 1) End Function

Function 上级文件夹(Optional path) '不包括最后的,如需要请加 &"" '也可以用于获取路径文件夹名,空参数等同ActiveWorkbook.path If IsMissing(path) Then path = ActiveWorkbook.FullName 上级文件夹 = Left(path, InStrRev(path, "") - 1) End Function

Sub 关闭功能() '关闭一些功能加快 VBA 宏的运行速度 ' On Error Resume Next '出错继续运行 ' Application.DisplayAlerts = False '禁用警告信息 ' Application.DisplayAlerts = True '启用警告信息 Application.ScreenUpdating = False '禁用屏幕更新 Application.DisplayStatusBar = False '禁用状态栏 Application.Calculation = xlCalculationManual '切换到手动计算-4135,如果中途需要计算时用Calculate Application.EnableEvents = False '禁用事件 ActiveSheet.DisplayPageBreaks = False '禁用本表分页符 End Sub

Sub 开启功能() '开启关闭的功能,调试中断可运行开启功能 Application.ScreenUpdating = True '启用屏幕更新 Application.DisplayStatusBar = True '启用状态栏 Application.StatusBar = False '恢复状态栏 Application.Calculation = xlCalculationAutomatic '切换到自动计算-4105 Application.EnableEvents = True '启用事件 'ActiveSheet.DisplayPageBreaks = displayPageBreaksState '启用本表分页符 End Sub

Function 立即窗口清屏() VBA.SendKeys "^{g}" VBA.SendKeys "^{a}" VBA.SendKeys "{del}" End Function

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏程序员宝库

Chrome 调试技巧

想必大家都在用console.log在控制台输出点东西,其实console还有其它的方法:

2012
来自专栏大内老A

Model验证系统运行机制是如何实现的?

在前面三篇文章(《ModelValidator》、《ModelValidatorProvider》和《ModelValidatorProviders》)中我们详...

18610
来自专栏Android知识点总结

Android基于TCP的五子棋双人对战实现

1212
来自专栏horstxu的博客

其实你不一定懂csv文件格式

最近业务中涉及到了csv文件的读写,本以为是非常简单的一件事情。结果却踩了几个坑。想象一下下面这段写csv文件的代码有什么问题?

51911
来自专栏web前端教室

[每周日-先行者课堂笔记] -- react版的倒计时实现

image.png 各位同学们大家好,今天是4月9号周日,今天我们继续来做“倒计时”这个前端组件。之前我们是使用原生js来实现的,其实更多的只是实现了功能。 这...

2937
来自专栏郭少华

(第三季)Vue2.0-选项

扩展标签已经做好了,这时我们要在挂载时传递一个数字过去,我们就用到了propsData。 我们用propsData三步解决传值: 1、在全局扩展里加入pro...

712
来自专栏云瓣

深入Redux架构

关于redux 之前写了一篇通过一个demo了解Redux,但对于redux的核心方法没有进行深入剖析,在此重新总结学习,完整的代码看这里。(参考了React ...

2746
来自专栏进步博客

解决CSV文件中长数字以科学记数格式保存问题

922
来自专栏chafezhou

程序员探案之被吃掉的串口数据

1704
来自专栏前端达人

2018年最全面的前端面试题都在这里了

意义:根据内容的结构化(内容语义化),选择合适的标签(代码语义化)便于开发者阅读和写出更优雅的代码的同时让浏览器的爬虫和机器很好地解析。 注意: 1.尽可能少的...

3.3K5

扫码关注云+社区