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

¦X«÷Àx¦s®æÅã¥Ü·í¤Ñ¤é´Á

¦X¨ÖÀx¦s®æ¥u¦³²Ä¤@®æ·|¨ü­È¡A©Ò¥H§PÂ_²Ä¤@­È´N¥i

Private Sub Worksheet_SelectionChange(ByVal T As Range)
    If T.Address = "$A$1:$C$1" And T(1) = "" Then T = Date Else T = ""
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 6# rc_chc

{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD