みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Excelで下線の引いているのをカウント

Excelを使用してシフトを作成しています。
下に下線(アンダーバー)が引いてある文字の合計をカウントしたいです。
また出来るのであれば、「A」と「B」の2パターンにアンダーバーを引いておりそれぞれの個数を数えることが出来ると嬉しいです。
上記内容で使えるのはありますか?

投稿日時 - 2019-03-23 13:11:28

QNo.9599671

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

アクティブセル内のアンダーバーの数
Sub Test()
 Dim i As Long, n As Long
 With ActiveCell
  For i = 1 To .Characters.Count
   If .Characters(i, 1).Font.Underline <> xlUnderlineStyleNone Then
    n = n + 1
   End If
  Next i
 End With
 MsgBox "アンダーライン数:" & n & "個"
End Sub
アクティブセル内の「A」「B」それぞれのアンダーバーの数
Sub Test2()
 Dim i As Long, A数 As Long, B数 As Long
 With ActiveCell
  For i = 1 To .Characters.Count
   If .Characters(i, 1).Font.Underline <> xlUnderlineStyleNone Then
    Select Case .Characters(i, 1).Text
     Case "A": A数 = A数 + 1
     Case "B": B数 = B数 + 1
    End Select
   End If
  Next i
 End With
 MsgBox "Aに引かれた数:" & A数 & "個" & vbCrLf & "Bに引かれた数:" & B数 & "個"
End Sub

投稿日時 - 2019-03-23 14:50:06

あなたにオススメの質問