ベストアンサー

以下のマクロ実行と共に行の色を付けたい

2018/09/06 17:55

https://sp.okwave.jp/qa/q9534560.html ↑ このマクロを実行したら挿入した行に色を付ける方法を教えて下さいますか？宜しくお願いします。

nkmyr
お礼率67% (403/600)

Excel（エクセル）
回答数1
ありがとう数0

みんなの回答 （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 ６列分だけ色を付けるなら Range("A5").Resize(Range("A1").Value).EntireRow.Insert Range("A5").Resize(Range("A1").Value, 6).Interior.Color = vbYellow

関連するQ&A

【Excelマクロ】指定した文字の行を色付け

以前、https://okwave.jp/qa/q10012573.html　にてマクロで色付けする方法をご教示いただきました。さらにE列に入力された指定の文字の行は違う色で色付けしたいのです。 (例) E列が”×”の行(A10～E10)をオレンジに色塗り前回同様、条件付き書式は無しでお願いします。
任意の１行を選択していないと実行できないマクロ

教えてください。任意の行番号をクリックしてまるまる１行選択してから、「切り取る」「別のシートに挿入、貼付ける」というマクロを実行しています。 1行選択していないとそのマクロを実行できないという風にするにはどのようなコードを書けばよいでしょうか？選択する行番号はその都度違います。欲を言えば、間違った選択でマクロを実行した時にエラー表示が出ると大変ありがたいのですが… どうかよろしくお願いします。使用するエクセルは97です。
「新しいマクロの記録」機能を使っての行挿入

「新しいマクロの記録」機能を使って１行と２行の間に10行の空白行を挿入後、A13のセルを選択というマクロを作りました（マクロ１とします）。このマクロを実行すると１行と２行の間に10行の空白行が挿入された後、A13が選択されます。ここでもう一度、マクロ１を実行すると１行と１２行の間にさらに空白行が10行挿入されA13が選択されます。このようになるのは当たり前と言えば当たり前なのですが、２回目にマクロを実行したときに12行と13行の間に10行の空白行が挿入された後、A24が選択されるようにするには、どのようにマクロを記録すればよいのでしょうか？　ようは、１０行の空白行を挿入した後、セルを１１行下に移動させるというマクロを作りたいのです。ＶＢＡの記述方法はほとんど分からないので「新しいマクロの記録」機能を使うことを前提にご教授ください。
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メソッドが失敗しました」と出ます、シートの保護を外すと実行されます。保護をかけたシートはマクロを実行できないのか、マクロ文が間違っているのかわかりません。ご教授下さい。表は抜粋ですが以下のとおりで、１５行目に行挿入マクロを実行する表作成のマクロです。 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
マクロで行挿入がうまくいかない理由は？

ＸＰでＯＦＦＩＣＥ２００７です。マクロ未熟者です。マクロで、行挿入だけであればうまくいきますが、行挿入した後でその行に文字を入力するマクロでは、その行ではなく１行前のセルに文字が入力されてしまいます。変なことになるのは、マクロを作成する過程で、行挿入が上の書式をコピーすることと関連がありそうなのですが、何に注意すればうまくいくのでしょう。とりあえず今のところは行挿入を使わずに上の行をコピーして挿入する方法でうまくいっています。しかし行挿入後の文字入力がうまくいかないのか、その理由と対処方法がわかれば教えてください
マクロのコードについて

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までの行をマクロの実行でコピーといういうか表示していきたいのです。３行をコピーして、行の挿入をすれば済む話なのですが、これを使う人が、パソコンを触ったことがないので、マクロの実行というボタン１つで、何回も下に同じ間隔で表示させたいのです。お助け下さい。 ●月●日 1　あああ　あああ　あああ　あああ 2　いいい　いいい　いいい　いいい 3　ううう　ううう　ううう　ううう 4 5　これより下に、上記と同じ表をコピーしたい。　　　　　　　　　↓ １行あけて同じ表を、マクロの実行でその下に表示させたいのです。表の内容は、毎日変わります。その日の入力が終わったら、次の日、また、同じ事を繰り返していきます。
エクセルマクロ、集計行の上に空白行挿入

エクセルデータがA、B、C、D、E列1000行まであります。 C列基準でE列を合計するマクロを作成しましたが（集計行はデータの下に挿入）、実行の結果、新たに挿入される集計行の上に空白行を1行挿入していくということを、作成したマクロに付加できるでしょうか？ご教授頂きたく、お願いします。
たまにマクロを実行できないときがある

Excel VBAを使っていて、たまにマクロを実行できないときがあります。特にデバッグ途中というわけでもないのに、マクロで実行したいプログラムを選択しても実行ボタンがグレー色になっており実行することができません。全てのプログラムではなく、実行途中に変な操作が入り、停止したものだけです。 excelを再起動すると元に戻ります。これはどういう状態にあるのでしょうか？再起動せずに復帰する方法を教えてください。
エクセル　複数行にまたがっているデータを一つの行3

エクセル　複数行にまたがっているデータを一つの行にまとめ（応用）以前にも同じような質問で１商品複数行のデータを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全ての行が非表示になってしまいます。何かいい方法はないでしょうか。よろしくお願いします。
Excel９７で自動的に行挿入させるマクロのつくりかた。

こんにちは。マクロ超超初心者です。 WN98SE、Excel97です。やりたいことは、たとえば、 B1に１００１ B2に１００１ B3に１００２ B4に１００３　　　・　　　・　　　・と入っていたとします。ここで、１００１から１００２に変わる（又、１００２から１００３に変わる）とき、その間の行に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

【Excelマクロ】指定した文字の行を色付け

任意の１行を選択していないと実行できないマクロ

「新しいマクロの記録」機能を使っての行挿入

VBA　複数の行を挿入後、挿入以外を削除その2

マクロで色のついたセルへ移動

保護をかけているシートでマクロが実行できない

マクロで行挿入がうまくいかない理由は？

マクロのコードについて

マクロで教えてください。

VBA　複数の行を挿入後、挿入以外を削除その3

選択中の行に「行」を挿入するマクロ

エクセルのマクロの記憶・実行について

エクセルマクロ、集計行の上に空白行挿入

たまにマクロを実行できないときがある

エクセル　複数行にまたがっているデータを一つの行3

保護されているシートでマクロ実行するとエラー

カーソル行の直下にコピペ（2）

エクセル　マクロで奇数行の非表示

Excel９７で自動的に行挿入させるマクロのつくりかた。

簡単なマクロですが教えてください。

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

以下のマクロ実行と共に行の色を付けたい

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

関連するQ&A

【Excelマクロ】指定した文字の行を色付け

任意の１行を選択していないと実行できないマクロ

「新しいマクロの記録」機能を使っての行挿入

VBA 複数の行を挿入後、挿入以外を削除その2

マクロで色のついたセルへ移動

保護をかけているシートでマクロが実行できない

マクロで行挿入がうまくいかない理由は？

マクロのコードについて

マクロで教えてください。

VBA 複数の行を挿入後、挿入以外を削除その3

選択中の行に「行」を挿入するマクロ

エクセルのマクロの記憶・実行について

エクセルマクロ、集計行の上に空白行挿入

たまにマクロを実行できないときがある

エクセル 複数行にまたがっているデータを一つの行3

保護されているシートでマクロ実行するとエラー

カーソル行の直下にコピペ（2）

エクセル マクロで奇数行の非表示

Excel９７で自動的に行挿入させるマクロのつくりかた。

簡単なマクロですが教えてください。

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

VBA　複数の行を挿入後、挿入以外を削除その2

VBA　複数の行を挿入後、挿入以外を削除その3

エクセル　複数行にまたがっているデータを一つの行3

エクセル　マクロで奇数行の非表示

カテゴリ
一覧

専門家に質問してみよう
専門家登録