ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Worksheet_Calculate µLªk¥¿½T°õ¦æ ?

[µo°Ý] Worksheet_Calculate µLªk¥¿½T°õ¦æ ?

¥»©«³Ì«á¥Ñ t8899 ©ó 2024-7-24 10:12 ½s¿è

Worksheet_Calculate µLªk¥¿½T°õ¦æ ?

Private Sub Worksheet_Calculate()
If Format(Now, "hh:mm:ss") = "10:03:00" Then
MsgBoxTest 0, " test 4¬í¦Û°ÊÃö³¬ ", "´£¥Ü°T®§", vbSystemModal, 0, 4000
End If
If Format(Now, "hh:mm:ss") = "10:03:02" Then '
[m21] = 1
End If
end sub

10:03:00 ¥X²{ªº´£¥Üµøµ¡·|°±4¬í¤~Ãö³¬¡A³o·|¾É­P10:03:02ªº [m21] = 1¨S³Q°õ¦æ? ¦p¦ó¸Ñ¨M ?(±ø¥ó®É¶¡¤£¯à§ó§ï)

"10:03:00" + ´£¥Ü4¬í = "10:03:04"

"10:03:02" >> ¥Ã»·³Q¸õ¹L..°õ¦æ¤£¨ì

TOP

Private Sub Worksheet_Calculate()
dim ck%
If Format(Now, "hh:mm:ss") = "10:03:00" Then
  ck=1
  MsgBoxTest 0, " test 4¬í¦Û°ÊÃö³¬ ", "´£¥Ü°T®§", vbSystemModal, 0, 4000
End If
If ck=1 Then [m21] = 1
end sub

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD