ベストアンサー エクセルで行の高さが一定数以下のセルに色を表示するマクロ 2007/11/16 15:07 エクセルで、Ａ1からＤ50までの範囲で、行の高さが一定数以下の行（各セル）に同色（例えば黄色）表示するマクロを教えてください。 よろしくお願いいたします。 みんなの回答 （2） 専門家の回答 質問者が選んだベストアンサー ベストアンサー pbforce ベストアンサー率22% (379/1719) 2007/11/16 15:20 回答No.1 For i = 1 To 50 If Rows(i).RowHeight < 8 Then Range(Cells(i, 1), Cells(i, 4)).Interior.ColorIndex = 6 End If Next i こんな感じ？ 質問者 お礼 2007/11/16 15:38 出来ました。 ありがとう、ございました。 また、よろしくお願いいたします。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 その他の回答 (1) zap35 ベストアンサー率44% (1383/3079) 2007/11/16 15:24 回答No.2 先ほどの質問に対する皆さんの回答の中にヒントがてんこ盛りなのですがねぇ…。後はマクロ記録でセルに背景色を着ける方法を調べれば解決しますよ。今度は全部は書きません。 If Rows(idx).RowHeight > 18 Then Rows(idx).Interior.ColorIndex = 6 Else Rows(idx).Interior.ColorIndex = xlNone End If 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアオフィス系ソフト 関連するQ&A エクセル マクロ 行 非表示 マクロについてご教授お願い出来ないでしょうか。 マクロ初心者です。 エクセル アクティブセル（ex A120セルやA20セル）の行から1行目までを非表示にさせるマクロがわかりません。 アクティブセルから下の行を非表示にさせるマクロは下記URLにて紹介がありましたが・・ https://www.relief.jp/docs/excel-vba-hide-below-active-cell.html また、もし可能でしたら、アクティブセルからA2行目までの非表示、つまり 1行目は残すマクロが可能でしたら、合わせてご教授どうぞよろしくお願い致します。 Excel VBA アクティブセルからある一定のセルまでの範囲選択 Excel VBA アクティブセルからある一定のセルまでの範囲選択 Excel2003を使用しています。 アクティブセルからC列に『計』と入力されている行の1行上のD列までを選択状態にするマクロを作成しようとしています。 C列に『計』と入力されている行は下記のように複数あるので、アクティブセルの行以下に入力されている次のC列の『計』の1行上までとしたいのですが、どのようにコードを書いたらいいでしょうか？ 例えば… A2セルをアクティブにしていてマクロを実行するとA2：D3が選択状態に A7セルをアクティブにしていてマクロを実行すると、A7：D9が選択状態になるように という具合です。 わかりづらくて申し訳ありませんが、よろしくお願いします。 A B C D 1 日付 № 品名 金額 2 1/1 1 ○○○ 1,000 3 1/2 2 ××× 1,500 4 計 2,500 5 6 7 1/1 5 ○×○ 2,000 8 1/3 6 ××○ 1,200 9 1/4 7 ×○○ 2,500 計 5,700 ： ： エクセルマクロVBA：該当セルの行の色を変更したい すみません。 ご存じの方、ご教授願います。 エクセル用マクロを作成しているのですが、 たとえば、 A1、A4、A9に目的の該当文”FFFF”があり、 行1、行4、行9のバックカラーを変更する場合、 どのようなマクロを作成すればよいのでしょうか？ なお、上記A1、A4、A9は毎回一定ではなく、該当セルの数がゼロの場合もあれば、１０以上の場合もあります。（同じ列には存在しています。） 検索”FFFF”→SHIFT+スペースではセルの場所が特定されてしまうので、目的の文の場所がかわったあるいはないときにも背景色を変えてしまいます。 どうかよろしくお願いします。 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ OKWAVE コラム 2013 セルの数値によりその行に色をつける方法 こんにちは Excel2013を使用しています。 A～AM、50列ほどの表があります。 AC行に1～150までの数値が入っています。 そのセルの数値によってその行に色をつけたいと思います。 1～29は色をつけません 30～59はその行に緑を 60～89はその行に黄色を 90以上はその行に赤をと言う具合です。 「ホーム」---「条件付き書式」や =if("AC2">=60 のような式で設定しようと 考えましたが、方法が見つかりません。 マクロを組みたいと思っていますので なお「並び替え」----範囲を「塗りつぶし」以外の方法をお願いします ご存じの方お教えください。 エクセルで該当の色のセル数の合計を返す関数？ エクセルで任意の同色のセル数の合計を返す関数はありますか？ マクロ使用でもいいです。 選択したセルの合計数は表示させることができるのですが、 数値を返してもらって関数や合計値の計算に反映させたいのです。 Excelマクロである条件のセル間(行方向)に色を付けたい Excelマクロである条件のセル間(行方向)に色を付けたい 例えば、エクセルのあるセルに"A"が書かれていた場合、次にその行のセルに"円"と書かれているまでは、続く行のセルには色をつけるようにしたいのですが、良い方法を教えて頂けないでしょうか？ 対象となるシート（列方向）に、今回のパターンが複数存在し、 それぞれにこの処理を実施することを想定しております。 （イメージ画像を添付します） お恥ずかしい話、当方VBAには明るくありませんので、簡単なサンプルコードを示して頂けると幸いです。 エクセルで一定条件を満たすセルのみ色を変えるには エクセルで正の数の値を示すセルだけ黄色の色にしたいのですが、IF関数等を使ってできますか。 エクセルは２００３です。 Excel 2007 マクロ セルの色のカウント Excel 2007 マクロ セルの色のカウント 表に複数の色がセルについています。 色がついているセルの隣の列に「１」を返したいです。 どのようなマクロになりますでしょうか。 色がついている列は1行でC列になります。 ご回答よろしくお願いします。 Excel 「条件付き書式」でセルの範囲に色を付ける場合 いつも大変お世話になります。 Excelの「条件付き書式」を使って指定するセルの範囲に色を付けたいのですが、どうすればよいでしょうか。状況は以下のような感じです。 A B C D 1 ○ × 文字列 ←色を付けたい行 2 ○ ○ 3 × × ○ 文字列 ←色を付けたい行 Dセルで文字列の入力されてある行（AからDセル）に色を付けたいのです。 何とぞよろしくお願いいたします。 エクセルでセルが空白だったらその行を表示させない方法を教えてください。 エクセルでセルが空白だったらその行を表示させない方法を教えてください。 こんにちわ。 色々調べたのですが、分からずアドバイスをいただきに来ました；； 何とかならないかと困っていますので、お願いいたします。 具体的には A B C D ... 1 ◎ あ い う 2 か き く 3 ◇ さ し す 4 △ た ち つ . . のようなA2が空白だった場合下記のように ↓↓↓↓↓↓↓↓ A B C D ... 1 ◎ あ い う 3 ◇ さ し す 4 △ た ち つ . . のようにA2が空白だった場合「削除」ではなく「表示しない」としたいです。 ちなみにoffice2003のエクセルを使用しています。 マクロを組まないとできないのであれば、出来れば具体的なソース等を乗せていただけると幸いです。（マクロは勉強中で全然できないので＾＾；） よろしくお願いいたしますm(_ _)m エクセルで行の表示 エクセルの アクティブなセルになっている 行がわかるように表示できる方法はないでしょうか？ たとえば G7に入力する場合ポインタなどをG7のセルに合わせたとき 7行目が横にわかるように 色がつくとか。A7,B7,C7,D7・・・・ なにか表示設定で できないかなーと 思って質問しました。 よろしくお願いいたします 関数が含まれたセルの行をマクロで挿入する セルD2には、IF関数が含まれている、以下の表があります。2行目に行をマクロで挿入して大きな表を作成する予定です。 A B C Ｄ １ 納入数 使用m数 納入m 使用m 2 〔=if（B2>1,C2,""）〕 マクロは、以下のようにして、2行目に行を挿入したのですが、IF文が含まれたものが 挿入できません。どのようなマクロ文にしたらよいかわからず困っています。別シートからコピーする 方法も考えられますが、同じシート内で収めたいと考えています。宜しくお願いします。 Sub 行挿入() ' ' 行挿入 Macro ' ' Range("a2:ｄ2").Insert copyorigin:=xlFormatFromRightOrBelow End Sub ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策 OKWAVE コラム エクセルで、あるセルを参照に空白のセルを塗りつぶす方法 仕事で毎時間の各商品の売れ具合を、エクセルで日々表にしています。表は多い（多）普通（普）少ない（少）無し（無）と数段階に区切って表示して、それぞれに（多）なら赤、（普）なら黄～とそのセルを塗りつぶしています。表内のセルには、条件付き書式をかけているのでＡ商品の売り上げ９時台が「普通」なら、対象のセルに普と入力すると、そのセルは自動的に黄色で塗りつぶされるようにしています。 そして、９時台が「普通」で、同じ商品の１０～１４時台まで同じ「普通」の売り上げが続き、１５時に「多い」になったら、１０～１４時台のセルを９時台と同じ状態が続いたということで、セルの中には何も入力せず、色だけ黄色で塗りつぶしています。 （一つの商品は時間毎に右のセルに移動して、始めから終わりまで同じ行で表示しています。） 前置きが長くなってしまいましたが、質問させていただきたいのは、 あるセル（例：セルＡ２）に「普」と入力し、塗りつぶしも（条件付き書式で自動的に）黄色になった場合に、そのセルの右隣のセル（例：セルＢ２）に何も入力されていなければ、同じ色（黄色）に塗りつぶし、さらにその右隣のセル（例：セルＣ２）にも何も入力されていなければ、これも同じ色（黄色）に塗りつぶす～という作業を、同じ行の右隣のセルに何か入力されるまで繰り返す。という指示をエクセルに与えることは可能でしょうか？（ソフトはエクセル２０００を使用しています） 自分で関数で色々試してみましたが、出来ずに困っています。 これは、マクロ（ＶＢＡ？）というもので、出来るのでしょうか？ 私はマクロを全然使ったことが無いのですが、もしマクロで出来る場合、マクロ初心者の私では難しいでしょうか？ 長々とした、わかりづらい質問で申し訳ありません。 宜しくお願いいたします。 ＶＢマクロ 条件によってセルの色を変えたいのですが… いつもこちらで勉強させて頂いております。 Excelで、ある二つの言葉を含むセルに色を付けたいのですが、 言葉の組み合わせが５パターンあり 条件付き書式では足りません。 ＡとＢを含むセル 赤 ＡとＣを含むセル 青 ＡとＤを含むセル 黄 ＡとＥを含むセル 緑 ＡとＦを含むセル 紫 といった様に、条件によってセルの色を変えたいのですが… マクロなどで良い方法はありますでしょうか？ どなたかアドバイス宜しくお願い致しますm(__)m エクセル 特定セルの表示拡大マクロ エクセル2010のマクロについて質問させていただきます。 特定セルが選択された場合のみ表示を140％に拡大し、そのほかを選択した場合は100％に戻すマクロをご教授願います。 具体的な例としては エクセル A1～E4 で表を作成しています。 入力セルは A2,B2,C2,D2,E2,A4,B4,C4,D4,E4 の10カ所に数値を入力します。 上記10カ所を毎回選択するのか面倒なので「名前の管理」で10カ所を選択しています。 エクセルファイルを開くと10カ所を選択するマクロを実行しています。 その10カ所を範囲指定した中で選択セルを「Enter」で送っていき、「D2」もしくは「D4」セルを選択した場合のみ、表示倍率を上げそのほかのセルを選択した場合は表示倍率を戻すマクロをご教授願います。 名前の管理(範囲指定)を実行せずに、単にセルだけを選択した場合のマクロは作成できたのですが、範囲指定した中でのセル選択ではマクロが実行されませんでした。 単にセルだけを選択した場合拡大するマクロを記述しますので、よろしくお願いします。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address() = "$D$2" Or Target.Address() = "$D$4" Then ActiveWindow.Zoom = 140 Else ActiveWindow.Zoom = 100 End If End Sub マクロを学び始めて間もないため、初歩的なミス、見当外れな質問をしてしまうかもしれませんが、何卒よろしくお願いします。 エクセルでセルの色の数 エクセルでセルの数の計算についてお聞きします。 条件書式でセルの色分けをしました。数の合計、文字の個数などの数式はできるのですが、セルの色の個数は数えることができるのでしょうか。もし、できるのであれば、その数式を教えてください。 例えば、Ａの列には、白‥３ 赤‥２というようにセルの色の個数を表示します。 今までそんな発想がなく使ってきませんでした。教えていただけるとありがたいです。よろしくお願いいたします。 マクロでの色の塗りつぶしについて A1のセルに○、A2のセルには○、A3のセルには×・・・といった行があるとします。 その中から○のセルを探し、その○のD列（A1が○ならD1）を色で塗りつぶしたい時 どのようなマクロにすればよいか教えてください。 エクセルで、その行ごとの最大値のセルに色をつけたい エクセル2010を使っています。 その行ごとの最大値のセルに色をつけるやり方を教えていただけませんか？ B1セル→1時 C1セル→2時 D1セル→3時 A2セル→1月1日 A3セル→1月2日 A4セル→1月3日 B2セルからB4セル、C2セルからC4セル、D2セルからD4セルには、ばらばらの数字 が入力されています。 色々試したのですが、どうしても分かりません。 どなたか、分かる方がいれば、どうぞ教えてください。 よろしくお願いいたします。 エクセル 行の表示非表示のマクロでエラーが たとえば 列Ａ 行１ 2300 行２ 1500 行３ 500 行４ 300 となっていて、ボタンを押すたびに行２～行４の表示非表示を切り替えるマクロを以下のように設定しました。 Sub () With Rows("2:4") .Hidden = Not .Hidden End With End Sub そして、Ａ１のセルを保護しシートを保護したところマクロにエラーが出て使えなくなりました。 解決方法はあるのでしょうか？ よろしくお願いします。 色つき行を非表示にしたい。 お世話になっております。 エクセル（2007）で悩んでいます。 月ごとのカレンダーをつくっているのですが、 Ａ列は日付、Ｂ列はWEEKDAY関数で曜日を入れてあります。 Ｃ列以降は備考欄にしています。 土日祝日は日付と曜日を色つきセルにして、わかりやすいようにしてるのですが、この色つきセルの行を非表示にしてしまいたいのですが、どのようなマクロが使用できるのでしょうか、ご教示ください。 注目のQ&A 「You」や「I」が入った曲といえば？ Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市（長野県）在住でスキーやスノボをする方の用具 カテゴリ パソコン・スマートフォン ソフトウェア Excel（エクセル）Word（ワード）PowerPoint（パワーポイント）Access（アクセス）その他MS Office製品オフィス系ソフトPhotoshop（フォトショップ）Illustrator（イラストレーター）その他Adobe製品画像・動画・音楽編集ホームページ作成ソフト筆まめ・はがき作成フリーウェア・フリーソフトその他(ソフトウェア) カテゴリ一覧を見る OKWAVE コラム 突然のトラブル？プリンター・メール・LINE編 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ 友達って必要？友情って何だろう 大震災時の現実とは？私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ！負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる！ OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
出来ました。 ありがとう、ございました。 また、よろしくお願いいたします。