お世話になっております。
EXCELにてA列に品名、B列~H列に商品についての情報を反映します。
その際、B列~H列の情報により、条件にそぐわないものをグレーにします(表参照)。
この場合、1行目にフィルターをかけ、B列から順に色フィルター>塗りつぶしなしでグレーを含む行を非表示にすることができることは存じているのですが、このグレーを含む品目行を「一括」で非表示にすることは可能でしょうか?
できれば、その手法を教えていただけるとありがたいです。
何卒よろしくお願いいたします。
No.4ベストアンサー
- 回答日時:
No.2です。
補足のサイトのコードを拝見しました。
確認です。
①
>For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
が
>For i = 5 To Cells(Rows.Count, "A").End(xlUp).Row
となっているので、A5セル以降A列の最終行までで良いのですね?
(1行目~4行目は何もしません)
②
>For j = 2 To 8
が
>For j = 5 To 29
というコトは、E列~AC列までとなりますが、
これもよいのですね?
(A~D列・AD列以降は無視)
①・②で間違いないのであれば
その範囲内で「25%灰色」のセルが一つでもあればその行は非表示になるはずです。
※ それでも反応がない場合、考えられる原因としては
「灰色」が「25%灰色」ではなく「他の灰色」になっている可能性があります。
試しに灰色に塗りつぶされているセルを一つ選択し↓の3行のマクロを実行してみてください。
Sub カラーインデックス確認()
MsgBox Selection.Interior.ColorIndex
End Sub
灰色のカラーインデックス番号が表示されるはずですので「15」でない場合は
>If Cells(i, j).DisplayFormat.Interior.ColorIndex = 15 Then
の「15」の部分を実際のカラーインデックス番号に変更しマクロを実行してみてください。
とりあえずはこの程度で・・・m(_ _)m
No.3
- 回答日時:
グレーにするセルの条件を式などで定義できるなら、フィルタオプションを使う方法があります。
また、これ1回きりではなく今後も同様のフィルタリングを繰り返すなら最初だけ1列ずつフィルタリングし、その状態をユーザー設定のビューに登録しておけば次回からはそこから登録した名前を選べば一気にフィルタリングできます。
…地味な方法だからあんまり興味持たれないだろうなぁ。
グレーにする基準が機械的でないならできませんけど。
No.2
- 回答日時:
こんばんは!
VBAでの一例です。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → エクセル画面に戻り(VBE画面を閉じて)マクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() 'この行から
Dim i As Long, j As Long, myRng As Range
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row '2行目~A列最終行まで//
For j = 2 To 8 'B列~H列まで//
If Cells(i, j).DisplayFormat.Interior.ColorIndex = 15 Then '←25%灰色//
If myRng Is Nothing Then
Set myRng = Cells(i, j)
Else
Set myRng = Union(myRng, Cells(i, j))
End If
Exit For
End If
Next j
Next i
If Not myRng Is Nothing Then
myRng.EntireRow.Hidden = True
End If
End Sub 'この行まで//
※ グレーは「25%灰色」としています。(15が25%灰色のカラーインデックスになります)
40%灰色は 48
50%灰色は 16
に変更してください。
尚、再表示のコードも必要かと思います。
↓のコードが再表示になります。
Sub 再表示()
ActiveSheet.Rows.Hidden = False
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.1
- 回答日時:
このアドインでできますね。
http://www.freeformat.co.jp/AddInIndex.htm?FFFun …
自力でやりたいなら
https://oshiete.goo.ne.jp/qa/3801652.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
都道府県穴埋めゲーム
都道府県の名前を1人1つずつ投稿してください。全ての都道府県が出たら締め切ります!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセル:色の付いたデータをまとめて抽出したい。
Excel(エクセル)
-
エクセルの複数列を一度にフィルターしたい。
運輸業・郵便業
-
色付き行の非表示について
Excel(エクセル)
-
-
4
excelのデータで色つき行の抽出方について教えてください
Excel(エクセル)
-
5
複数シートの色付きセルがある行を別シートに抽出
Excel(エクセル)
-
6
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
7
セル色なしの行一括削除
その他(プログラミング・Web制作)
-
8
エクセルで英数大文字のみの入力制限は可能ですか
Excel(エクセル)
-
9
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
エクセルで色の付いたセルを抽出したいです
Excel(エクセル)
-
12
Excel 書式を関数で判断。
Excel(エクセル)
-
13
エクセルの選択範囲以外を削除する方法
Excel(エクセル)
-
14
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
15
エクセル関数>参照ファイル名をセルから呼び出す
Excel(エクセル)
-
16
VBAで文字列を数値に変換したい
Excel(エクセル)
-
17
セルに背景色がある行を別シートにコピー
その他(Microsoft Office)
-
18
色フィルターをかけた状態で、数値を条件抽出はできないのでしょうか?
Excel(エクセル)
-
19
複数シートに色付きセル(条件つき書式で設定済み)の行を別シートに抽出
Visual Basic(VBA)
-
20
セルに特定の色が付いていたら計算式を発動したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
シート保護の状態で行の追加を...
-
エクセルで行挿入した際、自動...
-
エクセルで空白以外のセルの値...
-
エクセルで反転コピー
-
Excelの非表示列も含めてコピー
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
Excel VBAで日にちを入力して線...
-
マクロ初心者です、小数点6桁で...
-
一行おきにコピーするマクロが...
-
エクセル・マクロで最終行を表...
-
エクセルの関数について(日付で...
-
マクロでの条件判断について
-
VBAで作業時間を把握したい(エ...
-
エクセルVBA 複数列をコピーす...
-
エクセル マクロ 貼り付け先が...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルの複数のセルを一括で...
-
EXCELで○ヶ月を○年○ヶ月に変換...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルの関数について(日付で...
-
エクセル マクロ 貼り付け先が...
-
エクセルで表示された値だけ行...
-
エクセルで行挿入した際、自動...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで空白以外のセルの値...
-
[Excel VBA]空白セル以外に連番...
-
【マクロ】IF複数条件の上限に...
-
行数が不規則な一週間ごとの合...
-
エクセルVBA 複数列をコピーす...
-
特定の桁数を抽出
-
エクセルで縦に長い表を印刷
-
最終行から上10行をコピーする...
-
Excel VBAで日にちを入力して線...
-
エクセルのマクロ、AVERAGEIFを...
-
マクロで値がある列までコピー
おすすめ情報
先ほど、いただいた内容をVBAに反映させてみました。
ですが、編集・実行後(応答なし)と出てしまいます。。
https://gyazo.com/a5c0fb770ac8b5766475a80903d283ef
上記のとおりです。
(3~の行目の数値は変更させていただきました。)
どこか変更・修正すべき点がございますでしょうか?
ご確認いただけるとありがたいです。
何卒よろしくお願いいたします。