ベストアンサー 以下のマクロ実行と共に行の色を付けたい 2018/09/06 17:55 https://sp.okwave.jp/qa/q9534560.html ↑ このマクロを実行したら挿入した行に色を付ける方法を教えて下さいますか? 宜しくお願いします。 みんなの回答 (1) 専門家の回答 質問者が選んだベストアンサー ベストアンサー watabe007 ベストアンサー率62% (476/760) 2018/09/06 18:59 回答No.1 >挿入した行に色を付ける 行全体になら Range("A5").Resize(Range("A1").Value).EntireRow.Insert Range("A5").Resize(Range("A1").Value).EntireRow.Interior.Color = vbYellow 6列分だけ色を付けるなら Range("A5").Resize(Range("A1").Value).EntireRow.Insert Range("A5").Resize(Range("A1").Value, 6).Interior.Color = vbYellow 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアExcel(エクセル) 関連するQ&A 【Excelマクロ】指定した文字の行を色付け 以前、https://okwave.jp/qa/q10012573.html にてマクロで色付けする方法をご教示いただきました。 さらにE列に入力された指定の文字の行は違う色で色付けしたいのです。 (例) E列が”×”の行(A10~E10)をオレンジに色塗り 前回同様、条件付き書式は無しでお願いします。 任意の1行を選択していないと実行できないマクロ 教えてください。 任意の行番号をクリックしてまるまる1行選択してから、「切り取る」「別のシートに挿入、貼付ける」というマクロを実行しています。 1行選択していないとそのマクロを実行できないという風にするにはどのようなコードを書けばよいでしょうか? 選択する行番号はその都度違います。 欲を言えば、間違った選択でマクロを実行した時にエラー表示が出ると大変ありがたいのですが… どうかよろしくお願いします。 使用するエクセルは97です。 「新しいマクロの記録」機能を使っての行挿入 「新しいマクロの記録」機能を使って1行と2行の間に10行の空白行を挿入後、A13のセルを選択というマクロを作りました(マクロ1とします)。このマクロを実行すると1行と2行の間に10行の空白行が挿入された後、A13が選択されます。ここでもう一度、マクロ1を実行すると1行と12行の間にさらに空白行が10行挿入されA13が選択されます。このようになるのは当たり前と言えば当たり前なのですが、2回目にマクロを実行したときに12行と13行の間に10行の空白行が挿入された後、A24が選択されるようにするには、どのようにマクロを記録すればよいのでしょうか? ようは、10行の空白行を挿入した後、セルを11行下に移動させるというマクロを作りたいのです。VBAの記述方法はほとんど分からないので「新しいマクロの記録」機能を使うことを前提にご教授ください。 携帯料金を賢く見直す!格安SIMと端末選びのポイントは? OKWAVE コラム VBA 複数の行を挿入後、挿入以外を削除その2 先回はごちゃごちゃしていました。 https://okwave.jp/qa/q9540698.html 今回はwatabe007様より、ヒントを得て、やり易くするように流れを変えました。 ●「挿入」シートにナンバーの数字が1~(100以上)と順次に並んでいます。 「挿入」シート 1 2 3 4 5 6 7 8 9 10 ・ ・ ・ 100くらい ●「入力」シートにナンバーの数字、行挿入の数、色分けの三つあります。 「入力」シート ナンバー 挿入する行の数 色 4 5 赤 6 3 黄色 8 4 緑 9 1 青 上記を入力し、マクロ実行すると「挿入」シートのナンバー4に5行挿入、6に3行挿入、8に4行挿入、9に1行挿入 「挿入」シート 1 2 3 4 (行挿入) (行挿入) (行挿入) (行挿入) (行挿入) 5 6 (行挿入) (行挿入) (行挿入) 7 8 (行挿入) (行挿入) (行挿入) (行挿入) 9 (行挿入) 10 ・ ・ 100くらい マクロ実行で、シート名「入力」に記載していたナンバーと挿入した行以外を削除 「挿入」シート 4 (行挿入) (行挿入) (行挿入) (行挿入) (行挿入) 6 (行挿入) (行挿入) (行挿入) 8 (行挿入) (行挿入) (行挿入) (行挿入) 9 (行挿入) といった流れが望ましいです。 宜しくお願いします。 マクロで色のついたセルへ移動 色の付いたセルへの移動方法で教えて下さい。 添付した画像のような時の場合に 例えばD2セルにカーソルがあって マクロを実行すると そこから次の塗りつぶし(10~16行)のD16に移動するには どうすればいいですか? 色の付いていないセル(画像でいうと7、9行目)と、 アクティブのセルの色と同じ色がある場合は、 その部分は抜かしたいです(画像でいうと8行目) 色は限定というわけではないので アクティブセルの色と違う色を見つけた場合に その色の塊の一番最後のD列のセルに移動するという感じです。 D16で実行すると次はD19 D19で実行すると次はD31 という感じの事が行いたいです。 ネット色々調べましたが似たような記事はこれぐらいしかありませんでした。 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1090112035 宜しくお願いします。 保護をかけているシートでマクロが実行できない 行挿入マクロを使用した製品管理表を作成しましたが、シートの保護をかけて行挿入マクロを実行すると「RangeクラスのInsertメソッドが失敗しました」と出ます、シートの保護を外すと実行されます。保護をかけたシートはマクロを実行できないのか、マクロ文が間違っているのかわかりません。ご教授下さい。 表は抜粋ですが以下のとおりで、15行目に行挿入マクロを実行する表作成のマクロです。 E15にはIF文が含まれています。 A B C D E F 14 空白 納入日 使用日 納入数量 使用数量 使用m 15 マクロ文は、以下のとおりです Sub 行挿入() ' 行挿入 Macro m = Cells(15,5).Formula Range("A14:G15").Insert copyorigin:=xlFormatFromRightOrBelow Cells(15,5) = m End Sub マクロで行挿入がうまくいかない理由は? XPでOFFICE2007です。マクロ未熟者です。 マクロで、行挿入だけであればうまくいきますが、行挿入した後でその行に文字を入力するマクロでは、その行ではなく1行前のセルに文字が入力されてしまいます。 変なことになるのは、マクロを作成する過程で、行挿入が上の書式をコピーすることと関連がありそうなのですが、何に注意すればうまくいくのでしょう。 とりあえず今のところは行挿入を使わずに上の行をコピーして挿入する方法でうまくいっています。しかし行挿入後の文字入力がうまくいかないのか、その理由と対処方法がわかれば教えてください マクロのコードについて https://okwave.jp/qa/q9846043.html 以前こちらで質問しました。 ご丁寧にコードを教えてくださり、本当にありがたいです。 ただ、私の勉強不足で、マクロの使い方がわからないためこのコードを入れてもできませんでした。 コンパイルエラーで(Endsubがあるのに)Endsubがありません。と出てしまいます。 マクロでは、一行目に、 Sub マクロ名() と入力してからコードを入力する でいいのでしょうか? マクロで教えてください。 つい先ほど、色を塗るというマクロは教えていただきました。 http://okwave.jp/qa/q7829474.html 次に、sheet1のA列にある図番を参照しsheet2のA列の機種名に適合しない行全体を 削除したいのですが、可能でしょうか? VBA 複数の行を挿入後、挿入以外を削除その3 しつこくてすみません。 https://okwave.jp/qa/q9541345.html このときは大変お世話になりました。 作業しているうちに間違いに気付きました。 また皆さまの力をおかり下さい。 ナンバー 挿入する行の数 4 5 6 3 8 4 9 1 挿入する行の数は5ですが、ナンバー4の行と合わせると6行になります。 なので「挿入する行の数」は5と記載しても行の挿入は-1の4を挿入してナンバー4の行と合わせて5行になるといったものが望ましいです。 ナンバー 挿入する行の数 4 5(4を挿入) 6 3(3を挿入) 8 4(3を挿入) 9 1(0なので、挿入しない) 最後にもしナンバー9に10行を入れたとしたらどこまで行が挿入されたか、分からなくなります。(やはり色が付いた方が分かると思いますが…) 最後に行を挿入した行の下に「ここまで」と記載した方が分かりやすいかと思いますが、コードの記述方法を教えて頂けたらと思います。 宜しくお願いします。 選択中の行に「行」を挿入するマクロ エクセルのいちばん左(1から数字が縦に並んでいるところ)の任意の 数字を選択してその行を全選択しておいた状態でマクロを実行すると、そこに1行挿入するプログラムを教えてください。 エクセルのマクロの記憶・実行について マクロの記憶と実行についてですが質問があります。 下記のように、1~3までの行をマクロの実行でコピーといういうか表示していきたいのです。 3行をコピーして、行の挿入をすれば済む話なのですが、これを使う人が、パソコンを触ったことがないので、 マクロの実行というボタン1つで、何回も下に同じ間隔で表示させたいのです。 お助け下さい。 ●月●日 1 あああ あああ あああ あああ 2 いいい いいい いいい いいい 3 ううう ううう ううう ううう 4 5 これより下に、上記と同じ表をコピーしたい。 ↓ 1行あけて同じ表を、マクロの実行でその下に表示させたいのです。 表の内容は、毎日変わります。その日の入力が終わったら、次の日、また、同じ事を繰り返していきます。 ヤバいパソコンが壊れたかも!?事前に知っておきたい3つの兆候と対策 OKWAVE コラム エクセルマクロ、集計行の上に空白行挿入 エクセルデータがA、B、C、D、E列1000行まであります。 C列基準でE列を合計するマクロを作成しましたが(集計行はデータの下に挿入)、実行の結果、新たに挿入される集計行の上に空白行を1行挿入していくということを、作成したマクロに付加できるでしょうか? ご教授頂きたく、お願いします。 たまにマクロを実行できないときがある Excel VBAを使っていて、 たまにマクロを実行できないときがあります。 特にデバッグ途中というわけでもないのに、 マクロで実行したいプログラムを選択しても実行ボタンがグレー色になっており 実行することができません。 全てのプログラムではなく、実行途中に変な操作が入り、 停止したものだけです。 excelを再起動すると元に戻ります。 これはどういう状態にあるのでしょうか? 再起動せずに復帰する方法を教えてください。 エクセル 複数行にまたがっているデータを一つの行3 エクセル 複数行にまたがっているデータを一つの行にまとめ(応用) 以前にも同じような質問で1商品複数行のデータを1行にまとめるマクロ をつくって頂いたのですが、(http://okwave.jp/qa/q8191364.html) これが、たまたま、1商品1行のデータがありまして、まとめるとエラーがでてしまいます。 (エラーがでるブック http://yahoo.jp/box/aiXHto) →成分の箇所だけまとめたいのが目的。 またかなり無理な作業を承知の上でのマクロなんですが、 下記のサンプルデータで http://yahoo.jp/box/SUs3B3 前のように複数行を1行にまとめたいのですが、成分の箇所がちょっと複雑で サンプルデータの黄色のA成分、B成分、C成分があるのですが、 これを一つのセルにsheet2のようにまとめたいのですが、 VBAで上記の処理を出来る方法がありますでしょうか。 またtom04さんいつもありがとうございます。 保護されているシートでマクロ実行するとエラー Excel2010で勤務表を作っています。 A列にとある文字列(承認)と入力すると、その行が保護されるマクロを、下記URLからコピペして使わせて頂いてます。 http://questionbox.jp.msn.com/qa3277541.html 勤務表なので、土日祝日は網掛けになるよう条件付き書式を使っています。 休暇取得した場合は網掛けを付けて、休日出勤した場合には網掛けなしにしたり出来るようマクロをマクロの自動記録で作りました。 ところが、どこかの行が保護されている状態で、セルの網掛けを変更するマクロを実行すると 「実行時エラー'1004'アプリケーション定義またはオブジェクトの定義エラーです」と出てしまいます。 保護されている行ではなく、まだ保護はされていない行に実行しています。 そこで一旦保護の解除をしてから、セルの網掛けを変更するマクロを実行してみるとちゃんと動きます。 保護をかける時に、網掛け(セルの書式設定)を許可すれば動くのかな?とか思ったのですが、どこにどういう構文を入れたらいいのか、はたまたその認識すら間違っているのかも分かりません。 マクロに関してはド素人で、自動記録かWebで調べて見つけたマクロをちょっと加工して使う程度です。 どうか知恵をお貸しください。よろしくお願いします。 カーソル行の直下にコピペ(2) 質問は、下記の続きとなります。 カーソル行の直下にコピペ https://okwave.jp/qa/q9740662.html ----------- 現在、カーソルがある行の下に行を新規に挿入して マウスのある行のA-Eまでの列をコピーして 挿入した行の同じ列にペーストするまでは、前回で出来るようになりました。 (これを「処理_1」と呼ぶことにします。) 続いて、 カーソルのある行のA列(日付)と挿入した行のA列(日付)の 値(日付)は、同じなのでセル結合したいと思います。 (これを「処理_2」と呼ぶことにします。) 処理_1を続けると、同じ日付が複数発生しますが、 その場合は、処理_2は、同一日付のA列は、セル結合する事にしたいと思います。 以上を満たす、マクロ(コード)を教えてください。 エクセル マクロで奇数行の非表示 エクセルでマクロを用いて行の非表示をしたいのですが、 13 15 17 19 ・・・・・43 45 47 の行を非表示にしたくマクロで記録しましたが、 マクロを実行すると13~47全ての行が非表示になってしまいます。 何かいい方法はないでしょうか。 よろしくお願いします。 Excel97で自動的に行挿入させるマクロのつくりかた。 こんにちは。 マクロ超超初心者です。 WN98SE、Excel97です。 やりたいことは、たとえば、 B1に1001 B2に1001 B3に1002 B4に1003 ・ ・ ・ と入っていたとします。 ここで、1001から1002に変わる(又、1002から1003に変わる)とき、その間の行に3行空行を自動的に挿入させたいのですが、どういうマクロの記述をすればできるのでしょうか・・・。 それを新規ブックでもボタンひとつで実行させるにはどのような設定をしたらよいでしょうか。 どなたか教えてください。 よろしくおねがいします。 簡単なマクロですが教えてください。 マクロで、現在アクティブになっているセルのある行全体を選択し、 そこに行を追加(挿入)する。 その後、1行目にある行全体をコピーして、追加(挿入)した 行に1行目の数式をコピーしたいのです。 マクロの記録から作成しようとしたら、 毎回13行目に挿入・コピーするようになってしまいました。 例えば、マクロ実行時に5行目にアクティブセルがあれば、 5行目に挿入したいのです。 この方法を教えて頂けませんでしょうか。 現在の誤ったマクロ構文を付けますので、 どのように直したらよいか教えて頂けませんか。 何卒よろしくお願いいたします。 Sub osietekudasai() ' ' osietekudasai Macro ' ' Rows("13:13").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows("1:1").Select Selection.Copy Rows("13:13").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A13").Select 注目のQ&A 「You」や「I」が入った曲といえば? Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市(長野県)在住でスキーやスノボをする方の用具 カテゴリ パソコン・スマートフォン ソフトウェア Excel(エクセル)Word(ワード)PowerPoint(パワーポイント)Access(アクセス)その他MS Office製品オフィス系ソフトPhotoshop(フォトショップ)Illustrator(イラストレーター)その他Adobe製品画像・動画・音楽編集ホームページ作成ソフト筆まめ・はがき作成フリーウェア・フリーソフトその他(ソフトウェア) カテゴリ一覧を見る OKWAVE コラム 突然のトラブル?プリンター・メール・LINE編 携帯料金を賢く見直す!格安SIMと端末選びのポイントは? 友達って必要?友情って何だろう 大震災時の現実とは?私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ!負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる! OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など