excel - Excel VBA中的If Then语句用于设置范围

Question

我有一个包含每个月ActiveX ComboBox1的内容。Sheet 1然后我在同一张纸上有一行，每个单元格中包含一个月Range C7:N7。我想编写一个代码，用if单元格中的Range(C8:N8)数据填充下一行的单元D14格Sheet 2ComboBox1 = Range(C7:N7)

代码看起来类似于：

If ComboBox1 = Range(B7, N7) Then
   Range(B8, N8) = "Sheet2!$D$14"
End If

这可能吗？我需要定义一些东西吗？

Answer 1

对于这样的事情，您可以利用组合框的 ListIndex 属性：

Private Sub ComboBox1_Change()

    'Clear prior entries
    Range("B8:N8").ClearContents

    'Make sure something has been selected in the listbox
    If ComboBox1.ListIndex = -1 Then Exit Sub

    'Populate the appropiate cell
    Range("B8").Offset(, ComboBox1.ListIndex).Value = Sheets("Sheet2").Range("D14").Value

End Sub