Worksheet_Change 語法

t8899

Private Sub Worksheet_Change(ByVal Target As Range)
請教兩個語法
1. 假如 A COLUMN 有任一儲存格變動 則............

2. 假如 A COLUMN 最後一格有新增數字.....則
例如   A9 原為最後一格有數字, 在A10填入數字 則........(條件成立)
         A10 原為最後一格有數字, 在A11填入數字 則........(條件成立)
        .............
          ..............
       以此類推

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

複製代碼

准提部林

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 "這是最後一筆"
End With
End Sub

t8899

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
　　　If .Column  1 Or .Count > 1  ...
准提部林 發表於 2015-12-2 10:39

請教 target.count  跟 row.count 有何不同???

准提部林

回復 4# t8899


Target.Count 為作用區儲存格的個數, 例如:以F1:H3複製至A1:C3, 其儲存格數為9個,
Rows.Count 為工作表總列數, End(xlDown), 若起始格以下皆為空白, 就直接跳至工作表最底下一列!

c590524

受益良多
正增長知識
蠻深的學問

mdr0465

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

我想問 ".column<>1......." .column ".End(xlDown)..... "果一點"係可以在什麼時候可以係前面沒有註明什麼物件而只是用"."column ??

請賜教

准提部林

回復 7# mdr0465


With Target
　　　.??
　　　.??
End With

With ~ End With 中間不帶[物件]的".", 都算 Target 的帳~~

mdr0465

明白,受教了..
謝謝