回答編集履歴
3
追記
test
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
`Formula1`で「空白(特定の値)でない場合」という条件を追加するのは如何でしょうか。
|
|
2
2
|
参考リンク：[条件付き書式（FormatCondition）｜VBA入門](https://excel-ubara.com/excelvba1/EXCELVBA391.html)
|
|
3
3
|
|
|
4
|
-
自力でも頑張ってほしいけど簡単に書くならこんな感じ？
|
|
4
|
+
自力でも頑張ってほしいけど簡単に書くならこんな感じ？(空欄を除く部分のみ)
|
|
5
5
|
```VBA
|
|
6
6
|
Sub bgcolor()
|
|
7
7
|
With Worksheets("Sheet1").Range("H:H")
|
2
参考コードを追記
test
CHANGED
|
@@ -1,2 +1,19 @@
|
|
|
1
1
|
`Formula1`で「空白(特定の値)でない場合」という条件を追加するのは如何でしょうか。
|
|
2
2
|
参考リンク：[条件付き書式（FormatCondition）｜VBA入門](https://excel-ubara.com/excelvba1/EXCELVBA391.html)
|
|
3
|
+
|
|
4
|
+
自力でも頑張ってほしいけど簡単に書くならこんな感じ？
|
|
5
|
+
```VBA
|
|
6
|
+
Sub bgcolor()
|
|
7
|
+
With Worksheets("Sheet1").Range("H:H")
|
|
8
|
+
.FormatConditions.Delete
|
|
9
|
+
.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="="""""
|
|
10
|
+
.FormatConditions(1).Interior.Color = rgbLightPink
|
|
11
|
+
End With
|
|
12
|
+
End Sub
|
|
13
|
+
```
|
|
14
|
+
3行目の条件は以下の通り。
|
|
15
|
+
`Type:xlCellValue`：`セルの値`が、
|
|
16
|
+
`Fomula1:="="""""`：`""(空白)"`と、
|
|
17
|
+
`Operator:xlNotEqual`：`一致しない時`に。
|
|
18
|
+
|
|
19
|
+
詳細は参考リンクを読んで学習してくださいね。
|
1
改行
test
CHANGED
|
@@ -1,2 +1,2 @@
|
|
|
1
|
-
`Formula1`で「空白
|
|
1
|
+
`Formula1`で「空白(特定の値)でない場合」という条件を追加するのは如何でしょうか。
|
|
2
2
|
参考リンク：[条件付き書式（FormatCondition）｜VBA入門](https://excel-ubara.com/excelvba1/EXCELVBA391.html)
|