麻辣家族討論版版 - Powered by Discuz! Board

標題: Worksheet_Change 語法 [打印本頁]

作者: t8899 時間: 2015-12-2 06:49 標題: Worksheet_Change 語法

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

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

作者: c_c_lai 時間: 2015-12-2 07:58

回復 1# t8899
試試看

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
.
.
.
End If
End Sub

複製代碼

作者: 准提部林 時間: 2015-12-2 10:39

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 時間: 2015-12-2 20:03

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 有何不同???

作者: 准提部林 時間: 2015-12-2 21:08

回復 4# t8899

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

作者: c590524 時間: 2015-12-6 08:12

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

作者: mdr0465 時間: 2015-12-9 18:01

本帖最後由 mdr0465 於 2015-12-9 18:02 編輯

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

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

請賜教

作者: 准提部林 時間: 2015-12-9 18:20

回復 7# mdr0465

With Target
　　　.??
　　　.??
End With

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

作者: mdr0465 時間: 2015-12-9 18:26

明白,受教了..
謝謝

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)