具有3个活动单元的组合框

时间:2018-08-02 07:57:25

标签: excel excel-vba combobox excel-2016

在激活VBA Excel中的组合框时遇到很大的问题。

我的问题是我必须将3个单独的列表索引组合在一起。

最初,我尝试这样做:

Sub jan4()
    Sheets("1_GENERAL").Activate
    Range("A2").Value = ("=C4")
    Range("A5").Value = ("=D4")
    Range("B5").Value = ("=E4")

enter image description here

但是,此问题在整个一年中看起来非常繁琐(仅对1个组合重复这些值的365次!)。我决定使用SpionButton和ComboBox来制作

Private Sub SpinButton1_SpinDown()
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex - 1
End Sub

Private Sub SpinButton1_SpinUp()
    If Me.ComboBox1.ListIndex = Me.ComboBox1.ListCount - 1 Then Exit Sub
    Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex + 1
End Sub


Next rCell

For Each rCell In workseets("1_GENERAL").Range("d1:d366")
    ComboBox3.AddItem rCell.Value    
Next rCell

For Each rCell In Worksheets("1_GENERAL").Range("e1:e366")
    ComboBox3.AddItem rCell.Value

而范围C,D,E 1:366代表一年中的每一天,并带有数值,我想通过特定的单元格进行切换(范围C1:C366的A2;范围D1:D366和B5的A5对于D1:D366范围),从中链接进一步的数据处理。

我已经创建了与SpinButton链接的ComboBox,可以在其中轻松选择日期(范围C1:C366),尽管这只是一件事情,但是我可以做到。没有什么变化。 那您能帮我如何使这个ComboBox可用吗?

感谢与问候,

0 个答案:

没有答案