|
フォームモジュールに記述するコードは
Private Sub UserForm_Initialize()
With Worksheets("Sheet1")
Set MyR = .Range("A3", .Range("A65536").End(xlUp))
.Range("A2", .Range("A65536").End(xlUp)).AdvancedFilter _
xlFilterInPlace, , , True
For Each C In MyR.SpecialCells(12)
Me.ComboBox1.AddItem C.Value
Next
.ShowAllData
End With
End Sub
Private Sub ComboBox1_Change()
With Worksheets("Sheet1")
.Activate
.Range("A2", .Range("A65536").End(xlUp)) _
.AutoFilter 1, ComboBox1.Value
End With
End Sub
Private Sub UserForm_Terminate()
Worksheets("Sheet1").AutoFilterMode = False
End Sub
てな感じでしょうか。対象シートの指定は、適宜変更して下さい。
|
|