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 条评论
登录 后参与评论

相关文章

来自专栏GreenLeaves

Linq基础知识小记四之操作EF

1、EF简介 EF之于Linq,EF是一种包含Linq功能对象关系映射技术.EF对数据库架构和我们查询的类型进行更好的解耦,使用EF,我们查询的对象不再是C#类...

1706
来自专栏HT

基于HTML5 Canvas 点击添加 2D 3D 机柜模型

今天又返回好好地消化了一下我们的数据容器 DataModel,这里给新手做一个典型的数据模型事件处理的例子作为参考。这个例子看起来很简单,实际上结合了数据模型中...

2008
来自专栏林德熙的博客

win10 uwp 简单MasterDetail UWP 导航List点击后退按钮页面更改大小修改显示修改我代码源码左右的列表和内容的相互操作

本文主要讲实现一个简单的界面,可以在窗口比较大显示列表和内容,窗口比较小时候显示列表或内容。也就是在窗口比较小的时候,点击列表会显示内容,点击返回会显示列表。

480
来自专栏大内老A

通过扩展让ASP.NET Web API支持JSONP

同源策略(Same Origin Policy)的存在导致了“源”自A的脚本只能操作“同源”页面的DOM,“跨源”操作来源于B的页面将会被拒绝。同源策略以及跨域...

1727
来自专栏跟着阿笨一起玩NET

在Entity Framework中重用现有的数据库连接字符串

Entity Framework使用的连接字符串与ADO.NET是不同的,见下图:

412
来自专栏Petrichor的专栏

nano:基本操作

994
来自专栏Linux驱动

9.按键之使用异步通知(详解)

之前学的应用层都是: 1)查询方式:一直读 2)中断方式.同样一直读,直到中断进程唤醒 3)poll机制:一直在poll函数中睡眠,一定时间读一次 以上3种,我...

1869
来自专栏施炯的IoT开发专栏

在Windows Mobile的控制台应用中使用Notification

    今天在论坛上看到有朋友问如何在Windows Mobile的控制台应用中使用Microsoft.WindowsCE.Forms.Notification...

3065
来自专栏菩提树下的杨过

FluorineFx:基于RSO(远程共享对象)的文本聊天室

在前一篇“FluorineFx:远程共享对象(Remote SharedObjects)”里,已经大致知道了在FluorineFX中如何使用RSO,这一篇将利用...

2188
来自专栏IT开发技术与工作效率

VBA按行读取csv文件与分割合并

973

扫码关注云+社区