- ベストアンサー
Excelのマクロで改ページを設定する
A列に"○"が付いている行で改ページを行う、というマクロを 作りたいと思っています・・・というか過去に、ネット上で 紹介されているマクロを参考に作った記憶はあるのですが、 そのファイルも見つからず、また、参考にしたサイトも見つからず、 ちょっと困っています。 参考になるサイト等ご存じでしたら教えていただけると幸いです。 厚かましいお願いをするならば、もちろん直接教えていただけるのも 大歓迎です。 よろしくお願いいたします。
- yama_x
- お礼率35% (308/875)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
With Worksheets(1).Range("a:a") Set mRange = .Find("○", LookIn:=xlValues) If Not mRange Is Nothing Then firstAddress = mRange.Address Do ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=mRange.Offset(1, 0) Set mRange = .FindNext(mRange) Loop While Not mRange Is Nothing And mRange.Address <> firstAddress End If End With でいかがでしょう
関連するQ&A
- エクセルのマクロについての質問です。
エクセルのマクロについての質問です。 長文申し訳ございません。 Ｅｘｃｅｌマクロが何度作り直してもうまく作動せず非常に困っております。 (1)ファイルＡのシート１のＤＢ列3行目に1の値をいれます。 (2)ファイルＡのＤＣ列172行目の値をファイルＢのシート名が「1」のシートのＤ列4行目に入れます。 (3)ファイルＡのＤＣ列2733行目の値をファイルＢのシート名が「1」のシートのＤ列6行目に入れます。 (4)ファイルＡのＤＣ列3128行目の値をファイルＢのシート名が「1」のシートのＤ列7行目に入れます。 (5)ファイルＡのシート１のＤＢ列3行目に1.2の値をいれます。 (6)ファイルＡのＤＣ列172行目の値をファイルＢのシート名が「1.2」のシートのＤ列4行目に入れます。 (7)ファイルＡのＤＣ列2733行目の値をファイルＢのシート名が「1.2」のシートのＤ列6行目に入れます。 (8)ファイルＡのＤＣ列3128行目の値をファイルＢのシート名が「1.2」のシートのＤ列7行目に入れます。 (9)以上のようにファイルＡのシート１のＤＢ列3行目に入れる値を0.2ずつ増やしていき、その値に対応したファイルＢのシートに上記のように値を入れていくという動作を20まで繰り返す。 以上のようなマクロを作る事は可能でしょうか？ マクロについて勉強はしているのですが上手く使いこなせず苦労しております。 長文の質問で大変申し訳ございませんがよろしければ皆さまのお知恵をお貸しください。 宜しくお願い致します。
- 締切済み
- Visual Basic
- Excelマクロでセルの比較
Excelマクロでセルの比較 まだマクロ初心者なので、詳しいことがわからなくて困っております。 例）●前提として何行目まであるかは変化します （A列）（B列） （1行目） 35 35 （2行目） 26 26 （3行目） 13 13 （ｎ行目） 12 12 ※n=最終行 【やりたいこと】 このようにシートに入力されていたとして、 「A1=B1？」⇒「A2=B2?」⇒「A3=B3?」⇒「An=Bn?」と比較を進めていき不一致の有無を出す。 もし不一致がなければ、そのまま通過しその次のマクロを実行していく。 不一致があった場合には、不一致の行を別ファイルに出力してファイル保存し、ファイルを閉じる。 マクロを実行している元のファイルは、保存せずにファイルを閉じる） 行の長さが変化するため、その変化にも対応した処理を実行したいと思っております。 本やサイトで調べてみたのですが、基礎知識がないためうまく処理をさせるマクロを作ることが出来ませんでした。 このようなマクロが可能なのかもわかりませんが、出来ましたらこのマクロを教えていただけますでしょうか。 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel、改ページ、マクロ
A列に数値が入ってたら、そのセルの上に改ページを入れたいです。 A列には数値か空白のセルがあります。 数値が変わったら改ページというマクロだと、数値が入ってるセルの上下に改ページがはいってしまいます… どのようにしたらいいか、教えてくださいm(_ _)m 宜しくお願い致します。
- ベストアンサー
- Excel（エクセル）
- 【エクセル・マクロ】 繰り返し貼り付けがしたいです
仕事で、大量のコピペをしなきゃいけなくなり、 マクロを組みたいのですが、素人でよく分からず投稿させて頂きました。 宜しくお願い致します。 参考画像のように、 A列にあるデータを、B列の数に合わせて C列（色付けしてある列）に繰り返し貼り付けをしたいのです。 ※参考画像では、分かりやすいように姓名にしてありますが、 本当は文章とか数字とかを使います。 参考画像ではA列に５行分、B列に２０行分しかありませんが、 本当はA列に５０行分、B列に３，０００行分あります。 ですから、A列の５０行を、３，０００÷５０＝６０回も貼り付けするのが面倒で、 ３，０００という数字も、毎回１，０００～１０，０００と変動するので、 今後のことを考えると、マクロを組んだ方が早いのでは、と思いました。 また、欲を言えば、A列に数式を入れていることもあり、 C列に数式の繰り返し貼り付けをおこないたいのですが、 これは難易度がぐっと上がるのでしょうか？ 他力本願で大変申し訳ございませんが、 何卒宜しくお願い致します。
- ベストアンサー
- その他MS Office製品
- エクセル マクロ
A列にエリア、B,C,Dにそのエリアの情報が格納されているエクセルファイルがあります。 エクセルマクロで、A列に入っているエリア（たとえば、東北、関東、関西、四国、九州など）ごとに、そのエリアの行をコピーして新規Bookを作成するというコードを書きたいのですが、どなたかご存知の方ご教授ください。
- ベストアンサー
- Excel（エクセル）
- マクロ（word）を教えてください
jpegの画像をwordの表に順番に貼り付けるマクロを教えて下さい。 例） 9個のjpegファイル（実際は多数あります）を以下のとおり、マクロを使用して挿入したいと思います。 1ページ 1列 2列 1行 1個目 － 2行 2個目 － 3行 3個目 － 2ページ 1列 2列 1行 4個目 － 2行 5個目 － 3行 6個目 － 3ページ 1列 2列 1行 7個目 － 2行 8個目 － 3行 9個目 － ※－は空欄になります。 以上 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ
あるエクセルのファイルにLIST（A列に呼びだすエクセルファイル名、B列からD列に呼びだしたエクセルに貼り付ける文字列があり、それが100行程度ある)があり、そのLIST A列に書かれているエクセルファイルを開き、その開いたエクセルファイルのある特定のセルにB列からD列にあるセルをそれぞれに貼りつける作業を繰り返すようなマクロはできないでしょうか？ [流れ] LISＴに書いてあるエクセルファイルを呼び出す→文字列を貼りつける→保存(できれば名前を変えて保存(その場合は、LISTのE列に名称を記載)→閉じる→次のLISTのエクセルファイルを開く→それをLISTの最後の行まで終わるまで繰り返す。 よろしくお願いします。
- 締切済み
- Visual Basic
- 【Excel VBA】条件付き改ページ設定
Excel2003を使用しています。 一定行(47行)ごとに改ページを設定するマクロは過去質問を参考にコードを書くことができましたが、“非表示の行を除いた”47行ごとに改ページを設定するマクロにするには、どのようにすればいいでしょうか？ 過去質問も検索してみましたが、検索の仕方がよくないのか、うまく見つけられず…。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロで
エクセルのマクロでこんな処理はできるでしょうか？ 元データ表に Ａ列からＣ列まである数値が５０００行にわたって入っています。 例 Ａ Ｂ Ｃ １行目 １ ４ ６ ２行目 ４ ７ ８ ３行目 ５ ６ ４ ４行目 ７ ８ ２ ・ ・ 今、１行目と２行目の間に新たな行を挿入し、 Ｃ１セルの値を新たに挿入した行のＡ列からＣ列に貼り付けたい。 同様に現時点での２行目と３行目の間に新たな行を挿入し 今度はＣ２セルの値をその行に貼り付けます。 上の例で言うとこうなります。これを最後の行まで繰り返します。 Ａ Ｂ Ｃ １行目 １ ４ ６ ２行目 ６ ６ ６ ３行目 ４ ７ ８ ４行目 ８ ８ ８ ５行目 ５ ６ ４ ６行目 ４ ４ ４ ７行目 ７ ８ ２ ８行目 ２ ２ ２ ・ ・ 元データは５０００行あるので、都合１万行になるということです。 このような処理はできるでしょうか？ お教えいただけたら幸いです。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます！ まさしく、こういったことがやりたかったんです。 非常に助かりました。 本当にありがとうございました。