返回列表 上一主題 發帖

Worksheet_Change 語法

准提部林

帖子
2847 
主題
10 
精華
0 
積分
2902 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-1-16 
1# 跳轉到 »
發表於 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

TOP

准提部林

帖子
2847 
主題
10 
精華
0 
積分
2902 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-1-16 
2#
發表於 2015-12-2 21:08 | 顯示全部帖子
回復 4# t8899


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

TOP

准提部林

帖子
2847 
主題
10 
精華
0 
積分
2902 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-1-16 
3#
發表於 2015-12-9 18:20 | 顯示全部帖子
回復 7# mdr0465


With Target
　　　.??
　　　.??
End With

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

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題