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

y54161212

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


Data Cal2.zip (29.73 KB)

ÀÉ®×
¤U¸ü¦¸¼Æ: 14

2021-11-11 09:00

y54161212

¦^´_  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

singo1232001

¦^´_ 1# y54161212


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

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

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

singo1232001

¦^´_ 4# y54161212


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

y54161212

¦^´_  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

y54161212

§Ú¨Ó¸Õ¸Õ¬Ý
¤£¯àªº¸Ü¦A¸ò¤j¤j½Ð±Ð

singo1232001

¦^´_ 1# y54161212

¦Û³Ð¤@­Ó

Private Sub StartStop_Timer()
If TimerActive = False Then

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

End Sub