|
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
>
>となります。
>
>
>そちらでも、そうなりますか?
>なりませんか?
|
|