ªð¦^¦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¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD