作者:乔山办公网日期:
返回目录:excel表格制作
Application.OnTime 方法
安排一个过程在将来的特定时间运行e69da5e887aa7a686964616f363(既可以是具体指定的某个时间,也可以是指定的一段时间之后)。
语法
表达式.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
表达式 一个代表 Application 对象的变量。
参数
名称 必选/可选 数据类型 描述
EarliestTime 必选 Variant 希望此过程运行的时间。
Procedure 必选 String 要运行的过程名。
LatestTime 可选 Variant 过程开始运行的最晚时间。例如,如果 LatestTime 参数设置为 EarliestTime + 30,且当到达 EarliestTime 时间时,由于其他过程处于运行状态而导致 Microsoft Excel 不能处于“就绪”、“复制”、“剪切”或“查找”模式,则 Microsoft Excel 将等待 30 秒让第一个过程先完成。如果 Microsoft Excel 不能在 30 秒内回到“就绪”模式,则不运行此过程。如果省略该参数,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
数组公式:=SUM((MMULT((B2:C10>2)+(B2:C10>0.1),{1;1})>2)*(LEN(A2:A10)
把提取字符zd的公式写入sheet2单元格
Sub aa()
Sheet2.Range("A1").Formula = "=left(sheet1!A1,5)"
End Sub
直接专把结果属写入sheet2单元格
sub aa()
sheet2.range("A1").value=left(sheet1.range("A1").value,5)
end sub
所需工具材料:EXCEL(以2007版本为例)
方法如下:
一、Now 函数
Now函数返回当前系统日期和时间。
添加一个按钮,并添加以下功能:
Private Sub Constant_demo_Click()
Dim a as Variant
a = Now()
msgbox("The Value of a : " & a)
End Sub
二、Hour函数
Hour函数返回一个介于0和23表示当天指定时间戳的小时。
添加一个按钮,并添加以下功能:
Private Sub Constant_demo_Click()
msgbox("Line 1: " & Hour("3:13:45 PM"))
msgbox("Line 2: " & Hour("23:13:45"))
msgbox("Line 3: " & Hour("2:20 PM"))
End Sub
三、Minute函数
Minute函数返回一个介于0和59表示小时内指定时间戳记的e5a48de588b67a686964616f330分钟。
添加一个按钮,并添加以下功能:
Private Sub Constant_demo_Click()
msgbox("Line 1: " & Minute("3:13:45 PM"))
msgbox("Line 2: " & Minute("23:43:45"))
msgbox("Line 3: " & Minute("2:20 PM"))
End Sub
四、Second函数
Second函数返回一个介于0和59,代表小时指定时间戳记的秒值。
添加一个按钮,并添加以下功能:
Private Sub Constant_demo_Click()
msgbox("Line 1: " & Second("3:13:25 PM"))
msgbox("Line 2: " & Second("23:13:45"))
msgbox("Line 3: " & Second("2:20 PM"))
End Sub
五、Time函数
Time函数返回当前系统时间。
Private Sub Constant_demo_Click()
msgbox("Line 1: " & Time())
End Sub
六、Timer函数
Timer函数(定时器)返回自12:00 AM秒和毫秒数。
添加一个按钮,并添加以下功能:
Private Sub Constant_demo_Click()
msgbox("Time is : " & Now())
msgbox("Timer is: " & Timer())
End Sub