- ©«¤l
- 14
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 16
- ÂI¦W
- 0
- §@·~¨t²Î
- win 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-1-29
- ³Ì«áµn¿ý
- 2018-2-14
|
Sub Sb¨C¤ÀÄÁ¬ö¿ý§ó·s()
Dim mySht¨Ó·½ As Worksheet
Set mySht¨Ó·½ = Worksheets("¸ê®Æ¨Ó·½")
Dim myRng¨Ó·½ As Range
Set myRng¨Ó·½ = mySht¨Ó·½.Range("A1")
Dim mySht¬ö¿ý As Worksheet
Set mySht¬ö¿ý = Worksheets("¨C¤ÀÄÁ¬ö¿ý¸ê®Æ")
Dim myRng¬ö¿ý®É¶¡ As Range
Set myRng¬ö¿ý®É¶¡ = mySht¬ö¿ý.Range("A1")
Dim myRng¬ö¿ý¸ê®Æ As Range
Set myRng¬ö¿ý¸ê®Æ = mySht¬ö¿ý.Range("B1")
Dim myMinute As Integer
myMinute = Minute(Time)
myRng¬ö¿ý®É¶¡ = Time
myRng¬ö¿ý¸ê®Æ = myRng¨Ó·½
i = 0
Do
DoEvents
If myMinute <> Minute(Time) Then
i = i + 1
myRng¬ö¿ý®É¶¡.Offset(i, 0) = Time
myRng¬ö¿ý¸ê®Æ.Offset(i, 0) = myRng¨Ó·½
myMinute = Minute(Time)
End If
Loop
End Sub |
|