- ©«¤l
- 14
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-25
- ³Ì«áµn¿ý
- 2011-8-3
|
[µo°Ý] §Ú¤]·Q°ÝDDE§Q¥ÎPrivate Sub Worksheet_Calculate()¨ú¸ê®Æ¤è¦¡
¦U¦ì¤j¤j§A̦n
§Úª¾¹D§Ú«Ü¹à
¦ý¬Oªñ¤éè¦n¦³»Ý¨D·Qn½Ð±Ð¦U¦ì¤j¤j
¥ý¦bSheet1(Sheet1)¤W¥´¤W
¨ä¥L¤j¤jªº¯«©_µ{¦¡(¦p¤U)
Private Sub Worksheet_Calculate()
Dim NowDateTime, nowTime, startTime, stopTime
Dim tr As String
NowDateTime = Now '²{¦bªº®É¶¡È, ¥h±¼¾ã¼Æ³¡¥÷,
nowTime = (NowDateTime - Int(NowDateTime)) '±o¨ì²{¦bªº®É¶¡È
startTime = Range("A6") '¶}½L®É¶¡, ¨Ò¦p: "09:00:00 AM"
stopTime = Range("A8") '¦¬½L®É¶¡, ¨Ò¦p: "01:30:00 PM"
If nowTime <= startTime Then '©|¥¼¶}½L
Exit Sub
ElseIf nowTime > stopTime Then '¤w¸g¦¬½L
Exit Sub
Else
If [C2] <> "-" And [C2] <> "###" Then '²M½Lªºª¬ºA, ¤£¨ú¨ä¸ê®Æ
tr = Int((nowTime - startTime) * 288) + 2 '¨C®t 300 ¬í´N´«¤@¦C
If Range("D" & tr) = "" Then Range("D" & tr) = Range("C2") '¶}©l»ù
If Range("E" & tr) = "" Or Range("C2") > Range("E" & tr) _
Then Range("E" & tr) = Range("C2") '³Ì°ª»ù
If Range("F" & tr) = "" Or Range("C2") < Range("F" & tr) _
Then Range("F" & tr) = Range("C2") '³Ì§C»ù
Range("G" & tr) = Range("C2") 'µ²§ô»ù
End If
End If
End Sub
¦ý³Ì«áÁÙ¬OµLªk¦s¨ú
¤£ª¾¹DþÃä¿ù»~¤F ÁÙ¬On¥´¦bThisWorkbook¨ºÃä©O???
§Ú¬O¨Ï¥Î´I¨¹e01 DDE¦s¨ú¸ê®Æ©ñ¦bC2
¦A½Ð¦U¦ì¤j¤j¤F §Ú¦³ª¦¤å¦ý¬OÁÙ¬O¤£·| ·PÁ |
|