VBA教程、VBA学习、VBA编程、VBA视频、VBA控件 zh-CNiwms.net <![CDATA[VBA教程、VBA学习、VBA编程、VBA视频、VBA控件]]> pic/logo.gif http://www.51vba.com <![CDATA[VBA系列公开课报名中(免费)]]> Sun, 11 Dec 2011 20:19:45 GMT <![CDATA[rg.Parent.Name]]> Thu, 29 Sep 2011 12:40:51 GMT <![CDATA[orkbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)]]> Thu, 29 Sep 2011 12:39:34 GMT <![CDATA[Workbook_SheetDeactivate(ByVal Sh As Object)]]> Thu, 29 Sep 2011 12:38:14 GMT <![CDATA[Cancel As Boolean（Workbook_BeforeClose）]]> Thu, 29 Sep 2011 12:36:10 GMT   'Cancel = True
End Sub
如上面的程序是工作表关闭之前事件，Cancel是参数，这的意思是让这个事件是否进行下去，在关闭事件中，如果Cancel = True可以让工作簿无法通过关闭按钮关闭
...]]> <![CDATA[Workbook_Open工作簿打开事件]]> Thu, 29 Sep 2011 12:34:55 GMT   UserForm1.Show
End Sub
工作簿打开时显示窗体1...]]> <![CDATA[Target.Address]]> Thu, 29 Sep 2011 12:33:45 GMT Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
MsgBox Target.Address
End Sub...]]> <![CDATA[Worksheet_Deactivate离开工作表]]> Thu, 29 Sep 2011 12:32:47 GMT <![CDATA[Worksheet_Calculate事件判断公式值是否更新]]> Thu, 29 Sep 2011 12:31:10 GMT <![CDATA[MsgBox Timer - t（程序运行时间计算）]]> Thu, 29 Sep 2011 12:29:28 GMT t=timer 把开始运行时的时间放在变理T里
在程序结束添加
msgbox timer-t 让运行后的时间减开始的时间，就是程序运行的时间...]]> <![CDATA[arr = Array(1, 2, 3, "a")]]> Thu, 29 Sep 2011 12:28:42 GMT array（）表示常量数组，内容大小均固定...]]> <![CDATA[Range("a65536").End(xlUp).row - 1]]> Thu, 29 Sep 2011 12:27:35 GMT <![CDATA[Dim arr()声明动态数组]]> Thu, 29 Sep 2011 12:26:13 GMT dim arr()
redim(2 to 13)...]]> <![CDATA[MsgBox arr(3, 1)]]> Thu, 29 Sep 2011 12:25:36 GMT <![CDATA[Dim arr(1 To 5, 1 To 4)]]> Thu, 29 Sep 2011 12:25:06 GMT <![CDATA[arr(2) = 190]]> Thu, 29 Sep 2011 12:23:46 GMT <![CDATA[Set rg = Union(rg, Range("h" & x + 1))]]> Thu, 29 Sep 2011 12:21:47 GMT <![CDATA[Application.DisplayAlerts = False]]> Thu, 29 Sep 2011 12:20:23 GMT Application.DisplayAlerts = TRUE...]]> <![CDATA[IsNull(Range("a1:d7").MergeCells)]]> Thu, 29 Sep 2011 12:19:39 GMT <![CDATA[Range("b3").MergeArea.Address]]> Thu, 29 Sep 2011 12:18:53 GMT