- ベストアンサー
【Excel】 改ページ箇所を設定するVBA
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
そのシートのタブ（シートの下の"Sheet1"とかあるところ）を右クリックして、 「コードの表示」をクリックします。 MicrosoftVisual Basic というウインドが 開くので、右側の真っ白けのところに次のコードをコピー・貼り付けをします。 ★★エラー処理等は考えていませんので、バックアップを取ったファイルで試してください。★★ '----------------ここから Sub test() Dim R As Long Dim RMax As Long RMax = Range("B65536").End(xlUp).Row For R = 2 To RMax If Cells(R, 2) <> Cells(R - 1, 2) Then ActiveSheet.HPageBreaks.Add before:=Cells(R, 1) End If Next R End Sub '----------------ここまで 元のエクセルの画面にもどって、メニューから ツール－マクロ-マクロ とすすみ、 Sheet1:test を選択して「実行」をクリックします。
関連するQ&A
- 【Excel】 改ページ場所を設定するVBA
こんにちは Ａ列 Ｂ列 品番 色 1000 赤 1000 黄 1001 黄 1001 青 1002 青 1002 赤 ・ ・ ・ このような表があります。 これを、 ----------------- 品番 色 1000 赤 1000 黄 ----------------- 品番 色 1001 黄 1001 青 ----------------- 品番 色 1001 黄 1001 青 ----------------- や、 ----------------- 品番 色 1001 青 1002 青 ----------------- 品番 色 1000 赤 1002 赤 ----------------- 品番 色 1000 黄 1001 黄 ----------------- の様に 品番毎や、色毎に改ページしてプリントする方法を教えて下さい。 VBAで設定できるみたいなのですが、VBAは初心者です。 設定方法を教えて頂けないでしょうか。 Excel2007です。
- ベストアンサー
- オフィス系ソフト
- エクセル2003のVBAを教えて
エクセル2003のVBAを教えてください。 次の対象データで、(1)(2)(3)の作業が出来るエクセルVBAを教えて下さい。 (1)(2)(3)個々のVBAでお願いします。 ●対象データ：種類(A列)、文字(B列)、 データの行数：不特定なので、データのある最終行までとします。 ●教えていただきたい項目 (1)：種類だけを(C列)に取り出す。 (2)：種類の先頭に空白の行を3行入れて、追加の２行目の種類(A列)に文字(B列)を入れる。 (3)：種類が5行以上あるときは、5行ごとに空白行を追加する。 ●対象データ 種類(A列) 文字(B列) AA あああ BB いいい BB いい BB いいい CC うう CC うう DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ ●(1)のVBAの結果(このようになるVBAを教えてください。) (C列) AA BB CC DD ●(2)、(3)のVBAの結果(このようになるVBAを教えてください。) 種類(A列) 文字(B列) あああ AA あああ いいい BB いいい BB いいい BB いいい うう CC うう CC うう ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ
- ベストアンサー
- Visual Basic
- 【Excel2003】改ページについて
A列：都道府県名 （昇順） B列：市区町村名 （昇順） でソートされているシートがあります。 印刷時に、B列の値が変わったら改ページさせる方法はありますでしょうか？ 要は、市区町村名が変わったら改ページしたい、市区町村別に別ページで印刷したいのですが。 教えていただけますでしょうか？ よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 改ページ条件を簡単に設定する方法
大変困っております。 データベースのある列を指定して、入っている値が変われば改ページという設定をしたいのですが、調べてもなかなか出てきません。いくつか答は見つかったのですが、VBAを書いて実現する方法ばかりで、初心者の私にはチンプンカンプンです。 なんとか、上記のしくみをマクロなどで簡単に実現する方法はないでしょうか？お願いします！！
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA Byte型に"0"を付けたい
EXCEL VBAにてあるセルの値をByte型の16進数に 変換していますが、変換後の値の頭に"0"が付かなくて 困っています。 Dim a As String Dim aa As String Dim b As Byte Dim bb As Byte a = Val("&H" & Cells(1, 1)) aa = Format(a, "00") b = aa bb = Format(b, "00") 変数など簡略化していますが、こんな感じです。 最後の"bb"の中身が、例えば"01"ではなく"1"と なってしまっています。 バイナリエディタで表示した時に、"111"ではなく "010101"と表示させたいのですが、、、 この方法にこだわっている訳ではないので 他の方法も含めて、ご教示お願いします。
- ベストアンサー
- Excel（エクセル）
- ＥＸＣＥＬ ＶＢＡ
はじめまして。ＥｘｃｅｌのＶＢＡについて質問させて頂きます。 - A-B-C １ 0 あ ２ 0 い ３ 1 う ４ 1 え ５ 1 お 上記のようなデータに対して、A列の値が１の場合、B列の値をC列へコピー して、B列をゼロにする。A列の値が０の場合は、そのまま。 （結果） - A-B-C １ 0 あ ２ 0 い ３ 1 0 う ４ 1 0 え ５ 1 0 お といったようにＶＢＡを作成したいのですが、なにぶん初心者なもので、 どのように記述すればよいのかわかりません。 よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- Excel 複雑なセル埋めのVBA
エクセルで入力済みのデータをテーブル形式にするためにVBAを組んでいますが突き当たりました、お知恵を拝借させてください。現在成形出来ているのは以下の状態です。 A列 B列 C列 1行 AA 2 1 2行 3行 BB 3 2 4行 5行 6行 7行 8行 9行 CC 2 3 10行 11行 12行 13行 14行 これを以下のようにB列を埋めたいと考えています。A列を埋めるVBAは当方で分かります。 A列 B列 C列 1行 AA 1 1 2行 AA 2 3行 BB 1 2 4行 BB 2 5行 BB 3 6行 BB 1 7行 BB 2 8行 BB 3 9行 CC 1 3 10行 CC 2 11行 CC 1 12行 CC 2 13行 CC 1 14行 CC 2 B1に2が入っていてC1に1が入っているときはB1から下へ1，2の連番を1回入れます、B3に3と入っていてC3に2と入っているときはB3から下へ1,2,3の連番を2回繰り返します、同じようにB9以降も処理しています。連番のスタートは必ず1で、現在B列に入っている数字が連番の最後に当たる数値でC列が繰り返し回数という事です。上の例ではB列を書き直していますが、新たにD列にB列に入れたい連番の列を作る方法でもいいと思っています。 もし表が崩れていたら済みませんでした。恐れ入りますがポインタでも結構ですのでご教授下さい、よろしくお願いします。
- 締切済み
- その他(業務ソフトウェア)
- Excel2010 VBAにて印刷設定の取得
Excel2010 VBAにてマクロを作成しております。 Excel2010のメインウィンドウの「ファイル」タブ→「印刷」の 画面におきまして、[設定]欄にて設定したページ指定(印刷開始ページ及び 印刷終了ページ)は取得できるのでしょうか？ Workbook_BeforePrintプロシージャにて取得しようと思っているのですが、 ActiveSheet.PageSetupのメンバやThisWorkbookのメンバを見たところ、 印刷の開始ページ及び終了ページの設定が見つかりませんでした。 印刷のページ指定の設定箇所をご存知の方がいらっしゃいましたら 教えて頂きたく宜しくお願い致します。
- ベストアンサー
- その他MS Office製品
- ● Excel VBAでの計算処理
● Excel VBAでの計算処理 超初心者です。いろいろ研究したのですが、よくわかりません。 ＶＢＡに詳しい方、是非をお教えください。VBAでやりたいことは以下のことです。 (1)あるブックのSheet1、Ａ列の項目の特定のキーワード（例えば”数量”）を検索条件にしてデータを検索し、その行の複数の列（例えばＡＡ列からＣＣ列）の数値データに－１を掛けて正の数をすべて負の数にする。 (2)上記(1)の結果を別のブックの”計算結果”というシートに抽出する。 (3)元のブックには”数量”のほかさまざまなキーワードが設定されたデータが混在しています。また、計算の対象となる列のはじまりと終わりは特定できる。しかし、もとのブックの行数（データ件数）は特定できないとします。 イメージとしては、 元のブックにあるデータ） Ａ列 Ｂ列 Ｃ列 ・・・・・ ＡＡ列 ・・・・ ＣＣ列 数量 ５０００ ２３７６ 数量 １２３４ ９９３２ 金額 ３００００ ２０９９ 結果が抽出されたブックのイメージ（結果は別のブックに抽出される） Ａ列 Ｂ列 Ｃ列 ・・・・・ ＡＡ列 ・・・・ ＣＣ列 数量 －５０００ －２３７６ 数量 －１２３４ －９９３２
- ベストアンサー
- Visual Basic
お礼
早速回答頂きありがとうございました。 手順まで丁寧に教えて頂きありがとうございました。 大変上手くできました。 手動でやっていたらどうなっていたでしょうか・・・。 ありがとうございました。