- ©«¤l
- 77
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 115
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-19
- ³Ì«áµn¿ý
- 2024-10-13
|
¦^´_ 6# kobo
§Ú¤]Åý¨S¦³Åv¤U¸üªº¦P¾Çªù¬Ý¬Ý²Â²Â¥¢±Ñ»s§@§a¡I§Ú¬Oª¾¹D¥u«ö¤@¦¸«ö¶s¡A´N¥i¥H§¹¦¨¾ãÓ¹Lµ{ªº¡C
Sub «ö¶s0_Click()
Application.OnTime Now + TimeValue("00:00:05"), "«ö¶s1_Click()"
Application.Calculation = xlCalculationManual
For i = 2 To 11
Cells(i, "B").Value = Cells(i, "H").Value
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
Sub «ö¶s1_Click()
Application.OnTime Now + TimeValue("00:00:05"), "«ö¶s2_Click()"
Application.Calculation = xlCalculationManual
For i = 2 To 11
Cells(i, "D").Value = Cells(i, "H").Value
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
Sub «ö¶s2_Click()
Application.Calculation = xlCalculationManual
For i = 2 To 11
Cells(i, "F").Value = Cells(i, "H").Value
Next i
Application.Calculation = xlCalculationAutomatic
End Sub |
|