ªð¦^¦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 : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD