首页 > 编程语言 > 详细

VBA代码

时间：2016-10-07 01:09:32 阅读：162 评论：0 收藏：0 [点我收藏+]

标签：

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

标签：

原文地址：http://www.cnblogs.com/zgcy/p/5935155.html

踩

(0)

赞

(0)

举报

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行

更多

友情链接

兰亭集智国之画百度统计站长统计阿里云 chrome插件新版天听网

关于我们 - 联系我们 - 留言反馈

© 2014 mamicode.com 版权所有联系我们:gaon5@hotmail.com

迷上了代码！