エクセルVBAでデータ転記のコードを作成しています。
オートフィルタで希望の値で検索できずに困っています。
オートフィルタで変数の値を検索
データ検索→検索データを別なシートへ貼付→変数の値を変更→データ検索・・・
For Each ループ で変数の値を変更していきます。
動きとしては思っているように動いてくれるのですが
オートフィルタのデータ検索時に
変数に代入された値ではないもので検索されてしまいます。
変数はkubun=Array("引揚","設置")
ローカルウインドで変数の値を確認すると
変数の値は”引揚”なのですが
オートフィルタで検索されるデータは”設置”になっていしまいます。
変数値”設置”の時は”設置”でデータ検索されます。
検索条件をArray(”引揚”,”設置”,”中止”)でためしたところ
変数値”引揚”,”設置”のときの
オートフィルタ検索条件は”中止”になっています。
変数は順番に希望の値が代入されますが
オートフィルタ検索条件がすべて
最後に記載した値になってしまいます。
エラーはとくに表示されません。
office2010 windows7
なぜこのようになってしまうかわからず困っております。
皆さまのお力添えをいただきたく質問させていただきます。
よろしくお願いします。
エラーメッセージ
該当のソースコード
Dim r As Integer, kubun As Variant, k As Variant, i As Integer
kubun = Array("引揚", "設置")
For Each k In kubun Worksheets("データ").Range("A1").CurrentRegion.ClearContents With Worksheets("作成用データ") .Select .Range("A1").CurrentRegion.AutoFilter field:=16, Criteria1:=kubun
↑
' Criteria1:=kubunの値は”引揚”になっているのに検索条件は”設置”になってしまう
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("データ").Range("A1")
.Range("A1").AutoFilter
End With
・
・
・
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/02/08 06:50