Excel 2010 VBA单击单元格触发器宏以显示值列表

您需要将其添加到表格后面的代码模块中。如果是Sheet1，请在VBA的代码资源管理器中，右键单击Sheet1并选择“查看代码”，然后将其添加到模块中：

Option Explicit

Const DISPLAY_TARGET As String = "E2:E6"
Const D2_SOURCE As String = "J2:J6"
Const D3_SOURCE As String = "K2:K6"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Select Case Target.Address

    Case "$D$2"
      Range(DISPLAY_TARGET).Value = Range(D2_SOURCE).Value

    Case "$D$3"
      Range(DISPLAY_TARGET).Value = Range(D3_SOURCE).Value

    Case Else
      'Range(DISPLAY_TARGET).ClearContents

  End Select

End Sub

如果用户单击D2或D3以外的任何其他单元格，那么在Case Else语句之后，我已经为您提供了清除E2：E6内容的选项。