两天端午放假，居然休息成感冒了，难受啊！鼻涕一把一把的！今天还是分享下VBA吧。 在实际生活中，我们要向别人展示一些数据，但只希望对方看Excel表格就够了，可有的人为了方便自己会选择打印整张表格带走！ 为了数据安全起见，教大家一个限制EXCEL工作簿打印的代码：   Private Sub Workbook_BeforePrint(Cancel As Boolean)    MsgBox "此乃保密数据，

在windows的资源管理器中输入文件路径通常都能打开指定路径的程序？ 那么在excel里也能实现这样的效果吗？ 可以！宏代码伺候：   Sub 判断工作簿是否存在()       ‘ 宏由 Kael.Z 录制，时间: 2011/6/3   Dim str As String    str = A

好几天没写关于VBA之类的东西了，放松也够了，今天在家休息就来写写代码吧。 平时大家删除工作簿里的工作表都是选中该工作表，然后在菜单中选择删除，但是我们本着折腾的理念，今天就来写段宏吧！ 上菜：   Sub 删除工作表()    ‘    ‘ 删除工作表 Macro    ‘ 宏由 Kael.Z 录制，时间: 2011/5

废话不多说直接上代码： Sub Showsaveinfo()    Dim savetime As String    savetime = ActiveWorkbook.BuiltinDocumentProperties("last save time").Value    If savetime = &q

前天写了一篇关于excel画图的文章，其实实质就是记录单元格的修改并标记。 但是你会说了，我不想整个表的区域修改信息都被标记，只想指定某个区域内标记之。 这个不是没办法，分享个代码尝试之：   Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Dim sourcerange As Range  &nb

晚上闲着无聊，打开Excel折腾起来。 本来我的思路设计一个VBA，为了实现标记（加底纹）修改过的单元格以便区分。 这其中就得利用change事件来实现了。 代码很简单的，实质的就一句话：   Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Target.Interior.ColorIndex = 7 &nb

今天给大家分享个excel表激活后自动排序的方法。 名称 长 宽 高 A 102 124 21 Z 106 128 25 X 105 127 24 D 103 125 22 C 104 126 23 如何实现将上图自动排序呢？名称所在单元格为A1，实现代码如下：     Private Sub Worksheet_Activate()    Range("A2:A6").Sort key1:=Range(&