締切済み

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

  • 困ってます
  • 質問No.9599671
  • 閲覧数92
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 0% (0/1)

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

回答 (全1件)

  • 回答No.1

ベストアンサー率 62% (438/697)

Excel(エクセル) カテゴリマスター
アクティブセル内のアンダーバーの数
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
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
関連するQ&A
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

ピックアップ

ページ先頭へ