- ©«¤l
- 10
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- vb2008
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-1-28
- ³Ì«áµn¿ý
- 2011-8-2
|
[µo°Ý] ¬°¤°»ò¨S¿ìªk°µ¨ì¨C¤¤ÀÄÁ°Ê§@¤@¦¸??
§Úªºsheet1¦³¤T¦CDDEªº¼Æ¾Ú
§Ú·Q§â³o¤T¦C¼Æ¾Ú¨C¤¤ÀÄÁ¤À§O¬ö¿ý¤@¦¸¨ì¤TÓ¤u§@ªísheet2~sheet4
°»¿ù³£¨S°ÝÃD
¥i¬O«o¶]¤@¦¸´N°±¤F
Ë©³¬O¬Æ»òì¦]©O
§Ú¦bsheet1¶Kªºµ{¦¡½X¦p¤U
Private Sub Worksheet_Calculate()
Dim NowDateTime, NowTime, StartTime, StopTime
Dim tr As String
NowDateTime = Now
NowTime = NowDateTime - Int(NowDateTime)
StartTime = Sheet2.[A2]
StopTime = Sheet2.[A185]
If NowTime <= StartTime Then
Exit Sub
ElseIf NowTime > StopTime Then
Exit Sub
End If
tr = Int((NowTime - StartTime) * 288) + 2
Sheet2.Range("B" & tr).Value = Sheet1.Range("A2").Value
Sheet2.Range("C" & tr).Value = Sheet1.Range("B2").Value
Sheet2.Range("D" & tr).Value = Sheet1.Range("C2").Value
Sheet2.Range("E" & tr).Value = Sheet1.Range("D2").Value
Sheet2.Range("F" & tr).Value = Sheet1.Range("E2").Value
Sheet2.Range("G" & tr).Value = Sheet1.Range("F2").Value
Sheet3.Range("B" & tr).Value = Sheet1.Range("A3").Value
Sheet3.Range("C" & tr).Value = Sheet1.Range("B3").Value
Sheet3.Range("D" & tr).Value = Sheet1.Range("C3").Value
Sheet3.Range("E" & tr).Value = Sheet1.Range("D3").Value
Sheet3.Range("F" & tr).Value = Sheet1.Range("E3").Value
Sheet3.Range("G" & tr).Value = Sheet1.Range("F3").Value
Sheet4.Range("B" & tr).Value = Sheet1.Range("A4").Value
Sheet4.Range("C" & tr).Value = Sheet1.Range("B4").Value
Sheet4.Range("D" & tr).Value = Sheet1.Range("C4").Value
Sheet4.Range("E" & tr).Value = Sheet1.Range("D4").Value
Sheet4.Range("F" & tr).Value = Sheet1.Range("E4").Value
Sheet4.Range("G" & tr).Value = Sheet1.Range("F4").Value
End Sub
DJ.rar (21.79 KB)
|
|