返回列表 上一主題 發帖

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

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

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

回復 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

回復 1# 棋語鳥鳴


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

TOP

回復 3# carzyindex


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

TOP

本帖最後由 棋語鳥鳴 於 2011-5-17 21:17 編輯

回復 2# GBKEE


    感謝你我試成功了!

TOP

本帖最後由 棋語鳥鳴 於 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

        靜思自在 : 吃苦了苦、苦盡廿來,享福了福、福盡悲來。
返回列表 上一主題