ªð¦^¦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®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD