作者：乔山办公网日期：
返回目录：excel表格制作
建一个窗体，窗体上建一个refedit控件、一个按钮，将下面代码粘贴到按复钮的单击事件中：
Private Sub CommandButton1_Click()
str1 = RefEdit1.Text '鼠标选取单元格范围制，获取引用字串
myrng = Right(str1, Len(str1) - InStr(str1, "!"))
Unload Me
MsgBox "选定范围" & Right(str1, Len(str1) - InStr(str1, "!")) & "数据总和为： " & Application.WorksheetFunction.Sum(Range(myrng))
End Sub
在表zd格中输入一些数字，此示例，通过refedit控件用鼠标在表格中选取范围，然后将选取范围的单元格引用字串传递给sum函数进行加总该范围的数据。
Application.OnTime 方法
安排一个过程在将来的特定时间运行（既可以是具体指定的某个时间，也可以是指定的一段时间之后）。
语法
表达式.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
表达式 一个代表 Application 对象的变量。
参数
名称 必选/可选 数据类型 描述
EarliestTime 必选 Variant 希望此过程运行的时间。
Procedure 必选 String 要运行的过程名。
LatestTime 可选 Variant 过程开始运行的最晚时间。例如，如果 LatestTime 参数设置为 EarliestTime + 30，且当到达 EarliestTime 时间时，由于其他过程处于运行状态而导致 Microsoft Excel 不能处于“就绪”、“复制”、“剪切”或“查找”模式，则 Microsoft Excel 将等待 30 秒让第一个过程先完成。如果 Microsoft Excel 不能在 30 秒内回到“就绪”模式，则不运行此过程。如果省略该参e79fa5e98193e58685e5aeb9363数，Microsoft Excel 将一直等待到可以运行该过程为止。
Schedule 可选 Variant 如果为 True，则预定一个新的 OnTime 过程。如果为 False，则清除先前设置的过程。默认值为 True。
说明
使用 Now + TimeValue(time) 可安排经过一段时间（从现在开始计时）之后运行某个过程。使用 TimeValue(time) 可安排某个过程只运行指定的时间。
示例
本示例设置从现在开始 15 秒后运行 my_Procedure。
Visual Basic for Applications
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
本示例设置 my_Procedure 在下午 5 点开始运行。
Visual Basic for Applications
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
本示例撤消前一个示例对 OnTime 的设置。
Visual Basic for Applications
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False
其实像这种EXCEL VBA内置函数，你可以打开帮助查找F1
with 天府剑客
.身高 = 175
.体重百 = 140
.胸围度 = 95
.腰围 = 29
end with
with 的语问句就是省略，答简化它！
如果不用with 那就是
天府内剑客.身高容 = 175
天府剑客.体重 = 140
天府剑客.胸围 = 95
天府剑客.腰围 = 29