ªð¦^¦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 : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD