|
おはようございます。昨日はありがとうございます。
With .AutoFilter.Range
.Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Select'ここでエラーが出てしまうので
とりあえず下記のように、してみたのですがこれですと4行目がCombo科目.Text尚且つ6行目が
Combo科目.Textであるもの(両方を満たすもの)・・・・となってしまうのですが
4行目か6行目のどちらかがCombo科目.Textであるもの・・・を抽出するにはどうしたらよろしいでしょうか?
よろしくお願いいたします。
Private Sub CommandButton1_Click()
With Sheets("【仕訳帳】")
.AutoFilterMode = False
With .Range("A1")
.AutoFilter Field:=1, Criteria1:=">=2005/10/1", Operator:=xlAnd _
, Criteria2:="<=2005/10/31"
.AutoFilter Field:=2, Criteria1:=Combo工番.Text
.AutoFilter Field:=4, Criteria1:=Combo科目.Text
.AutoFilter Field:=6, Criteria1:=Combo科目.Text
End With
End With
End Sub
この方がスマートなのでこれにしました。
>Combo月.List = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")
|
|