返回列表 上一主題 發帖

[發問] 滑鼠問題請教

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
1# 跳轉到 »
發表於 2014-10-17 13:46 | 顯示全部帖子
要用滑鼠點一下

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Row
End Sub

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
2#
發表於 2014-10-17 13:51 | 顯示全部帖子
要用滑鼠點一下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = Target.Column
[A2] = Target.Row
End Sub

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題