VBA練習問題
VBA100本ノック 13本目:文字列の部分フォント

VBAを100本の練習問題で鍛えます
最終更新日:2021-02-22

VBA100本ノック 13本目:文字列の部分フォント


セルに入っている文字列の一部のフォントを変更する問題です。


ツイッター連動企画です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。

VBAテスト用のサンプルデータは、VBA100本ノックの目次ページ からもダウンロードできます。
マクロVBA情報を中心に、エクセル関数・基本操作までサンプルとともに解説。初心者向けの基本から上級者向けの高度な内容までVBAサンプルコードを掲載解説しています。


出題

出題ツイートへのリンク

#VBA100本ノック 13本目
選択セル(Selection:複数範囲あり)の文字列に「注意」という文字があった場合は、その「注意」の文字だけを"赤の太字"に設定してください。
セル以外(図形等)が選択されている場合は何もせずに正常終了するようにしてください。

VBA マクロ 100本ノック


サンプルファイルです。
https://excel-ubara.com/vba100sample/VBA100_13.xlsm
https://excel-ubara.com/vba100sample/VBA100_13.zip


頂いた回答

解説

Selectionは必ずしもセルとは限らず図形等の場合もあるのでTypeNameでセル選択か確認しています。
また、計算式の場合は一部のFont変更はできないのでHasFormulaで外しています。
範囲が大きいと処理時間がかかるので1列全体を上限にしました。
文字列内の一部のFont設定はCharactersで設定します。

Sub VBA100_13_01()
  If TypeName(Selection) <> "Range" Then
    Exit Sub
  End If
  If Selection.CountLarge > Rows.Count Then
    MsgBox "選択範囲が大きすぎます。"
    Exit Sub
  End If
  
  Const cns注意 = "注意"
  Dim rng As Range
  Dim ix As Long
  
  For Each rng In Selection
    If Not rng.HasFormula Then
      ix = 1
      Do
        ix = InStr(ix, rng.Value, cns注意)
        If ix = 0 Then Exit Do
        With rng.Characters(ix, Len(cns注意))
          .Font.Bold = True
          .Font.Color = vbRed
        End With
        ix = ix + Len(cns注意)
      Loop
    End If
  Next
End Sub


先のVBAではInstrの開始位置をずらしながら"注意"を探しましたが、1文字ずつ確認していく方法もあります。
よほど大量に処理するのでなければどちらでも良いと思います。
ですが、いずれにしても選択範囲が大きい場合(全セル選択)にこれでは対応できません。

  Const cns注意 = "注意"
  Dim rng As Range
  Dim i As Long
  
  For Each rng In Selection
    If Not rng.HasFormula Then
      For i = 1 To Len(rng.Value) - Len(cns注意) + 1
        If Mid(rng.Value, i, Len(cns注意)) = cns注意 Then
          With rng.Characters(i, Len(cns注意))
            .Font.Bold = True
            .Font.Color = vbRed
          End With
        End If
      Next
    End If
  Next


解決方法としてSpecialCellsを使う方法が回答されています。
https://twitter.com/ExcelQBag/status/1322447866233675780
https://twitter.com/furyutei/status/1322492458496782336
このVBAサンプルは記事補足に載せておきました。


補足

複数列全体や全セル選択時に、For EachでSelectionを処理したのでは、膨大な時間がかかってしまいます。
処理対象は文字列が入っているセルだけです。
そこで、
SpecialCells(xlCellTypeConstants, xlTextValues)
これで、文字列の入っているセルだけに絞っています。
1セルしか選択していない場合は、SpecialCellsは全セル対象になってしまうので、Intersectで本来の選択範囲にしています。

また参考として、正規表現を使って文字列を検索する方法を紹介しておきます。

Sub VBA100_13_03()
  Dim target As Range
  On Error Resume Next
  Set target = Intersect(Selection, Selection.SpecialCells(xlCellTypeConstants, xlTextValues))
  If target Is Nothing Then Exit Sub
  
  Const cns注意 = "注意"
  
  Dim reg As Object
  Set reg = CreateObject("VBScript.RegExp")
  
  Dim rng As Range
  For Each rng In target
    Call CharactersFont(rng, cns注意, reg)
  Next
  
  Set reg = Nothing
End Sub

Sub CharactersFont(rng As Range, argStr As String, reg As Object)
  Dim mc As Object
  Dim m As Object
  
  With reg
    .Pattern = argStr
    .Global = True
    Set mc = .Execute(rng.Value)
  End With
  
  For Each m In mc
    With rng.Characters(m.FirstIndex + 1, m.Length)
      .Font.Bold = True
      .Font.Color = vbRed
    End With
  Next
End Sub


サイト内関連ページ

第16回.繰り返し処理(For Next)|VBA入門
VBAのForNextは、同じ処理を繰り返し行うためのVBA構文です。繰り返し処理はループ処理とも呼ばれます。マクロでのループ処理の記述は何通りかありますが、まず最初に覚えるべきものが、今回説明するForNextです。
第17回.繰り返し処理(Do Loop)|VBA入門
繰り返し処理として、前回はFor~Nextをやりました、今回はDo~Loopです。For~Nextに比べると使用頻度は落ちますが、必ず覚える必要があるものです。For~Nextは、繰り返す回数をあらかじめ指定するものでしたが、Do~Loopは、繰り返す回数ではなく、繰り返す条件を指定するものです。
第47回.VBA関数(文字列操作,Replace,InStr,StrConv)|VBA入門
文字列操作は、マクロVBAでプログラミングする上で必須です、データ整形、データクレンジング、データクリーニング、これらを行うVBAにおいて不可欠なものが、文字列操作関数です。ここでは、文字列操作に関するVBA関数の一覧と Replace関数、InStr関数、StrConv関数について解説します。
第135回.ジャンプの選択オプション(SpecialCells)|VBA入門
数式の入っているセル、定数の入っているセル、条件付き書式の設定されているセル、これらをシート全体やセル範囲の中から一括で取得する方法がVBAにはあります。手動でのジャンプ機能のセル選択をVBAで使うことができます。VBAでは、RangeオブジェクトのSpecialCellsメソッドがこの機能に該当します。
VBAで正規表現を利用する(RegExp)|VBA技術解説
正規表現は複雑なパターンマッチングとテキストの検索置換するためのツールです、VBAで正規表現を使う場合はRegExpオブジェクトを使用します、RegExpは、VBScriptに正規表現として用意されているオブジェクトです。目次 メタ文字 正規表現 正規表現RegExpの使い方 RegExpオブジェクト RegExpの使用例 RegExp関連のオブジェクト…




同じテーマ「VBA100本ノック」の記事

10本目:行の削除
11本目:セル結合の警告
12本目:セル結合を解除
13本目:文字列の部分フォント
14本目:社外秘シート削除
15本目:シートの並べ替え
16本目:無駄な改行を削除
17本目:重複削除(ユニーク化)
18本目:名前定義の削除
19本目:図形のコピー
20本目:ブックのバックアップ


新着記事NEW ・・・新着記事一覧を見る

VBA100本ノック 99本目:自動席替え(行列と前後左右が全て違うように)|VBA練習問題(3月2日)
VBA100本ノック 98本目:席替えルールが守られているか確認|VBA練習問題(3月1日)
VBA100本ノック 97本目:Accessデータを取得(グループ集計)|VBA練習問題(2月27日)
VBA100本ノック 96本目:Accessデータを取得(マスタ結合&抽出)|VBA練習問題(2月26日)
VBA100本ノック 95本目:図形のテキストを検索するフォーム作成|VBA練習問題(2月24日)
VBA100本ノック 94本目:表範囲からHTMLのtableタグを作成|VBA練習問題(2月23日)
VBA100本ノック 93本目:複数ブックを連結して再分割|VBA練習問題(2月22日)
VBA100本ノック 92本目:セルの色を16進で返す関数|VBA練習問題(2月20日)
VBA100本ノック 91本目:時間計算(残業時間の月間合計)|VBA練習問題(2月19日)
VBA100本ノック 90本目:セルに重なっている画像の削除|VBA練習問題(2月17日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
6.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
7.繰り返し処理(For Next)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.マクロはどこに書くの(VBEの起動)|VBA入門
10.とにかく書いてみよう(Sub,End Sub)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ