ªð¦^¦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 : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD