- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 5# bqwangs - '³o¨Çµ{§Ç³]¦b SHEET1[¬¡¶Ã¯ªºª«¥ó¼Ò²Õ]
- Option Explicit
- Dim Msg As Boolean
- Sub ±Ò°Ê¶s()
- If Msg = True Then Exit Sub '°±¤îµ{¦¡ªº¹B¦æ
- If [C5] = 1 Then ¥¨¶°1 '¬°1°õ¦æ¥¨¶°1
- If [C5] = -1 Then ¥¨¶°3 '¬°1°õ¦æ¥¨¶°3
- If [C5] = 0 Then ¥¨¶°2 '¬°1°õ¦æ¥¨¶°2
- Application.OnTime Time + #12:00:01 AM#, "SHEET1.±Ò°Ê¶s" '¶¡¹j¤@¬í°õ¦æ ±Ò°Ê¶s
- 'Application.Time [®É°õ¦æªº®É¶¡],[°õ¦æªºµ{§Ç]
- '°õ¦æªºµ{§Ç¬O SHEET1[¬¡¶Ã¯ªºª«¥ó¼Ò²Õ],¤ºªºµ{§Çn«ü©úª«¥ó¼Ò²Õªº¦WºÙ
- End Sub
- Sub °±¤î¶s()
- Do While [C5] <> 0 '·|µ¥¨ìC5Àx¦s®æ¬° 0 ¤~°±¤î
- DoEvents
- Loop
- Msg = True '°±¤î¦A«×°õ¦æ ±Ò°Ê¶s
- ¥¨¶°2
- End
- '(1)¦pªGC5Àx¦s®æ¬°1 ©Î -1¡A·|µ¥¨ìC5Àx¦s®æ¬° 0 ¤~°±¤î(¤]´N¬O·|°õ¦æ§¹¥¨¶°2)
- '(2)¦pªGC5Àx¦s®æ¬°0¡Aª½±µ°±¤î(¤£·|°õ¦æ¥¨¶°2)
- 'Âk¯Ç(1)(2)->°õ¦æ¥¨¶°2
- End Sub
- Sub ºò«æ¶s()
- Msg = True '°±¤î¦A«×°õ¦æ ±Ò°Ê¶s
- ¥¨¶°2
- End
- '(1)¦pªGC5Àx¦s®æ¬° 1 ©Î-1 ¡A°¨¤W·|°õ¦æ¥¨¶°2¡A¥ß§Y°±¤î
- '(2)¦pªGC5Àx¦s®æ¬°0¡Aª½±µ°±¤î(¤£·|°õ¦æ¥¨¶°2)(»P°±¤î¶s²Ä2±ø±Ôz¤@¼Ë)
- 'Âk¯Ç(1)(2)->°õ¦æ¥¨¶°2
- End Sub
½Æ»s¥N½X |
|