ここから本文です

エクセルの表に色を付けたい 毎回違う位置に色を付けたい フィルタの範囲は毎...

殿様ぺんぎんさん

2020/1/2113:03:35

エクセルの表に色を付けたい

毎回違う位置に色を付けたい
フィルタの範囲は毎回変わります。
フィルタで「確認」で絞りA列からAC列までに色付けがしたいのですができますでしょうか?

下は録画機能で取得したものです。
Sub フィルタ()
ActiveSheet.Range("$A$1:$AC$857").AutoFilter Field:=29, Criteria1:="確認"
End Sub

Sub 色変更()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 16775160
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

閲覧数:
18
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

hot********さん

2020/1/2113:49:08

絞り込んだ物だけ背景を設定する場合です。

Sub sample()
ActiveSheet.Range("A:AC").Interior.ColorIndex = xlAutomatic 'A:AC列の背景をクリア
ActiveSheet.Range("A:AC").AutoFilter Field:=29, Criteria1:="確認" 'オートフィルタ
ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Interior.Color = RGB(&HF8, &HF7, &HFF) 'オートフィルタ範囲の表示しているセルの背景を設定
'ActiveSheet.AutoFilterMode = False 'オートフィルタ解除(必要なら)
End Sub

  • 質問者

    殿様ぺんぎんさん

    2020/1/2114:44:44

    なぜか、A列からAM列まで色が付きます。
    何かエクセルのそもそもに問題があるのかなぁ・・・

    「背景をクリア」をすると最初っからついている線が消えて見づらくなるので「背景をクリア」を作動しないで
    1行目も色を付けたくないので後で色を付けない様にしたのですが

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2020/1/22 11:00:23

最高です!
ありがとうございます。
これで一歩完成に近づきました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる