|
▼まだまだ初心者 さん今晩は。
>このモジュールは、frm1のcbx絞り込み(コンボボックス)をクリックしたときに動作させています。
>やはりどこが違うのか分からず、困っています。
シート1のA列に下記データがあるとして
data1
a
a
b
b
c
c
下記コードの動作を確認しました。
下記コードをUserForm1に貼り付けて確認してください。
Private Sub UserForm_Initialize()
'''''''''''''''''''''''''''''''''''''''
'確認が終わったら削除してください
Me.cbx絞込み.List = Array("a", "b", "c", "d", "e")
'''''''''''''''''''''''''''''''''''''''
End Sub
Private Sub cbx絞込み_Change()
検索データ取得
Worksheets("1").Range("A1").AutoFilter
Unload Me
Sheets("2").Select
End Sub
Sub 検索データ取得()
Dim i As String
Dim j As Variant
Dim l As Long
Dim m As String
i = Me.cbx絞込み.Text
'''''''''''''''''''''''''''''''''''''''
'確認が終わったら削除してください
Sheets("1").Range("B116").Value = 1
'''''''''''''''''''''''''''''''''''''''
j = Sheets("1").Range("B116").Value '絞込みの対象列の指定番号
Sheets("2").Cells.Clear '追加
With Sheets("1") 'コピー元のシート
.Range("A1").AutoFilter Field:=j, Criteria1:=i
.Range("A1").CurrentRegion.SpecialCells(xlVisible).Copy
End With
'コピー先のシート
Sheets("2").Range("A1").PasteSpecial Paste:=xlValues
End Sub
|
|