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

[µo°Ý] Àx¦s®æ¦Û°Êupdate

If Not Target.Address Like "$A$*" Then Exit Sub '¤£¬O¦bAÄæ¿é¤J´N°h¥X
Hsieh µoªí©ó 2010-6-5 09:01

¤@¼Ëªº®ÄªG  If Target.Column <> 1 Then Exit Sub '¤£¬O¦bAÄæ¿é¤J´N°h¥X

TOP

    ¬O¥i¥H,¤£¹L¦pªG¦³delete´N¤£¦æ¤F.   ¬O§R°£Àx¦s®æ¶Ü? ¬O·|¦³°ÝÃD
john2006168 µoªí©ó 2010-6-5 23:03

¬OÀx¦s®æ="" ¶Ü?
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Column <> 1 Then Exit Sub '¤£¬O¦bAÄæ¿é¤J´N°h¥X
  3. Application.EnableEvents = False 'Ãö³¬Ä²µo¨Æ¥óµ{§Ç
  4. If Target <> "" Then Target = [D7] & Target
  5. Application.EnableEvents = True '¶}±ÒIJµo¨Æ¥óµ{§Ç
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 12# john2006168
If Target <> "" Then Target = [D7] & Target
¥H¤Wµ{¦¡½X ¬õ¦â¤å¦r [Àx¦s®æ¤£¬°ªÅ¥Õ] ªº±ø¥ó¦¨¥ß®É °õ¦æ Target = [D7] & Target

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD