½Ð±Ð¦U¦ì¤j¤j¡I
¦bThisWorkbook¸Ì
¼g
Sub worksheet_open()
one=99
end Sub
µM«á¦b¼Ò²Õ¸Ì¼g¤U
Sub My()
Dim MyTime, MyStr, timeend
MyTime = Sheets("Sheet4").Range("C2")
MsgBox one '§Æ±æÅã¥Üone¬°99
MyStr = Format(MyTime, "00:00:00")
MsgBox MyStr
Sheets("Sheet4").Range("C3") = MyStr
If Sheets("Sheet4").Range("A3") > MyTime Then
timeend = ("13:45:00 > 13:44:59")
MsgBox timeend
End If
If Sheets("Sheet4").Range("A3") < MyTime Then
timeend = ("08:45:00 < 13:44:59")
MsgBox timeend
End If
End Sub
==================================
§Æ±æ¬õ¦âÅã¥Ü¥X¨Ó99¡Aµ²ªG¥X²{ªÅ¥Õ¡A