各位大神請教一下,請問要如何跨工作表執行呢,試了好久都不行,請大神指點一下,謝謝

以下是設在工作表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

文章關鍵字
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!