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