¦p¦ó±N¥x«ü´Áªº¨C¤@¤ÀÄÁ¸ê®Æ³£¬ö¿ý¦bsheet 1¸Ì..½Ð±Ðª©¤W°ª¤â«e½ú~~
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 72# winwin
§A§â Dim O5v As Single, H5v As Single, L5v As Single, C5v As Single ¬ÛÃö»y¥y²¾°£
®³±¼¡A¤£ºÞ¬O ¤@¤À ©ÎªÌ¬O ¤¤À¡A¥þ³£±a¤JOv, Hv, Lv, Cv¡A ¦]¬°·í®É¤§»ù¶q¬O¤@¼Ëªº¡C
¤Ó¦hªº IF ¤]¥¼¥²¬O¦nªº³B¸Ì¡A ®{¼W CPU ¯Ó®É¹LÂo¡C
µM«á¦A¸Õ¸Õ¬Ý¡C |
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- pro
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-8-1
- ³Ì«áµn¿ý
- 2018-4-6
|
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- pro
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-8-1
- ³Ì«áµn¿ý
- 2018-4-6
|
¦^´_ 70# c_c_lai
·PÁ±zªº©ò¥¿! §Ú¦A«×קï«á¡A ²{¦b¤jP¤W¤v¨S¦³°ÝÃD¤F¡F§À½L¸ê®Æ®ø¥¢ªº°ÝÃD¤v¸g¸Ñ¨M¤F!
¦ý¬O5¤ÀK ªº³¡¤ÀÁÙ¬O·|°¸º¸¤@¡B¤G¦æ®É¶¡¨S¦³¸ê®Æ¡A¥X²{ªÅ¥Õ¡C(¤£ª¾¬O¦ó°ÝÃD? ¦ý¬O1¤ÀKªº¸Ü¡A ´N«Ü¥¿±`¡C)
§Ú©ú¤Ñ¦A´ú¸Õ¤@¤U¡A ¤£ºÞ¦³¨S¦³°ÝÃD¡A §Ú¦A§âÀɮפW¶Ç¡C |
-
-
5¤ÀK.PNG
(34.25 KB)
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 69# winwin
¸Õ¸Õ¬Ý- Public Sub RTimer(tm As Date)
- Dim TimeRange As Range, Rng As Range
- Dim pos As Integer
-
- On Error Resume Next
- ' If (TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
- ' 13:45 ³o¤@½Lªº¦¬½L¸ê®Æ¤@ª½ªÅ¥Õ
- If (TimeValue(Now) > TimeValue("13:46:00")) Then Exit Sub
-
- If (TimeValue(Now) >= TimeValue("08:45:00")) Then ' ¶}½L¡B¦¬½L®É¬q³]©w
- ' ½L¤¤³B²z¡A±N¸ê®Æ¶×¤J¼g¤J¤u§@ªí³æ¤ºÀx¦s¡C
- With Sheets("1K")
- If Not IsError(.[B2]) Then
- .[C1] = "¦¨¥æ»ù"
- .[D1] = "³Ì°ª»ù"
- .[E1] = "³Ì§C»ù"
- .[F1] = "¦¨¥æ¶q"
-
- Set TimeRange = .[A:A].Find(TimeSerial(Hour(tm), Minute(tm), 0)) ' Àˬd "A" Äæ¦ì¹ïÀ³¤§®É¶¡¸ê®Æ
- Set Rng = TimeRange.Offset(, 2).Resize(1, 4)
-
- Rng(1) = Cv ' ¦¨¥æ»ù
- Rng(2) = Hv ' ³Ì°ª»ù
- Rng(3) = Lv ' ³Ì§C»ù
- Rng(4) = Sheets("Sheet1").[H2] - Sheets("Sheet1").[I2] ' ¦¨¥æ¶q
- Sheets("Sheet1").[I2] = Sheets("Sheet1").[H2] ' «·s³]©w«e¦¨¥æ¶q
- End If
- End With
-
- ' ¥[¤J¤¤ÀÄÁ¤§§PÂ_
- If (Minute(tm) * 60 + Second(tm)) Mod 300 = 0 Then ' ¨C¹j5¤ÀÄÁ°õ¦æ¤@¦¸ (5 x 60)
- With Sheets("5K")
- If Not IsError(.[B2]) Then
- .[C1] = "¦¨¥æ»ù"
- .[D1] = "³Ì°ª»ù"
- .[E1] = "³Ì§C»ù"
- .[F1] = "¦¨¥æ¶q"
-
- Set TimeRange = .[A:A].Find(TimeSerial(Hour(tm), Minute(tm), 0)) ' Àˬd "A" Äæ¦ì¹ïÀ³¤§®É¶¡¸ê®Æ
- Set Rng = TimeRange.Offset(, 2).Resize(2, 4)
-
- ' ¼W¥[ "º¦¶^" Äæ¦ì¤§¦P¨B¼g¤J
- Rng(0) = Sheets("Sheet5").[C2] ' º¦¶^
- Rng(1) = Cv ' ¦¨¥æ»ù
- Rng(2) = Hv ' ³Ì°ª»ù
- Rng(3) = Lv ' ³Ì§C»ù
- Rng(4) = Sheets("Sheet5").[H2] - Sheets("Sheet5").[I2] ' 5¤À¦¨¥æ¶q
- Sheets("Sheet5").[I2] = Sheets("Sheet5").[H2] ' «·s³]©w«e¦¨¥æ¶q
- End If
- End With
- End If
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- pro
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-8-1
- ³Ì«áµn¿ý
- 2018-4-6
|
¥»©«³Ì«á¥Ñ winwin ©ó 2017-12-8 14:33 ½s¿è
¦^´_ 68# c_c_lai
·PÁ¹©¤O¬Û§U¡A èCµMµ{¦¡ÁÙ¦³¤@ÂI¤p°ÝÃD¡A¦ý¬O¤w¸g¥i¥HÅý§Ú§â°ÝÃD §â¥¦³B²z¦n¡A¯uªºÀ°§Ú¸Ñ¨M¤F¤j³Â·Ð¡F¯u¬O·PÁ°ª¤â¬Û§U!
¥»µÛ¦^õXªººëÏõ¡A §Ú·|§âÀɮשñ¤W¨Ó¡C §Úªº¸Ñ¨M¤èªkªk´N¬O¬°5¤ÀK¦h³]¤@Ó¸ê®Æ·½¡A ³o¼Ë§Ú´N¥i¥H¦P®É¬Ý5¤À¤Î1¤ÀKªº¶q¡C
1-5¤ÀK¶q»ù¬ö¿ý-OK-O -R4.zip (51.34 KB)
¥i¬O§Úµo²{¤@Ó°ÝÃD¡A ´N¬O½L¤¤ªº°ª§CÂI¦ì¦³®É»P¨é°Óªº¬Ý½L³nÅé¹ê»Ú¤Wªº¬Û®t¦³ÂI¤j¡A ¤£ª¾¹D¥i¦³¥ý¶i¤w¦³¸Ñ¨M¤è®×?
ÁÙ¦³¡A 13:45 ³o¤@½Lªº¦¬½L¸ê®Æ¤@ª½ªÅ¥Õ¡A¤£·|§¹¦¨¡C¤£ª¾°ÝÃD¥X¦b¨º?
²Ä¤GÓ°ÝÃD¡A §Ú·Qn¼W¥[¤@өΦhÓ¨ä¥LÄæ¦ì¡F(¦p¹Ï)¹ïEXCEL VBA ¹ê¦b¬O¤£À´¡F ¥i¥H¦AÀ°¦£¤@¦¸¦£¡A¼g¤@Ó¨Ò¤l¡A¯uªº¬O«D±`·PÁ¡AÁÂÁÂ!
|
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2017-12-8 07:17 ½s¿è
¦^´_ 67# winwin
½Ð±N§Aµ{¦¡¤º¤§ RTimer(tm As Date) ¼Ò²Õ´À´«¦¨¤U¦C¤§§ó·s¼Ò²Õ¡A
¦A¸Õ¸Õ¬Ý¡C- Public Sub RTimer(tm As Date)
- Dim TimeRange As Range, Rng As Range
- Dim pos As Integer
-
- On Error Resume Next
- If (TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
-
- If (TimeValue(Now) >= TimeValue("08:45:00")) Then ' ¶}½L¡B¦¬½L®É¬q³]©w
- ' ½L¤¤³B²z¡A±N¸ê®Æ¶×¤J¼g¤J¤u§@ªí³æ¤ºÀx¦s¡C
- With Sheets("Sheet1")
- If Not IsError(.[B2]) Then
- .[C1] = "¦¨¥æ»ù"
- .[D1] = "³Ì°ª»ù"
- .[E1] = "³Ì§C»ù"
- .[F1] = "¦¨¥æ¶q"
-
- Set TimeRange = .[A:A].Find(TimeSerial(Hour(tm), Minute(tm), 0)) ' Àˬd "A" Äæ¦ì¹ïÀ³¤§®É¶¡¸ê®Æ
- Set Rng = TimeRange.Offset(, 1).Resize(1, 4)
-
- Rng(1) = Cv ' ¦¨¥æ»ù
- Rng(2) = Hv ' ³Ì°ª»ù
- Rng(3) = Lv ' ³Ì§C»ù
- Rng(4) = Sheets("Sheet4").[H2] - Sheets("Sheet4").[I2] ' ¦¨¥æ¶q
- Sheets("Sheet4").[I2] = Sheets("Sheet4").[H2] ' «·s³]©w«e¦¨¥æ¶q
- End If
- End With
-
- ' ¥[¤J¤¤ÀÄÁ¤§§PÂ_
- If (Minute(tm) * 60 + Second(tm)) Mod 300 = 0 Then ' ¨C¹j5¤ÀÄÁ°õ¦æ¤@¦¸ (5 x 60)
- With Sheets("5K")
- If Not IsError(.[B2]) Then
- .[C1] = "¦¨¥æ»ù"
- .[D1] = "³Ì°ª»ù"
- .[E1] = "³Ì§C»ù"
- .[F1] = "¦¨¥æ¶q"
-
- Set TimeRange = .[A:A].Find(TimeSerial(Hour(tm), Minute(tm), 0)) ' Àˬd "A" Äæ¦ì¹ïÀ³¤§®É¶¡¸ê®Æ
- Set Rng = TimeRange.Offset(, 1).Resize(1, 4)
-
- Rng(1) = Cv ' ¦¨¥æ»ù
- Rng(2) = Hv ' ³Ì°ª»ù
- Rng(3) = Lv ' ³Ì§C»ù
- Rng(4) = Sheets("Sheet4").[H2] - Sheets("Sheet4").[I2] ' ¦¨¥æ¶q
- Sheets("Sheet4").[I2] = Sheets("Sheet4").[H2] ' «·s³]©w«e¦¨¥æ¶q
- End If
- End With
- End If
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- pro
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-8-1
- ³Ì«áµn¿ý
- 2018-4-6
|
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- pro
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-8-1
- ³Ì«áµn¿ý
- 2018-4-6
|
c_c_lai µoªí©ó 2013-4-19 14:19
½Ð°Ý³o¬Oµ{¦¡ªº¨º¤@Ó³¡¤À?
§Ú¦b¤@¤ÀKªº¶}½L»ù¡B¦¨¥æ»ù¡B³Ì°ª»ù¡B³Ì§C»ù¡B¦¨¥æ¶qªºµ{¦¡¬O¨S°ÝÃD¡F
§Ú·Q§â¥¦§ï¦¨5¤ÀKªº¶}½L»ù¡B¦¨¥æ»ù¡B³Ì°ª»ù¡B³Ì§C»ù¡B¦¨¥æ¶q¡A
¥i¬O§â¥¦§ï¦¨¤FN¦¸¡A¾Ä¾Ô¦h®É¡A Á`¬O¤£¦¨¥\............
¥i¥H¨ó§U¤@¤U¶Ü? ¤w¸g¾Ä¾Ô¦h®É¡A¬Ò¥H¥¢±Ñ§i²×......................
|
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 92
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2001
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-4-10
- ³Ì«áµn¿ý
- 2024-8-9
|
¬°¤FÅý§ó¦h¤H¶i¤@¨B©úÁA¾ãÅ骺§@·~¹Lµ{¡A¥¼¨Ó¤]¥i¥H¦Û¤v¦b¹ê°È¤W¹ê»Úºt½m
¤Î¼¯ÀÀ¡A¬G±N§@·~µe±»Pµ{¦¡¤@¨Ö ...
c_c_lai µoªí©ó 2012-9-29 21:04
½Ð°Ý¦Ñ®v
Ãö©ó¤U¦C³o¬q»yªkªº·N«ä¬O
turnKey = turnKey + 1
Sheets("Sheet4").[A3] = "( " & turnKey & " ’ )"
If Time >= timeCalc + #12:01:00 AM# Then
If (Cv > 0) Then Call RTimer(Time)
timeCalc = TimeSerial(Hour(Time), Minute(Time), 0) ' «·s³]©w¤U¤@¤ÀÄÁ¤ñ¹ïªº®É¶¡
If timerEnabled Then Call timerStart
Else
Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.inProcess"
End If
·PÁ¦Ѯv«ü¾É ÁÂÁ¦Ѯv ·PÁ |
|
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ c_c_lai
½Ð±Ð c_c_lai¤j¤j
Y§Ún¨C¤¤ÀÄÁ¬ö¿ý´Á³fªº©e¶R¤f¼Æ ©e½æ¤f¼Æ ©e¶Rµ§¼Æ ©e½æµ§¼Æ ©e¶R§¡ ...
n8975067 µoªí©ó 2013-4-19 11:23 - If (Minute(Time) * 60 + Second(Time)) Mod 300 = 0 Then ' ¨C¹j5¤ÀÄÁ°õ¦æ¤@¦¸ (5 x 60)
- ' ------ Your statement -------
- End If
½Æ»s¥N½X |
|
|
|
|
|
|