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

[µo°Ý] µ{¦¡Àu¤Æ°ÝÃD

[µo°Ý] µ{¦¡Àu¤Æ°ÝÃD

ªþ¥[Àɮפºªºµ{¦¡
¬O¥Î¨ÓÁקK¿Ã¹õ«OÅ@µ{¦¡±Ò°Ê
©Ò¥H³]©w¤F¨â­ÓÁä
¤@­Ó±Ò°Ê ¤@­Ó°±¤î ¼g¦bModule¤º
·Q½Ð°Ý¬O§_¥i¥H§ï¦¨ ¦P¤@­Óµ{¦¡ ³£¨Ï¥ÎCOMMAND BUTTON¨Ó°õ¦æ?


Data Cal2.zip (29.73 KB)
²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v

¦^´_ 1# y54161212

¦Û³Ð¤@­Ó

Private Sub StartStop_Timer()
If TimerActive = False Then

    TimerActive = True
    Timer
ElseIf TimerActive = True Then
    TimerActive = False
End If
   

End Sub

TOP

§Ú¨Ó¸Õ¸Õ¬Ý
¤£¯àªº¸Ü¦A¸ò¤j¤j½Ð±Ð
²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v

TOP

¦^´_  y54161212

¦Û³Ð¤@­Ó

Private Sub StartStop_Timer()
If TimerActive = False Then

    Ti ...
singo1232001 µoªí©ó 2021-12-9 16:43



    §Ú¸ÕµÛ«ö·Ó¤j¤jªº«ü¾É´ú¸Õ¤F¤@¤U
    ¦ýµ{¦¡¨Ã¥¼±Ò°Ê¡A½Ð±Ð§Ú¬O­þÃä¥Î¿ù¤F?

Private Sub CommandButton1_Click()
Dim TimerActive As Boolean

If TimerActive = False Then

    TimerActive = True
    Call Timer
ElseIf TimerActive = True Then
    TimerActive = False
End If
   
End Sub


Private Sub Timer()

    If TimerActive Then
        Application.ScreenUpdating = False
        Application.SendKeys "{CAPSLOCK}"
        Worksheets("Sheet1").Range("A2").Value = Time
        Application.OnTime Now() + TimeValue("00:00:05"), "Timer"
        
    End If
   
End Sub

timeactive.zip (18.29 KB)

ÀÉ®×

²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2022-1-25 04:30 ½s¿è

¦^´_ 4# y54161212


    ©êºp ©k©k¨Ó¿ð ¤£±`¤W  ¤w¸É¤WÀÉ®×

timeactiveV1.zip (19.93 KB)

TOP

¦^´_ 1# y54161212


¥Ñ©óapplication.run ³B©ósheet1¤º

©È­ìpo¤£¤F¸Ñ©I¥s¨ä¥Lµ{§Çªº¤èªk  ¶¶«K§â©I¥s¤è¦¡©ñ¤W

©I¥sµ{§Ç¬Oaddadd   ¦p¹Ï¤ù½d¨Ò Àɮצb¤W¤@¼Ó

Screenshot 2022-01-26 110221.png (47.12 KB)

Screenshot 2022-01-26 110221.png

TOP

¦^´_  y54161212


¥Ñ©óapplication.run ³B©ósheet1¤º

©È­ìpo¤£¤F¸Ñ©I¥s¨ä¥Lµ{§Çªº¤èªk  ¶¶«K§â©I¥s ...
singo1232001 µoªí©ó 2022-1-26 11:10


¸U¤À·PÁÂ
§Ú¦A¦n¦n¬ã¨s¤@µf
²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD