返回列表 上一主題 發帖

[發問] 請問如何讓滑鼠點擊儲存格時，於另一個儲存格會顯示某值

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-17 15:31 | 只看該作者

[發問] 請問如何讓滑鼠點擊儲存格時，於另一個儲存格會顯示某值

請問要如何設定此巨集?
當滑鼠點擊D7時，於K4會顯示A7的值
當滑鼠點擊D8時，於K4會顯示A8的值
當滑鼠點擊D9時，於K4會顯示A9的值
當滑鼠點擊D10時，於K4會顯示A10的值
.......以此類推一直到
當滑鼠點擊D285時，於K4會顯示A285的值
意思就是K4的值會隨著滑鼠點擊的儲存格而改變
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-5-17 16:21 | 只看該作者
回復 1# 棋語鳥鳴
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If Target(1).Column = 4 Then [k4] = Cells(Target(1).Row, "A")
  3. End Sub
複製代碼

TOP

carzyindex

帖子
42 
主題
11 
精華
0 
積分
104 
點名
0  
作業系統
windows 
軟體版本
office007 
閱讀權限
20 
性別
男 
註冊時間
2011-1-20 
最後登錄
2015-1-21 
3#
發表於 2011-5-17 19:03 | 只看該作者
回復 1# 棋語鳥鳴


    請問樓主是什麼情況下需要這種功能呢

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
4#
發表於 2011-5-17 20:48 | 只看該作者
回復 3# carzyindex


    想要點選清單列表~在某特定儲存格出現其相關資訊!其他資訊可去抓k4的值或者名稱來抓取!

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
5#
發表於 2011-5-17 21:08 | 只看該作者
本帖最後由 棋語鳥鳴 於 2011-5-17 21:17 編輯

回復 2# GBKEE


    感謝你我試成功了!

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
6#
發表於 2011-5-25 19:11 | 只看該作者
本帖最後由 棋語鳥鳴 於 2011-5-25 19:21 編輯

回復 2# GBKEE


    請問我如果要將此巨集改成點擊"Sheet1"D欄時，於"Sheet2"之K4，會顯示出"Sheet1"A欄的值，要如何修改此巨集?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target(1).Column = 4 Then Sheets("Sheet1").[k4] = Cells(Target(1).Row, "A")
End Sub
已經試出來了!不用了~

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題