excel或excel VBA：如何讓用戶單擊某個單元格並將其用作與現有單元格的匹配結果

Question

通緝

隨附的是我想做什么的截圖。 我有一欄列出了所有選項，第二欄列出了一些項目。 對於每個項目，我希望用戶實際選擇一個單元格，然后可以將該選擇用作該項目的匹配項。 例如，如果使用單擊“ user1”，那么我需要用文本“ user1”填充單元格D4。 我該如何實現？ 謝謝！

Answer 1

在要使用選擇的工作表的代碼上：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Then
        Dim s As String
        s = Cells(Target.Row, Target.Column)
        Sheets("SHEETNAME").Range("D4") = s
    End If

End Sub

Answer 2

您可以使用工作表事件處理程序。 根據您的確切條件，使用SelectionChange或DoubleClick。

例如，在工作表代碼模塊中：

這段代碼尋找用戶選擇第1列中的單元格，然后用選擇的值更新D4。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Target.Column = 1 Then
            Range("D4").Value = Target.Text
        End If
    End If
End Sub

請記住，如果用戶用鍵盤選擇一個單元格，這也會更新，這就是為什么您可能更喜歡使用雙擊之前事件的原因：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

（如果使用此代碼，則還需要在上面的代碼中添加Cancel = True，否則它將允許用戶編輯該單元格中的值）

希望這可以幫助！