Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51724 / 76732 ←次へ | 前へ→

【29870】Re:コンボボックスから抽出
質問  琴葉  - 05/10/15(土) 9:50 -

引用なし
パスワード
   おはようございます。昨日はありがとうございます。
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")

0 hits

【29817】コンボボックスから抽出 琴葉 05/10/14(金) 10:48 質問
【29820】Re:コンボボックスから抽出 Jaka 05/10/14(金) 11:24 発言
【29826】Re:コンボボックスから抽出 琴葉 05/10/14(金) 13:39 質問
【29851】Re:コンボボックスから抽出 Jaka 05/10/14(金) 17:27 回答
【29870】Re:コンボボックスから抽出 琴葉 05/10/15(土) 9:50 質問
【29943】Re:コンボボックスから抽出 Jaka 05/10/17(月) 13:54 回答
【30004】Re:コンボボックスから抽出 琴葉 05/10/18(火) 8:10 お礼
【29876】Re:コンボボックスから抽出 琴葉 05/10/15(土) 11:58 質問

51724 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free