³oºØ¨Ì®É¶¡¹Bºâªº¥¨¶°n¦p¦ó¼g??
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
³oºØ¨Ì®É¶¡¹Bºâªº¥¨¶°n¦p¦ó¼g??
½Ð°Ýª©¤W¤j¤j¡A¦pªG§Ún¼g¤@Ó¥¨¶°¥\¯à¦p¤U¡An¦p¦ó¼g
A1=5
B1=3
C1=4
A2=7
B2=6
C2=9
¦pªG§Ún¦b8:46¤À°õ¦æ¹BºâE1=SUM(A1:C1)¡A8:47¤À°õ¦æE2=SUM(A2:C2)¡A¨Ì¦¹Ãþ±À¤@ª½°õ¦æ¨ì13:45¤À¡A¥B°õ¦æ§¹«áª½±µ¼g¤JÈ¡A¦Ó¤£¬O¤½¦¡¡A½Ð°Ýª©¤W¤j¤j³oÓ¥¨¶°n¦p¦ó¼g©O??
P.S §Ú¤§«e¦³¸Õ¹Lª½±µ±N¤½¦¡¼g¦bÀx¦s®æ¡A¦ýµo²{¸ê®Æ¶q¤jªº¸Ü·|©ìºC°õ¦æ¼Æ«×¡A©Ò¥H·Q¸òª©¤W¤j¤j½Ð±Ð¤@¤U¥Î¥¨¶°n¦p¦ó¼g
¤W±ªº¥Ü½d¨Ò¡A§Ú¹ê»Ú°õ¦æªº¸ê®Æ¶q¤ñ¸û¤j |
|
|
|
|
|
|
- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
¥»©«³Ì«á¥Ñ PKKO ©ó 2014-11-16 01:36 ½s¿è
¦^´_ 1# ÂŤÑÄR¦À
¸Õ¸Õ¬Ý- Public i As interger
- Sub test1()
- i = 1
- Application.OnTime TimeValue("08:46:00"), "test2" '¯S©w®É¶¡©I¥sµ{¦¡
- End Sub
- Sub test2()
- Range("e" & i) = Application.WorksheetFunction.Sum(Range("A" & i & ":" & "C" & i + 2)) '¿é¤JÈ
-
- If Hour(Time) = 13 Then '§PÂ_¤p®É
- If Minute(Time) = 45 Then '§PÂ_¤À
- MsgBox "µ²§ô" '¬Û¦P®É¤À«h¤£¦A¶i¦æ
- Else
- Application.OnTime Now + TimeValue("00:01:00"), "test2" '¤@¤ÀÄÁ«á¹B¦æ
- End If
- Else
- Application.OnTime Now + TimeValue("00:01:00"), "test2" '¤@¤ÀÄÁ«á¹B¦æ
- End If
- i = i + 1
- End Sub
½Æ»s¥N½X |
|
PKKO
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2014-11-16 10:29 ½s¿è
§ï.rar (101.96 KB)
¦^´_ 2# PKKO
½Ð°Ý¤j¤j¡A·|¥X²{¨Ï¥ÎªÌ«¬ºA©|¥¼©w¸q¬O¤°»ò·N«ä
¥t¥~¡A¦pªG§Ún§âRange("e" & i) = Application.WorksheetFunction.Sum(Range("A" & i & ":" & "C" & i + 2))¸Ì±ªºSUM¨ç¼Æ§ï¦¨=IF(ISERROR(MATCH(U2,P:P,0)),"",MATCH(U2,P:P,0))¡A¨º½Ð°Ý¤@¤U¥¨¶°n«ç»ò§ï??
¬O§ï¦¨Range("e" & i) = Application.WorksheetFunction.IF(ISERROR(MATCH(Range("U" & i +1& "," & "P" &":" & "P" & "," & "0"),"",MATCH(Range("U" & i +1& "," & "P" &":" & "P" & "," & "0"))§ï¦¨³o¼Ë¹ï¶Ü??
½Ð°Ý¤j¤jRange("A" & i & ":" & "C" & i + 2)¸Ì±ªº½d³ò³¡¤À¡A°£¤F¥Î&ªºªº¤è¦¡¦³¨S¦³¨ä¥L¼gªk¡A¦]¬°¤½¦¡¦pªG«Ü¦hªº¸Ü·|&¤£§¹
©êºp¤j¤j°ÝÃD¦³ÂI¦h¡A¤£¹LÁÙ¬OÁÂÁ§Aªº¦^ÂÐ
¤j¤j§Ú¦³ªþ¤W§ÚªºÀɮסA¨ä¹ê§Únק諸¬OT¡BW¡BXÄ檺³¡¤À¡A¦]¬°ª½±µ¼g¦bÀx¦s®æ¤W±·|³y¦¨¹BºâÅܺC¡A©Ò¥H§Ú¤~·|·Q¥Î¥¨¶°ªº¤è¦¡¸Õ¸Õ¬Ý¡A¦pªG¤j¤j¯àª½±µÀ°§Úקï´N¯uªº¬O·P¿E¤£ºÉ¡A¦pªG¤£¯à¡AÁÙ¦|½Ð¤j¤jÀ°§Ú¸Ñµª¤@¤U¤W±ªº°ÝÃD¡A·PÁ |
|
|
|
|
|
|
- ©«¤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
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-11-16 15:43 ½s¿è
¦^´_ 3# ÂŤÑÄR¦À
¸Õ¸Õ¬Ý- Option Explicit
- Dim i As Integer '(µu¾ã¼Æ)¸ê®Æ«¬ºA
- 'Public i As interger => ¥X²{¨Ï¥ÎªÌ«¬ºA©|¥¼©w¸q, ¥¿½T: Integer
- Sub Ex()
- Dim xTime As Date
- If Time >= #8:46:00 AM# And Time <= #1:45:00 PM# Then
- With Sheets("RTD").Cells(i + 2, "T")
- 'TÄ椽¦¡=IF(ISERROR(MATCH(U2,P:P,0)),"",MATCH(U2,P:P,0))
- .Range("A1") = "=IF(ISERROR(MATCH(RC[1],P:P,0)),"""",MATCH(RC[1],P:P,0))"
- 'UÄæ
- .Range("B1") = IIf(Minute(Time) Mod 2 = 0, Application.Sum(Range("A1:C1")), Application.Sum(Range("A2:C2")))
- 'VÄæ
- .Range("C1") = Time
- 'WÄ椽¦¡=IF(ISERROR(INDIRECT("O"&T2)),"",INDIRECT("O"&T2))
- .Range("D1") = "=IF(ISERROR(INDIRECT(""O""&RC[-3])),"""",INDIRECT(""O""&RC[-3]))"
- 'XÄ椽¦¡=IF(W2="","",IF(W2>54,-1,IF(W2<6,1,"")))
- .Range("E1") = "=IF(RC[-1]="""","""",IF(RC[-1]>54,-1,IF(RC[-1]<6,1,"""")))"
- 'YÄ椽¦¡=IF(ISERROR(INDIRECT("R"&T2)),Y1,INDIRECT("R"&T2))
- .Range("F1") = "=IF(ISERROR(INDIRECT(""R""&RC[-5])),R[-1]C,INDIRECT(""R""&RC[-5]))"
- .Resize(, 6) = .Resize(, 6).Value '±N¤½¦¡¦^¼ÆÈ
- End With
- i = i + 1
- xTime = Time + #12:01:00 AM#
- If xTime <= #1:45:00 PM# Then Application.OnTime xTime, "EX"
- ElseIf Time < #8:46:00 AM# Then
- Application.OnTime #8:46:00 AM#, "EX"
- Else
- MsgBox "®É¶¡¤w¹L"
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 4# GBKEE
G¤jÁÂÁ§Aªº¦^ÂСA¯uªº«Ü·PÁ§A¡Aµ¥µ¥¨Ó¸Õ¸Õ¬Ý¡AÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 4# GBKEE
G¤j´ú¸Õ¹L«á¥u¦³UÄæ©MVÄ榳¼Æ¦r¨ä¥L³£Åã¥ÜªÅ¥Õ |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 4# GBKEE
G¤j¡Aèè¤Wzªº³¡¤À§Ú¤w¸gק粒¦¨¤F¡A¥Ø«e°õ¦æ¤W¬OOKªº¡A¤£¹L¸òG¤j»¡¤@Án©êºp¡A¦]¬°§Ú¶]§¹«áµo²{³o¤£¬O§Únªºµ²ªG¡A·Q¦b½Ð±Ð¤@¤UG¤j¡A¦pªG§Ún§â¤§«eªº¨ºÓµ{¦¡§ï¦¨¨ç¼ÆÁÙ¬O¦bÀx¦s®æ¤W±¡A¦ý·í¨C¤ÀÄÁ°õ¦æ§¹«á±µÈ¼g¦bÀx¦s®æ¤º(¥Dn¬On¬Ý¨C¬íÄÁªºÅܤơA¦ý¬Oµ{¦¡°õ¦æ«áÅܦ¨¨C¤ÀÄÁ¨ìªº®ÉÔ¤~¬Ýªº¨ì¼ÆÈ)¡A¦Ó¬O¤£¤½¦¡¡A½Ð°Ý¤@¤UG¤j³o¼Ën«ç»ò§ï?? |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 4# GBKEE
G¤jè誺¦^ÂЦ³ÂI¶Ã¡A¥H¤U¤~¬O¯u¹êª©¥»(©êºpÅ޿観ÂI¶Ã±¼¤~·|³o¼Ë)
G¤j¡Aèè¤Wzªº³¡¤À§Ú¤w¸gק粒¦¨¤F¡A¥Ø«e°õ¦æ¤W¬OOKªº¡A¤£¹L¸òG¤j»¡¤@Án©êºp¡A¦]¬°§Ú¶]§¹«áµo²{³o¤£¬O§Únªºµ²ªG
·Q¦b½Ð±Ð¤@¤UG¤j¡A¦pªG§Ún§â¤§«eªº¨ºÓµ{¦¡§ï¦¨¨ç¼Æ¥X²{¦b«á¤@¤ÀÄÁªºÀx¦s®æ¡Aµ¥¨ì®É¶¡¨ì¦b¼g¦¨È(¥Dn¬On¬Ý¨C¬íÄÁªºÅܤơA¦ý¬O¤§«eªºµ{¦¡°õ¦æ«áÅܦ¨¨C¤ÀÄÁ¨ìªº®ÉÔ¤~¬Ýªº¨ì¼ÆÈ)¡A¨Ò¦p8:45¤Àªº®ÉÔ±N¤½¦¡¼g¦b8:46¤À¬Û¹ïÀ³ªºÀx¦s®æ¡AµM«á8:46¤À¨ìªº®ÉÔ¦A±N¤½¦¡¼g¦¨È¡A½Ð°Ý¤@¤UG¤j³o¼Ën«ç»ò§ï?? |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 8# ÂŤÑÄR¦À
¬O³o¼Ë¶Ü?- With Sheets("RTD").Cells(i + 2, "T").Resize(, 7)
- .Offset(-1).Value = .Offset(-1).Value '¤W¤@¦C:±N¤½¦¡¦^¼ÆÈ
-
- 'TÄ椽¦¡=IF(ISERROR(MATCH(U2,P:P,0)),"",MATCH(U2,P:P,0))
- .Range("A1") = "=IF(ISERROR(MATCH(RC[1],P:P,0)),"""",MATCH(RC[1],P:P,0))"
- 'UÄæ
- .Range("B1") = IIf(Minute(Time) Mod 2 = 0, Application.Sum(Range("A1:C1")), Application.Sum(Range("A2:C2")))
- 'VÄæ
- .Range("C1") = Time
- 'WÄ椽¦¡=IF(ISERROR(INDIRECT("O"&T2)),"",INDIRECT("O"&T2))
- .Range("D1") = "=IF(ISERROR(INDIRECT(""O""&RC[-3])),"""",INDIRECT(""O""&RC[-3]))"
- 'XÄ椽¦¡=IF(W2="","",IF(W2>54,-1,IF(W2<6,1,"")))
- .Range("E1") = "=IF(RC[-1]="""","""",IF(RC[-1]>54,-1,IF(RC[-1]<6,1,"""")))"
- 'YÄ椽¦¡=IF(ISERROR(INDIRECT("R"&T2)),Y1,INDIRECT("R"&T2))
- .Range("F1") = "=IF(ISERROR(INDIRECT(""R""&RC[-5])),R[-1]C,INDIRECT(""R""&RC[-5]))"
- 'ZÄ椽¦¡=IF(ISERROR(Y2-Y1),"",Y2-Y1)
- .Range("G1") = "=IF(ISERROR(RC[-1]-R[-1]C[-1]),"""",RC[-1]-R[-1]C[-1])"
-
- End With
-
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 9# GBKEE
G¤j¯uªº«ÜÁÂÁ§A¡A³o¼ËOK¤F |
|
|
|
|
|
|