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

INPUTBOX ¨ú®ø«á ²£¥Í¿ù»~

Dim A As Date
    A = Application.InputBox("½Ð¿é¤J§R°£¤é´Á", "§R°£¸ê®Æ", Format(Sheet1.Range("A1"), "yyyy/mm/dd"))
    If A = False Then End

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD