vba转换为vbs的方法_vba代码与vb代码之间转换

各位大虾：下面是我在excel里做一段倒计时器和计时器代码，麻烦请教如果将这段代码的功能转化为vb代码？谢谢！Publicflag1Publicflag2flag1=Trueflag2=TruePublicSubred()States=1Wit...

各位大虾：下面是我在excel 里做一段倒计时器和计时器代码，麻烦请教如果将这段代码的功能转化为vb代码？谢谢！

Public flag1

Public flag2

flag1 = True

flag2 = True

Public Sub red()

States = 1

With Application

.OnTime Now + TimeValue("00:00:01"), "uf"

Call aa

End With

End Sub

Sub uf()

UserForm1.Show 0

End Sub

Sub aa()

Dim bl, be As Boolean

If States = 0 Then

Exit Sub

Else

If bl Then End

UserForm1.TextBox1 = Format(Time - t, "hh:mm:ss")

If (Now - t1) * 3600 * 24 > 120 Then

UserForm1.TextBox2 = "00:00:00"

Else

UserForm1.TextBox2 = Format(TimeValue("00:02:00") - Time + t, "hh:mm:ss")

End If

string1 = CStr(UserForm1.TextBox2)

If Int(Left(string1, 2)) = 0 And Int(Mid(string1, 4, 2)) = 0 Then

UserForm1.TextBox2.ForeColor = 255

If flag1 Then

If string1 < "00:00:58" Then

flag1 = True

Else

If UserForm5.Visible = False Then UserForm5.Show

flag1 = False

End If

End If

End If

If (Now - t1) * 60 * 24 > 3 Then

UserForm1.TextBox3 = "00:00:00"

Else

UserForm1.TextBox3 = Format(TimeValue("00:03:00") - Time + t, "hh:mm:ss")

End If

string2 = CStr(UserForm1.TextBox3)

If Int(Left(string2, 2)) = 0 And Int(Mid(string2, 4, 2)) = 0 Then

UserForm1.TextBox3.ForeColor = 255

If flag2 Then

If UserForm6.Visible = False Then UserForm6.Show

flag2 = False

End If

End If

With Application

.OnTime Now + TimeValue("00:00:01"), "aa"

End With

End If

End Sub

展开