会社で契約書の終了日を見て、終了日の3か月前になったらそのデータを別シートに抽出できるようにマクロを考えています。
マクロの記録といろいろ調べ、一度下記のマクロを作成し、テストしたところうまくいったのですが、本番環境でマクロを利用したところエラーが出て利用ができませんでした。
テスト環境と本番環境で大きく違うのが、タイトル行(画像だと4-5行目)が2行になっており、ほとんどのセルでセルの結合がされているとこかと思います。
普通にオートフィルターをかえても4行目(上の行)にフィルターがかかってしまい、5行目でオートフィルターが利用できません。(一度解除してやり直してみましたが、結果は同じ4行目にフィルターがかかりました)
Sub 更新確認マクロ()
'
Selection.AutoFilter
Range("A4").CurrentRegion.AutoFilter Field:=11, Criteria1:="Check"
Range("A4").CurrentRegion.Copy Sheets("Sheet2").Range("A1")
Selection.AutoFilter
これをタイトル行が2行ある場合のVBAの書き方などヒントも含めあれば教えていただけないでしょうか。
VBA初心者でいくつか調べてみたのですが、どれもうまくいかず。。。
よろしくお願いします。
Windows7/Excel2010利用
No.2ベストアンサー
- 回答日時:
見出しの下の行にフィルタをかければ、いけるのでは…。
こんな感じです。
Sub 更新確認マクロ()
'
Rows(5).AutoFilter
Range("A4").CurrentRegion.AutoFilter Field:=11, Criteria1:="Check"
Range("A4").CurrentRegion.Copy Sheets("Sheet2").Range("A1")
Selection.AutoFilter
End Sub
こちらのやり方で、無事に希望のものが出すことができました!
ありがとうございます。
下の行にフィルタをかければいいのでは?と思いついたのですが、まだまだマクロ勉強中ですぐに思いつかず…
すぐの回答をいただけ、大変助かりました。ありがとうございました。
No.1
- 回答日時:
もともと、基本的なオートフィルタの使い方をしていないのですから、マクロを使って、オートフィルタを使いたいとか言っても無理ではないでしょうか。
>タイトル行が2行ある場合のVBAの書き方
そういう書き方というのはないと思います。
FとG の結合セル部分を戻して、5行目の間隔を広げ、添付図のように、テキストボックスを組み合せ、契約日と終了日の書式を下に下げれば同じようになるはずです。
Excel は、本来、データベースの機能を持っていますが、イレギュラーに使い方は、反応しないのです。
アドバイスありがとうございました。
やはり正しい使い方ではないので、簡単にはいかないですよね。
私が作っているファイルではなく、こういったことできないかと相談されたもので勝手に形式を変更できず悩んでこちらに相談しました。
今後のためにも、教えていただいた方法などをしてオートフィルターそのものを利用するのにも、見出しは1行で作ったほうがいい旨伝えてみようかと思います。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Visual Basic(VBA) ExcelVBA ドロップボックスで月を選択するとそれ以降のデータが残るようにしたい。 3 2022/12/16 14:53
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
エクセルのオートフィルタで最初の数行を残してフィルタをしたい
Excel(エクセル)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
-
4
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
5
EXCELのVBA-フィルタ抽出後のセル選択方法
Visual Basic(VBA)
-
6
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
7
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
8
VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。
Visual Basic(VBA)
-
9
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
10
ShowAllDataのエラーを回避したい
Access(アクセス)
-
11
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
12
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
13
指定のWORKBOOKを前面表示する方法(エクセル:VBA)
Excel(エクセル)
-
14
VBAを何回も作り直して、容量が増えた
Excel(エクセル)
-
15
結合したセルのオートフィルターをVBAで。
Excel(エクセル)
-
16
UserForm1.Showでエラーになります。
工学
-
17
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
18
EXCEL VBAで複数シートから該当列のみを別シート列方向に順番に貼り付け
Visual Basic(VBA)
-
19
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
20
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
2つのマクロでチェックボックス...
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
エクセルのマクロについて教え...
-
Excelのマクロについて教えてく...
-
VBA初心者 Ctrl+での操作、ボタ...
-
エクセルのマクロについて教え...
-
ExcelのVBA。public変数の値が...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
Access2007マクロで値の代入が...
-
特定のPCだけ動作しないVBAマク...
-
マクロの記述を非表示(隠した...
-
エクセルで特定の列が0表示の場...
-
エクセルのマクロについて教え...
-
エクセルでマクロの実行回数を...
-
エクセルで縦に並んだデータを...
-
エクセルのマクロについて教え...
-
マクロを使って結合セルに丸を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報