- ©«¤l
- 18
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¤¤°ê
- µù¥U®É¶¡
- 2011-6-19
- ³Ì«áµn¿ý
- 2021-4-15
|
- Private Sub Worksheet_Calculate()
- If Time < TimeValue("8:45:00") Or Time > TimeValue("13:45:00") Then Exit Sub
- Application.ScreenUpdating = False
- On Error Resume Next
- If Application.WorksheetFunction.IsNumber(Cells(201, 5)) Then '´Á³f¸ê®Æ§ó·s
- If Cells(201, 2) = 0 Then Cells(201, 2) = Cells(2, 38)
- If Cells(201, 3) = 0 Then Cells(201, 3) = Cells(201, 5)
- '
- '
- '
- End If
- End Sub
½Æ»s¥N½X mark¤j2007ªºª©¬O"Application.ScreenUpdate= False"¶Ü?
§Ú2003ª©¤£¦æ
³oùص{¦¡°õ¦æ¶¶ºZ,¨S¦³°ÝÃD
§Ú¦b¥t¤@¤u§@ªí¬Ý¤ÀªR,¦ýµe±·|¤@ª½°{°Ê,
´N·Q¨D±Ð¦³¨S¦³¤èªk¨Ïµ{¦¡¦wÀRªº¦bI´º°õ¦æ,¤£¼vÅTµe±. |
|