teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

3

誤記修正

2020/03/25 11:24

投稿

Y.H.
Y.H.

スコア7918

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

2

補足追記

2020/03/25 11:24

投稿

Y.H.
Y.H.

スコア7918

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

1

誤記修正

2020/03/25 09:09

投稿

Y.H.
Y.H.

スコア7918

answer CHANGED
@@ -3,15 +3,15 @@
3
3
 
4
4
  ```VBA
5
5
  With Worksheets("Sheet1")
6
- For cntRow = 1 To 4
6
+ For cntCol = 1 To 4
7
- With .Cells(1, cntRow)
8
- Dim hasBoldChars
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, cntRow).Value = "〇"
14
+ .Cells(2, cntCol).Value = "〇"
15
15
  End If
16
16
  Next
17
17
  End With