在Excel VBA中單擊鼠標左鍵捕獲單元值

Question

我需要幫助捕獲鼠標左鍵點擊單元格值。因此，當用戶在特定的單元格中單擊鼠標左鍵時，我需要在VBA代碼中捕獲該特定的單元格值（寫入該單元格中的值）。

該值將被傳遞給VBA代碼，並且對於不同單元格中的點擊，輸出會有所不同。我希望我能夠解釋目的。

我總共有10個單元格，其中鼠標左鍵單擊值將被捕獲。

Answer 1

如果你想解決一個鼠標雙擊，你可以嘗試像

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    MsgBox Target.Value 
    Cancel = True 
End Sub 

Answer 2

此代碼將檢查是否多個單元格一次，然後選擇它檢查如果單元格是空的。如果它是空的，則它退出，否則它存儲的值是單元格N1。您可以更改值存儲在哪個單元格。如果N1具有價值它進入下一個空單元格列N.

Dim oval 
Dim N As Long 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Target.Cells.Count < 2 Then 
    If Target = Empty Then 
     Exit Sub 
    End If 
oval = Target.Value 
MsgBox "The value saved is " + oval + "." 
If Range("N1").Value = "" Then 
    N = 1 
Else 
    N = Cells(Rows.Count, "N").End(xlUp).Row + 1 
End If 
Cells(N, "N").Value = oval 
End If 
End Sub