Worksheet_Change »yªk

t8899

Private Sub Worksheet_Change(ByVal Target As Range)
½Ð±Ð¨â­Ó»yªk
1. °²¦p A COLUMN ¦³¥ô¤@Àx¦s®æÅÜ°Ê «h............

2. °²¦p A COLUMN ³Ì«á¤@®æ¦³·s¼W¼Æ¦r.....«h
¨Ò¦p   A9 ­ì¬°³Ì«á¤@®æ¦³¼Æ¦r, ¦bA10¶ñ¤J¼Æ¦r «h........(±ø¥ó¦¨¥ß)
         A10 ­ì¬°³Ì«á¤@®æ¦³¼Æ¦r, ¦bA11¶ñ¤J¼Æ¦r «h........(±ø¥ó¦¨¥ß)
        .............
          ..............
       ¥H¦¹Ãþ±À

c_c_lai

¦^´_ 1# t8899
¸Õ¸Õ¬Ý

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.    If Target.Column = 1 Then
   
3.          .
   
4.          .
   
5.         .
   
6.    End If
   
7. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
¡@¡@¡@If .Column <> 1 Or .Count > 1 Then Exit Sub
¡@¡@¡@If .End(xlDown).Row = Rows.Count Then MsgBox "³o¬O³Ì«á¤@µ§"
End With
End Sub

t8899

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
¡@¡@¡@If .Column  1 Or .Count > 1  ...
­ã´£³¡ªL µoªí©ó 2015-12-2 10:39

½Ð±Ð target.count  ¸ò row.count ¦³¦ó¤£¦P???

­ã´£³¡ªL

¦^´_ 4# t8899


Target.Count ¬°§@¥Î°ÏÀx¦s®æªº­Ó¼Æ, ¨Ò¦p:¥HF1:H3½Æ»s¦ÜA1:C3, ¨äÀx¦s®æ¼Æ¬°9­Ó,
Rows.Count ¬°¤u§@ªíÁ`¦C¼Æ, End(xlDown), ­Y°_©l®æ¥H¤U¬Ò¬°ªÅ¥Õ, ´Nª½±µ¸õ¦Ü¤u§@ªí³Ì©³¤U¤@¦C!

c590524

¨ü¯q¨}¦h
¥¿¼Wªøª¾ÃÑ
ÆZ²`ªº¾Ç°Ý

mdr0465

If .Column <> 1 Or .Count > 1 Then Exit Sub
If .End(xlDown).Row = Rows.Count Then MsgBox

§Ú·Q°Ý ".column<>1......." .column ".End(xlDown)..... "ªG¤@ÂI"«Y¥i¥H¦b¤°»ò®É­Ô¥i¥H«Y«e­±¨S¦³µù©ú¤°»òª«¥ó¦Ó¥u¬O¥Î"."column ??

½Ð½ç±Ð

­ã´£³¡ªL

¦^´_ 7# mdr0465


With Target
¡@¡@¡@.??
¡@¡@¡@.??
End With

With ~ End With ¤¤¶¡¤£±a[ª«¥ó]ªº".", ³£ºâ Target ªº±b~~

mdr0465

©ú¥Õ,¨ü±Ð¤F..
ÁÂÁÂ