В Excel 2010 VBA щелкните макрос триггера ячейки, чтобы показать список значений

Question

При нажатии на ячейку сказать d2 я хочу показать значения от j2:j6 в e2:e6. При нажатии на ячейку d3 я хочу показать значения от k2:k6 в e2:e6 и т.д. Кто-нибудь может мне помочь? Спасибо

Answer 1

Вам нужно будет добавить это в модуль кода позади вашего листа. Если это Sheet1, в VBA Code Explorer щелкните правой кнопкой мыши Sheet1 и выберите View Code, затем добавьте это в модуль:

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

Я дал вам возможность после утверждения Case Else очистить содержимое E2:E6, если пользователь нажимает на любую другую ячейку, кроме D2 или D3.