½Ð±Ð¦U«e½ú
a1b1c1¬O¦X«÷Àx¦s®æ, ¦Ó¤p§Ì·Q¥Î·Æ¹«³æÀ»¸Ó¦X«÷Àx¦s®æ, ¸ÓÀx¦s®æ«K¯àÅã¥Ü·í¤Ñ¦~¤ë¤é¦p2013¦~11¤ë26¤é, ¦Ó¨C·í¥Î·Æ¹«³æÀ»®É³£·|Åܧ󬰷í¤Ñ¤é´Á,
¤p§Ì¸Õ¦æ½s¼g, ¦ý¤£¦¨¥\, ¬G¨D§U«e½úÌ, ¥H¤U¬O¤p§Ì©Ò¼gªº¿ù»~µ{¦¡, §Æ±æ¨ó§U, ·P®¦..
Private Sub Worksheet_SelectionChange(ByVal T As Range)
ElseIf T.Address = "$a$1:$c$1" Then
If Len(T(1) & T(3)) = 0 Then T = Date Else T = ""
End If
End Sub |