No.1ベストアンサー
- 回答日時:
イベントマクロを使えば可能ですが...
http://oshiete1.goo.ne.jp/qa2305999.html
△ここを参考にしたり、または以下。
AutoFilterの色づけしたい対象シートがSheet1だとします。
それとは別に作業用シートを準備します。
その作業用シート任意の1セルに数式を設定します。(たとえばA1)
=SUBTOTAL(3,Sheet1!A:A)
あとは、その作業用シートのシートモジュールのCalculateイベントを使います。
(作業用シートのシートタブ右クリック[コードの表示]で表示されるモジュールに
以下コピーペースト)
'SheetModule
Option Explicit
Private Sub Worksheet_Calculate()
Static r As Range
Dim f As Filter
Dim i As Long
On Error GoTo errHndler
With Sheets("sheet1") '実際の対象シート名に変更が必要
If .AutoFilterMode Then
With .AutoFilter
If r Is Nothing Then Set r = .Range.Rows(1)
For Each f In .Filters
i = i + 1
'33が、識別用 ColorIndex。任意で。
r.Cells(i).Interior.ColorIndex = IIf(f.On, 33, xlNone)
Next f
End With
Else
If Not r Is Nothing Then r.Interior.ColorIndex = xlNone
Set r = Nothing
End If
End With
errHndler:
If Err.Number <> 0 Then MsgBox Err.Number & ":" & Err.Description
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelのセル上の日付の不具合 3 2022/05/22 18:20
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) エクセルでフィルタ後、考えている場所に値コピーができない。 1 2022/05/02 21:01
- Visual Basic(VBA) オートフィルタで抽出結果に 罫線をひく方法 1 2022/07/13 13:08
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- ガーデニング・家庭菜園 この木の名前を教えてください 1 2022/10/11 07:32
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/10/25 09:26
- Excel(エクセル) エクセル 表の作り方ご教示ください 5 2023/07/01 01:02
- エアコン・クーラー・冷暖房機 エアコンのオートについて。 家にあるエアコンのモードが冷房・暖房・除湿・オートとあるのですが、オート 4 2022/08/04 13:45
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
エクセルでファイルを開いたと...
-
エクセルで前シートを参照して...
-
EXCEL:同じセルへどんどん足し...
-
シートの保護のあとセルの列、...
-
別シート参照のセルをシート毎...
-
エクセルVBAでパスの¥マークに...
-
Excelで金銭出納帳。繰越残高を...
-
エクセル計算式解説
-
前の(左隣の)シートを連続参...
-
スプレッドシートの関数VLOOKUP...
-
複数シートの特定の位置に連番...
-
エクセルのシート名をリスト化...
-
エクセルで前のシートを連続参...
-
複数のピボットを同じフィルタ...
-
Accessのスプレッドシートエク...
-
excelでシート毎の最終更新日を...
-
エクセルで、「1つ前のシート...
-
エクセルでファイル保存時に複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
Excelで金銭出納帳。繰越残高を...
-
エクセルでファイルを開いたと...
-
EXCELで1ヶ月分の連続した日付...
-
エクセルVBAでパスの¥マークに...
-
EXCEL:同じセルへどんどん足し...
-
シートの保護のあとセルの列、...
-
別シート参照のセルをシート毎...
-
エクセルで前のシートを連続参...
-
前の(左隣の)シートを連続参...
-
EXCELで同一フォーマットのシー...
-
VBAでシートコピー後、シート名...
-
Excel 連番を入力する方法
-
エクセル 計算式も入っていない...
-
エクセルで前シートを参照して...
-
エクセルでシート名を自動入力...
-
Accessのスプレッドシートエク...
-
複数シートの特定の位置に連番...
-
エクセルのシート名をリスト化...
おすすめ情報