teratail
回答率
85.30%
teratail header banner
teratail header banner
質問するログイン新規登録
トップVBAに関する質問VBA 文字列中に太字があるかを判定したい

編集履歴

回答編集履歴

3

誤記修正

2020/03/25 11:24

投稿

Y.H.
Y.H.

スコア7918

test CHANGED
@@ -2,7 +2,7 @@
2
2
 
3
3
  1文字ずつ確認せずとも文字列中にboldがあるかどうか判定可能です。
4
4
 
5
- （※Boldが1文字以上あった場合はNullが返ります。）
5
+ （※Boldと非boldが混在した場合はNullが返ります。）
6
6
 
7
7
 
8
8
 

2

補足追記

2020/03/25 11:24

投稿

Y.H.
Y.H.

スコア7918

test CHANGED
@@ -1,6 +1,8 @@
1
1
  以下のように`.Characters(1, .Characters.Count).Font.Bold`の内容により
2
2
 
3
+ 1文字ずつ確認せずとも文字列中にboldがあるかどうか判定可能です。
4
+
3
- 文字列中にboldがあるかどうか判定可能です。（※Boldが1文字以上あった場合はNullが返ります。）
5
+ （※Boldが1文字以上あった場合はNullが返ります。）
4
6
 
5
7
 
6
8
 

1

誤記修正

2020/03/25 09:09

投稿

Y.H.
Y.H.

スコア7918

test CHANGED
@@ -8,11 +8,11 @@
8
8
 
9
9
  With Worksheets("Sheet1")
10
10
 
11
- For cntRow = 1 To 4
11
+ For cntCol = 1 To 4
12
12
 
13
- With .Cells(1, cntRow)
13
+ Dim hasBoldChars
14
14
 
15
- Dim hasBoldChars
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, cntRow).Value = "〇"
27
+ .Cells(2, cntCol).Value = "〇"
28
28
 
29
29
  End If
30
30