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

¤ÀÂ÷¦¡ªº¦WºÙ

ZZ = Application.InputBox("¦WºÙ¥u±µ¨ü¥|­Ó¦r", "½Ð¿é¤J¦WºÙ", Range("AB11") & Range("AB12"), Type:=2)
    If ZZ = 0 Then Exit Sub
    Range("AB11") = Left(ZZ, 2)
    Range("AB12") = Right(ZZ, 2)

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD