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

hong912

½Ð±Ð¦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

rc_chc

·PÁ hong912, ML089 ¼ö¤ß«ü±Ð, ÁÂÁÂ

ML089

¦^´_ 6# rc_chc

¤U¸ü (250.38 KB)

2013-12-4 20:16

hong912

¦^´_ 6# rc_chc

§âµ{¦¡½X¶K©ó¤u§@ªí, §â¤u§@ªía1:c1¦X¨Ö, ¸Õ¸Õ¥Î·Æ¹«³æÀ»¿ï¾Ü¸Ó¦X¨ÖÀx¦s®æ

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

rc_chc

¤£¤Ó©ú¥Õ¦p¦ó¥i¥H¥t¥Î·Æ¹«³æÀ»¸Ó¦X«÷Àx¦s®æ´N·|°õ¦æµ{¦¡, ½Ð«ü±Ð, ÁÂÁÂ

hong912

ÁÂÁ¼ӤW¦U¼Ó¥D¸Ñµª, °ÝÃD¤w¸Ñ¨M, °J¤ß·PÁÂ..

ML089

¦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

GBKEE

¦^´_ 1# hong912
Address ¶Ç¦^ªº­^¤å¦r¥À¬O¤j¼g

Kubi

¦^´_ 1# hong912

¥i¦bµ{§Ç¤º¥[¤J MsgBox T.Address
¦p¦¹§Y¥i´ú±o T.Address ¬O "$A$1:$C$1" ¡A ¨Ã«D "$a$1:$c$1" ¡C