ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¨C­¶±K½X³]©w

¨C­¶±K½X³]©w

¦U¦ì¤j¤j:

  ÂI¸Ñ³]©w±K½X¤@©w­n¼Æ¦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

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD