ªð¦^¦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 : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD