回答編集履歴
3
誤記修正
answer
CHANGED
@@ -1,6 +1,6 @@
|
|
1
1
|
以下のように`.Characters(1, .Characters.Count).Font.Bold`の内容により
|
2
2
|
1文字ずつ確認せずとも文字列中にboldがあるかどうか判定可能です。
|
3
|
-
(※Boldが
|
3
|
+
(※Boldと非boldが混在した場合はNullが返ります。)
|
4
4
|
|
5
5
|
```VBA
|
6
6
|
With Worksheets("Sheet1")
|
2
補足追記
answer
CHANGED
@@ -1,5 +1,6 @@
|
|
1
1
|
以下のように`.Characters(1, .Characters.Count).Font.Bold`の内容により
|
2
|
+
1文字ずつ確認せずとも文字列中にboldがあるかどうか判定可能です。
|
2
|
-
|
3
|
+
(※Boldが1文字以上あった場合はNullが返ります。)
|
3
4
|
|
4
5
|
```VBA
|
5
6
|
With Worksheets("Sheet1")
|
1
誤記修正
answer
CHANGED
@@ -3,15 +3,15 @@
|
|
3
3
|
|
4
4
|
```VBA
|
5
5
|
With Worksheets("Sheet1")
|
6
|
-
For
|
6
|
+
For cntCol = 1 To 4
|
7
|
-
With .Cells(1, cntRow)
|
8
|
-
|
7
|
+
Dim hasBoldChars
|
8
|
+
With .Cells(1, cntCol)
|
9
9
|
hasBoldChars = .Characters(1, .Characters.Count).Font.Bold
|
10
10
|
hasBoldChars = IsNull(hasBoldChars) Or hasBoldChars
|
11
11
|
End With
|
12
12
|
|
13
13
|
If hasBoldChars Then
|
14
|
-
.Cells(2,
|
14
|
+
.Cells(2, cntCol).Value = "〇"
|
15
15
|
End If
|
16
16
|
Next
|
17
17
|
End With
|