首页 > 代码库 > VBA代码
VBA代码
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
VBA代码
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。