|
▼しんじ さん:
再現しました。
どうもrowsouseを使うとfilterをかけるとchangeイベントが2度おこる
ようですから、おかしな事になっているような気がします。
面倒なので追及はしてません。
AddItemを使ってみました。
新規Bookで
Sheet1の
A1にfield1 B2にfield2
A2:A11に1〜10、B2:B11に2〜11を入力
userformを新規作成、comboboxを配置
以下をコピペ
/////////////////////UserFormモジュール///////////////////
Option Explicit
Private Sub UserForm_Initialize()
Dim i As Long
With Me.ComboBox1
For i = 1 To 11
.AddItem i
Next i
End With
With Worksheets("Sheet1")
If .FilterMode = True Then
.AutoFilterMode = False
End If
End With
End Sub
Private Sub ComboBox1_Change()
Dim 検索 As Variant
検索 = ComboBox1.Text
With Worksheets("Sheet1")
.Range("A1").AutoFilter Field:=2, Criteria1:=検索
End With
End Sub
|
|