• ベストアンサー

エクセルＶＢＡで改ページの挿入の記述方法を教えてください

エクセルで選択したセルの下の行にに改ページを挿入するためのＶＢＡの記述方法を教えてください

質問者が選んだベストアンサー

  • ベストアンサー
  • okormazd
  • ベストアンサー率50% (1224/2412)
回答No.1

普通は、 Selection.PageBreak = xlPageBreakManual で、 選択したセルの上に改ページを挿入する。 わざわざ下に入れるなら、 r = Selection.Row Rows(r + 1).PageBreak = xlPageBreakManual とでもするか。

0523momo
質問者

お礼

ありがとうございました どうしても下に入れたかったので

その他の回答 (1)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

こんなのを、ここに質問するまでもなく、マクロの記録をとって マクローマクロー編集で見れば、すぐ判ります。 VBAで何かあったら、まずマクロの記録は役に立たないかと考えてください。 操作は セルを選択 挿入 改ページ 結果例 Sub Macro1() Range("B5").Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell End Sub HPageBreaksかVPageBreaksかどちらか不要ならコードを抹消。 -- またWEB照会もすべきです。検索語は 「エクセル　改ページ　VBA」

0523momo
質問者

お礼

すみませんでした。 今度はもっと探してから 質問します

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • エクセルＶＢＡの記述について

    ＯＳはＷｉｎ９８、エクセル２０００です。 次の処理をＶＢＡで処理したいのですがうまく作動しま せん。 ご教授願います。 セルＡ１から下に向かって１から２０までランダムに数 値が入ってます。 同じ数値は無く、数値も３行（セルＡ３）で終わる場合 も有ります。 この場合セルＣ１から下に向かって順にＡ１＆Ａ２、Ａ １＆Ａ３と記述したいのですが・・・ 例） Ａ１に５、Ａ２に７、Ａ３に１５、Ａ４に１０でしたら Ｃ１に５７、Ｃ２に５１５、Ｃ３に５１０、Ｃ４に７１５ Ｃ５に７１０、以下・・・と記述 よろしくお願いします。m(_ _)m

  • エクセルで複数行に一度に改ページを挿入する方法

    エクセルで2行ごとに、一気に改ページを挿入する方法があればおしえてください。 全部で50の改ページを挿入しなければならないので、いちいち挿入する行を選択して改ページを入れるのは面倒で。 マクロも考えていますが、マクロ以外で方法はないでしょうか？ ためしに、複数行選択して、改ページを挿入してみたら、最後の選択行にしか改ページが入っていませんでした。 2行ごとという規則性があるので、何か方法がありそうですが…。 よろしくお願いします。

  • EXCEL　改ページ自動挿入方法を教えてください。

    EXCELで「改ページ」をデータが変る都度 自動的に挿入する方法はありますか？ ハンドでいちいち設定するのが非常に手間です。 ご存知の方、是非教えてください。 例 <データ> １１１ １１１　←この行で改ページ自動挿入 ２２２ ２２２　←この行で改ページ自動挿入 ３３３　←この行で改ページ自動挿入 ４４４　←この行で改ページ自動挿入

  • エクセルVBA

    選択しているセルが1セルの場合は、その行を1行ごと、 例えばB10にセルがあれば、10行めを行コピーして11行めに、行挿入、 選択しているセル範囲が3セルの場合は、そのセルのある3行をコピーして 例えばB10:B13を範囲選択していたら、10～13行めを行コピーして、 14行めに3行まとめて挿入するようなマクロ作るには、 どのように記述したらいいでしょうか？ コピー元には、計算式を含むセルがあります。 貼り付け先には、その計算式もコピペされているとベストなんですが・・・

  • Excel VBAでの関数の使い方を教えてください

    いつもお世話になっております Excelシートのあるセルに、 =COUNTIF(K321:K336,"○") のような関数を挿入してあります。 行挿入する毎に、K321:K336の範囲指定部分を １つずつ増やしていきたい（k322:k337のように・・）のですが VBAでは、どのように記述すればよいのでしょうか よろしくお願いします

  • エクセルＶＢＡセルの選択、挿入でズレた時に自動修正

    エクセルのVBAで、セルＡ１を選択します Sub Macro1() Range("A1").Select End Sub 別の作業でＡ列に1行挿入すると 自動的にセルＢ１を選択してくれないと困るのですが、どうすれば良いのですか？

  • VBAのプロシージャの記述について

    Sub データ検索() Dim myNo As Variant Dim mykekka As Range myNo = InputBox("機番Noを入力してください。", "機番No入力") Cells.Find(What:=myNo, LookAt:=xlPart).Select End Sub 上記のような検索のプロシージャを記述しました。 セルB(機番）を検索して該当の単一セルが選択されるまでは、記述出来たのですが、選択された単一セルの行（A～W)を取得して、下の空白の行にコピーしたいのですが、選択された単一セルの行（A～W)の取得の仕方が分かりません。 VBAを始めたばかりなので、質問の内容が分かりにくいかもしれませんがアドバイスよろしくお願いします。

  • エクセルVBAについて

    エクセルVBAについて range("B5") = 1行の、選択したセルの値 というようなマクロを作成したいと思っています。 というのも、B5セルの値が、1行で選択したセルの値に変化できればと思っています。 ちなみに下のようなコードを書いてみたのですが、うまくいきません orz Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("B5") = Rows(1).ActiveCell.Value End Sub 初心者で申し訳ありませんが、よい方法がありましたら、 よろしくお願いいたします。

  • エクセルで改ページを連続挿入方法

    エクセルで、任意の場所に改ページを一括で挿入できる方法はないでしょうか？ 入れたい場所をctrlキーを押しながら選択をし、改ページの挿入をしてみたのですが全く出来ませんでした。 どうぞよろしくお願いします。

  • EXCEL VBAのオフセットの使い方について

    EXCEL VBAのOffsetの使い方で質問があります。 (1)選択したセルをコピーする (2)選択したセルの下１０行全部に貼り付ける という処理をしたいのですが、 i = Selection.Address With Range(i) .Copy .Offset(10, 0).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats End With というコードだと、１０行下のセルのみに貼り付けがされてしまい、 下１０個のセル全部に貼り付けができません。 Range()を使うのではないかと思ったのですが、うまく出来ませんでした。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する