Excel VBA 改ページの設定をするマクロについて

こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、電話占いでの現場、最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はＥＸＣＥＬＶＢＡについて発信したいと思います。こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながると思います。少しずつ発信していってその手助けができれば幸いだと思っています。今回は改ページの設定をするマクロについてです。

Sub　改ページ設定()
Dim 行 As Integer
Sheets(“△△△”).PageSetup.PrintArea = “$A$1:$P$10” ①
行 = 50 ②
Sheets(“△△△”).PageSetup.PrintArea = “$A$1:$P$” & 行 ③
End Sub

①は通常の範囲指定です。セル番地Ａ１からＰ１０がプリントエリアになります。
②は行と言う変数に５０と言う数字を入れます。
③はセル番地Ａ１からＰがプリントエリアですが、②で指定した行と言う変数に５０が代入されているので、セル番地Ａ１からＰ５０がプリントエリアになります。分かりますでしょうか？少し難しいと思いますが、まずは理屈よりも形を覚えてください。理論は後でいいです。
以上、今回は改ページの設定をすると言うマクロでした。次回もまたよろしくお願いします。

Xserverドメイン

■━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━□

┃現在実施中の「.earth 割引キャンペーン」について　　　　　　　　　┃

□━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━■

■キャンペーン期間

　2022年4月22日(金)10:00 〜 2022年7月29日(金)17:00

■キャンペーン対象

　期間中、新規取得お申し込みを行った「.earth」ドメイン

■キャンペーン内容

　ドメイン取得料金

　.earth　2,288円　→　600円

　◇ドメイン取得はこちらから

https://secure.xserver.ne.jp/xinfo/?action_register_domain_index=true

———————————————————————-

そのほか、実施中のキャンペーン詳細については、以下よりご確認ください。

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

　『Xserverドメイン』で実施中の、

　《サービス契約者向け》キャンペーン！

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

　ぜひこの機会に『Xserverドメイン』の、

　ご紹介内容の拡充をご検討ください！

　——————————————————————–

　【キャンペーン名】　　：ドメイン《1円》大放出キャンペーン

　【対象サービス】　　　：Xserverドメイン

　【キャンペーン期間】　：2022年7月1日(金) 〜 2022年9月30日(金)

　【キャンペーン内容】　：「.com」「.net」など人気ドメイン3つに、新しく4つを加えて

　　　　　　　　　　　　　合計7種類のドメインが驚きの《1円》で取得できます！

　【キャンペーンページ】：https://www.xdomain.ne.jp/news_detail.php?view_id=9326

格安・便利なレンタルオフィス・コワーキングスペース「アントレサロン」

コメントを残す コメントをキャンセル

コメントを残すコメントをキャンセル