Q&A
①～③すべてがわからないのですか？わかっているところ、できているところはコードを提示して、「ここがわからない」と明示したほうがよいですよ。
#実現したいこと
Excel2010を使用し、ブックを２つ開きます。
ブックA：xls互換形式にて保存されています
ブックB：xlsm形式で保存しておりこちらのブックでマクロの記入を行います。
###処理の流れ
①ブックAのSheet1(任意のシート名)をアクティブシートにします。
②コードでフィルターを適用します
※フィルターはG行にあり、フィルターを適用するとフィルター条件を満たした行のみ表示されます
③Cells指定にて、行移動を行います
※この際に、できればフィルター指定後に非表示になった行を飛ばしたいと考えております。
ネットで調べても出てきませんでした。
検索方法が悪いのかもしれませんが…。
②と③です。③は非表示行を飛ばすタイプがわからないです
③の意味がわからないです。飛ばすとは、カーソルを？どこに？最終行？
1行目が表示されていて、次の表示行が5行目のばあいは、２～４行目にはカーソルを当てず、5行目に直接移動するという処理をしたいです。
② 条件を満たした行が残るのであれば、フィルターをかけるのは G列 に対してです。 行と列の意味はご存知ですか？？？
フィルターをかけた時に、フィルター適用後に表示になっているか、非表示か判定することは可能でしょうか？
「VBA セル移動 オートフィルタ」を Google で検索するとそのものずばりが一ページ目にいくつも出てきます。Google はご存知ですか？ http://google.jp でアクセスできる大変有名なページです。便利ですからぜひブックマークしておいてください。
回答3件
0
ベストアンサー
①以外。
VBA
1 ' ② 2 Range("G:G").AutoFilter 1, "フィルターキーワード" 3 ' ③ 4 Range("G1").Select 5 Do 6 ActiveCell.Offset(1, 0).Activate 7 If Not Rows(ActiveCell.Row).Hidden Then Exit Do 8 Loop
投稿2017/05/24 07:43
編集2017/05/24 07:43総合スコア16998
0
ヒントだけ提示しますので、それで調べてできるとこまで自分でコードを書いてください。それでうまくいかない場合は、書いたコードと、どこでどのようにうまくいかないか、追記してください。
①ブックAのSheet1(任意のシート名)をアクティブシートにします。
たいていはアクティブにする必要はないです。遅くなるだけです
WorkBooks("ブックA").Worksheets("Sheet1").Range("A1") というように参照してそれに直接処理するようにします。
②コードでフィルターを適用します
※フィルターはG行にあり、フィルターを適用するとフィルター条件を満たした行のみ表示されます
AutoFilterメソッドを使うことになると思います。それをキーワードに調べてみてください。
③Cells指定にて、行移動を行います
※この際に、できればフィルター指定後に非表示になった行を飛ばしたいと考えております。
行移動というのが具体的に何を意味しているのか不明瞭です。
とりあえず、下記辺りが参考になりませんか。
投稿2017/05/24 07:01
総合スコア33715
あなたの回答
tips
プレビュー
