Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13266 / 76734

←次へ　｜　前へ→


	【68974】Re:AutoFilter

ﾄｷﾉﾊｼﾞﾒ - 11/5/4(水) 11:15 -


	引用なし

	パスワード

kanabun さん：提示の通りになりました。

流れが良く理解できました。
長々と時間を取り本当に有難うございました。
いろいろアレンジをしてコードを埋めてみます。
また質問が出るかもしれませんが、どうぞ宜しくお願いいたします。

新規にBookを追加し、そのSheet1 の3行目から
>以下の表を作成してください。
>
>>　　A　　B　　 C　　 D
>>1　
>>2　（空白行）
>>3　名前　番号　算数　国語
>>4　東京　1番　　75　　80
>>5　京都　2番　　 55　　75
>>6　渡邉　15　　 85　 100
>>7　大島　 2　　 60　　80
>
>
>つぎに、標準モジュールを挿入し、
>そこに以下をコピペしてください。
>'---------------------------------- 標準モジュール
>Option Explicit
>Sub Test1()
>　Dim S1 As String, S2 As String
>　
>　S1 = "東京"
>　S2 = "1番"
>　With Sheet1.Range("A3").CurrentRegion
>　　　.Worksheet.AutoFilterMode = False
>　　　.AutoFilter 1, S1
>　　　.AutoFilter 2, S2
>　　　MsgBox "OK?"
>　　　.AutoFilter
>　End With
>End Sub
>
>Sub Test2()
>　Dim S1 As String, S2 As String
>　
>　S1 = "京都"
>　S2 = "2番"
>　With Sheet1.Range("A3").CurrentRegion
>　　　.Worksheet.AutoFilterMode = False
>　　　.AutoFilter 1, S1
>　　　.AutoFilter 2, S2
>　　　MsgBox "OK?"
>　　　.AutoFilter
>　End With
>End Sub
>
>Sub Test3()
>　Dim S1 As String, S2 As String
>　
>　S1 = "*京*"
>　S2 = "*番"
>　With Sheet1.Range("A3").CurrentRegion
>　　　.Worksheet.AutoFilterMode = False
>　　　.AutoFilter 1, S1
>　　　.AutoFilter 2, S2
>　　　MsgBox "OK?"
>　　　.AutoFilter
>　End With
>End Sub
>
>コピーしたら、一応
>VBEメニューの[デバッグ]-[VBAプロジェクトのコンパイル]でコンパイルし、
>3つの Testプロシージャを実行してみてください。
>
>'▼Test1() を実行すると、
>名前　　　　番号　　　　算数　　　　国語
>東京　　　　1番　　　　75　　　　80
>となります。（ただし、MsgBoxで[OK]を押すと、フィルタは解除されますが）
>
>'▼Test2() を実行すると、
>名前　　　　番号　　　　算数　　　　国語
>京都　　　　2番　　　　55　　　　75
>となります。
>
>'▼Test3() を実行すると、
>名前　　　　番号　　　　算数　　　　国語
>東京　　　　1番　　　　75　　　　80
>京都　　　　2番　　　　55　　　　75
>
>となります。
>
>
>そちらでも、そうなりますか？
>なりませんか？

6 hits

▼

【68955】AutoFilter ﾄｷﾉﾊｼﾞﾒ 11/5/2(月) 14:56