VBA代码

Posted 2020-08-13 浅水微澜

Rem 声明一个私有过程“问候1”

Private Sub 问候1()

 MsgBox "早上好"

End Sub

 

Rem 声明一个公有过程“问候2”

Sub 问候2()

 MsgBox "下午好"

End Sub

 

Sub test()  ‘调用过程“问候1“和”问候2”

 Call 问候1

 Call 问候2

End Sub

--

Sub 报告当前时间()

 MsgBox Now

End Sub

 

Sub 报告上午还是下午()

 MsgBox Format(Now, "AM/PM")

End Sub

--

Sub 问候() ‘代码存放模块中

 MsgBox "早上好"

 MsgBox "上午好"

 MsgBox "中午好": MsgBox "西武好"

 Exit Sub  ‘后边的将不在执行

 MsgBox "晚上好"

End Sub

--

Sub 填充数值()

 For i = 1 To 1000

  Cells(i, "A") = i      ‘从i填充序列

 Next

End Sub

--

Sub 关闭所有工作薄()

 Workbooks.Close

End Sub

--

Private Sub Workbook_Open()  ‘打开工作表时触发

 Worksheets(1).Range("b1") = Date

End Sub