各位大神請教一下,請問要如何跨工作表執行呢,試了好久都不行,請大神指點一下,謝謝
以下是設在工作表1,想當清單使用
Private Sub ComboBox1_Change()
Dim a As Range
Dim m, l As Integer
ComboBox2.Clear
m = Application.Match(ComboBox1.Text, Range("a1:v1"), 0)
l = Application.CountA(Columns(m))
For Each a In Range(Cells(2, m), Cells(l, m))
ComboBox2.AddItem a
Next
End Sub
Private Sub UserForm_Initialize()
Dim a As Range
For Each a In Range("a1:v1")
ComboBox1.AddItem a
Next
End Sub