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

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

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

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

¦^´_ 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
[b]Kubi[/b]

TOP

¦^´_ 1# hong912
Address ¶Ç¦^ªº­^¤å¦r¥À¬O¤j¼g
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦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

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

TOP

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

TOP

¦^´_ 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
hong912

TOP

¦^´_ 6# rc_chc

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD