| |
▼ﾄｷﾉﾊｼﾞﾒ さん：
>.Range("V45").Value = Worksheets(ShtName1).Range("E2").Value・・・東京
>.Range("W45").Value = Worksheets(ShtName1).Range("H2").Value・・・1番
>
>上記の物で E2 H2 は V45 W45 にそのまでてきています。
↑おっしゃることがよく分からないので、
もっと簡単なテストをしてみましょう。
新規に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
となります。
そちらでも、そうなりますか？
なりませんか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
