- ©«¤l
- 163
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 246
- ÂI¦W
- 27
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- ie
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-7-8
- ³Ì«áµn¿ý
- 2024-9-14
|
¨C¶±K½X³]©w
¦U¦ì¤j¤j:
ÂI¸Ñ³]©w±K½X¤@©wn¼Æ¦r©O (¬õ¦â¦r¦a¤è)?? §Ú¸Õ¹L¥Î^¤å¦r¥À´N·|¸Ü±K½X¿ù»~, ½Ð¦U¦ì½ç±Ð, ÁÂ
Private Sub Worksheet_Activate()
Range("A1:IV65536").NumberFormatLocal = ";;;"
f1: ask = InputBox("½Ð¿é¤J±K½X,", "±K½XÀË®Ö", "")
Select Case ask
Case 9090
¤u§@ªí4.Select
Range("A1:IV65536").NumberFormatLocal = "0"
ActiveSheet.[A1].Select
Case Else:
MsgBox "±K½X¿ù»~"
¤u§@ªí1.Select
End Select
End Sub
½Ð°ÝÂI |
|