vba msgbox问题
发布网友
发布时间：2022-04-23 21:47
共1个回答
热心网友
时间：2023-08-30 05:49
在模块中定义：public flag1,public flag2,在程序的启动按钮中先将flag2,flag1附为true,
string1 = CStr(UserForm1.TextBox2)
string2 = CStr(UserForm1.TextBox3)
If Int(Left(string1, 2)) = 0 And Int(Mid(string1, 4, 2)) = 0 Then
'最后一分钟时将字体变红
UserForm1.TextBox2.ForeColor = 255
If flag1 Then
'最后一分钟时用msgbox跳出提示，只跳出一次．
MsgBox "时间1还剩最后一分钟!"
flag1 = False
End If
End If
If Int(Left(string2, 2)) = 0 And Int(Mid(string2, 4, 2)) = 0 Then
'最后一分钟时将字体变红
UserForm1.TextBox3.ForeColor = 255
If flag2 Then
'最后一分钟时用msgbox跳出提示，只跳出一次．
MsgBox "时间2还剩最后一分钟!"
flag2 = False
End If
End If
