複数の指定の数値のときは表示それ以外は非表示

質問

現在、セルに３１が入っております。1.3.5.7.8.10.12
のときは非表示にしたいのですが、この場合はどのようにしたらいいですか？

回答No.2

tom04

こんにちは！
VBAになってしまいますが、一例です。
データはA列の1行目からあるとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）
尚、再表示も必要かと思いますので、再表示のマクロも一緒に載せておきます。

Sub 非表示() 'この行から
Dim i As Long, k As Long, myArray
myArray = Array(1, 3, 5, 7, 8, 10, 12)
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For k = 0 To UBound(myArray)
If Cells(i, 1) = myArray(k) Then
Rows(i).Hidden = True
End If
Next k
Next i
End Sub

Sub 再表示()
Rows.Hidden = False
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m

回答No.1

tsubuyuki

条件付き書式で

・数式：=OR(セル=1,セル=3,セル=5・・・,セル=12)
・書式：文字色＝背景色（通常は白）

で何とかなると思われます。