Charactersで文字列中の一部の文字を加工する

こんにちは、じゅんぱ店長（@junpa33）です。

セルに入力された文字列の加工や設定は「Fontプロパティ」が本道です。

けれども、

セルの編集の記事一覧

2022年5月22日 Bordersの/位置/線種/太さ/色/と<外枠だけの罫線>の設置 2022年5月1日 セルの編集 DeleteとClearの使い分け 削除とクリアの違い 2022年4月2日 Charactersで文字列中の一部の文字を加工する 2022年3月29日 Fontプロパティで文字装飾操作をする 2020年12月26日 エクセルVBA 同じ項目をまとめる（重複データの整理）コード作成 2020年12月19日 Findメソッドでの検索の方法とコード組み立てのコツ 2022年9月3日 データの並び替え VBA新旧のSortを実データで実証

文字列の一部を加工できるCharactersプロパティの書き方

Charactersプロパティの構文

記述方法

オブジェクト.Characters (Start, Length)

Start

Length

このCharacters構文により取得された値（Caractersオブジェクト）に対して、利用できるメソッドとプロパティがあります。

Charactersオブジェクトのメソッドとプロパティの使い方

Charactersオブジェクトのメソッド

Deleteメソッド

Charactersメソッドで取得したCharactersオブジェクトを削除します。

記述方法

オブジェクト.Characters (Start, Length).Delete

Sub charactersの利用1()
  Range("B3").Value = "大阪府東大阪市"
  Range("B3").Characters(4, 1).Delete
End Sub

「東」が削除されました。

Insertメソッド

Charactersメソッドで取得したCharactersオブジェクトの前に文字を挿入または置換えします。

記述方法

オブジェクト.Characters (Start, Length).Insert(“string”)

≪挿入する場合≫

Lengthを”0″にする

Sub charactersの利用2()
  Range("B3").Value = "JR横浜駅"
  Range("B3").Characters(3, 0).Insert ("新")
End Sub

「横」の前に「新」が挿入されます。

≪置換える場合≫

Lengthを”1″（1以上）にする

Sub charactersの利用3()
  Range("B3").Value = "JR横浜駅"
  Range("B3").Characters(3, 1).Insert ("新")
End Sub

「横」の代わりに「新」が置換えられます。

Charactersオブジェクトの主なプロパティ

Captionプロパティ

Charactersメソッドで取得したCharactersオブジェクトの文字列を表す文字列型 (String) の値を返します。

記述方法

オブジェクト.Characters (Start, Length).Caption

Sub charactersの利用4()
    Dim Word As String
        Range("B3").Value = "桃栗3年柿8年"
        Word = Range("B3").Characters(2, 1).Caption
        Range("B5").Value = Word
End Sub

取得した値「栗」を表示しました。

Countプロパティ

Charactersメソッドで取得したCharactersオブジェクトの文字数を長整数型 (Long) の値で返します。

記述方法

オブジェクト.Characters (Start, Length).Count

Sub charactersの利用5()
    Dim Wordc As String
        Range("B3").Value = "桃栗3年柿8年"
        Wordc = Range("B3").Characters.Count
        Range("B5").Value = Wordc
End Sub

文字数を「７」と返しました。

Textプロパティ

Charactersメソッドで取得したCharactersオブジェクトの文字列の表示や設定加工します。

≪表示する場合≫

記述方法

オブジェクト.Characters (Start, Length).Text

Sub charactersの利用6()
    Dim Wordt As String
        Range("B3").Value = "桃栗3年柿8年"
        Wordt = Range("B3").Characters(1, 4).Text
        Range("B5").Value = Wordt
End Sub

「桃栗3年」を表示しました。

≪設定変更する場合≫

記述方法

オブジェクト.Characters (Start, Length).Text = “string”

Sub charactersの利用7()
        Range("B3").Value = "桃栗3年柿8年"
        Range("B3").Characters(1, 4).Text = "柿8年"
End Sub

「桃栗3年」が「柿8年」に変更されました。

Fontプロパティ

Charactersメソッドで取得したCharactersオブジェクトの文字列からFontオブジェクトを取得します。

記述方法

オブジェクト.Characters (Start, Length).Font

Fontプロパティで文字列の書式設定を行います。

Fontプロパティについては詳しくはこちらを参考にしてください。

Fontプロパティで文字装飾操作をする

Sub charactersの利用8()
        Range("B3").Value = "桃栗3年柿8年"
        With Range("B3").Characters(1, 2).Font
            .Bold = True
            .ColorIndex = 46
        End With
End Sub

「桃栗」が太字でオレンジ色に変わりました。

Charactersプロパティで文字の加工と設定のまとめ

「Character」を使えば、セル入力された文字列に「個性」を持たせることが出来ます。

たくさん準備されているプロパティでいろんな個性を作り出すことが出来ます。

けれども実際に、資料や帳票を作成する場合での、見栄えの良い資料作りとか、あるいは

入力された文字データの一部を修正することがあった場合を考えてみます。

実は、実際の仕事作業では、エクセルシート上でカーソルを動かして”チョイチョイ”と作業するだけでしょう。

その場その場の校正・校閲的な作成資料の見直しでは、その方が速そうです。

ですので、

「Character」の使い方としては、定型的な設定（装飾）で汎用的に使えるマクロとして、

VBAコードを組み立てることが必要だと考えます。

エクセルVBAを独学で学ぶための参考記事

エクセルVBAを独習するのに参考書は欠かせません。 参考書選びは自分に合った「相棒」にできるものを選んでいきたいです。

2022年1月9日 エクセルVBAの独習でおすすめ参考書を7冊選ぶ。良書との出会いは大切です

エクセルVBAの独習には動画学習という方法もあります。 目と耳両方を使って学習することでさらに勉強効率を上げることもできると思います

2021年4月4日 エクセルVBA初級者がUdemyで動画学習する講座おすすめ５選と無料講座の上手な使い方。

改訂新版 てっとり早く確実にマスターできるＥｘｃｅｌ ＶＢＡの教科書

定番参考書の改定新版が、動画付きになりもっと分かり易くなった

電子書籍版「改訂新版 てっとり早く確実にマスターできるＥｘｃｅｌ ＶＢＡの教科書」をamazonで見てみる

（著者）大村あつし
（出版社）技術評論社
（税込価格）2,508円（本体2,280円＋税）

30冊を超えるExcelのマクロやVBAの解説書を執筆してきた著者による考え抜かれた本書の内容と構成。
独創的な解説手法で必ずExcel VBAが理解できます！
初級からの参考書ですが、より実践的切り口での解説をしています。
QRコードから操作の流れを動画（無音です）で確認することもできるようになりました。
文章解説と動画との関係性は、主は文章での解説、サポートが動画になります。

てっとり早く確実にマスターできるＥｘｃｅｌ　ＶＢＡの教科書 改訂新版/技術評論社/大村あつし

posted with カエレバ

楽天市場

Amazon

Yahooショッピング

7net

　セルの操作の記事一覧

セルの背景色を2クリックで他範囲にも展開できるマクロ データの並び替え VBA新旧のSortを実データで実証 「セルの保護」の設定VBAを最速理解 「グラデーションの塗りつぶし」のセルを設定する 「塗りつぶしの網掛け」VBAを最速理解 「塗りつぶし」背景色をVBAで記述する 「罫線」のVBAを最速理解 「フォント」の操作を最速理解する エクセルVBA 「配置」を最速理解する エクセルVBA 「表示形式」をVBAコード的に最速理解する セルの範囲選択と設定は14のツールで対応する Endプロパティで上下左右の最終セルを取得 EntireColumnとColumnの使い方 EntireRowとRowプロパティの違い Columnsプロパティの列指定で参照する UnionとRangeの一括選択の働きを比較 Resizeプロパティでセル範囲をサイズ変更 Range VS Cells ！VBAで使えるのはどっち UsedRangeプロパティの使い方のコツ Bordersの/位置/線種/太さ/色/と<外枠だけの罫線>の設置 Rowsプロパティの働きと関連のメソッド セルの編集 DeleteとClearの使い分け 削除とクリアの違い CurrentRegionは連続データをまとめて掴む SpecialCellsメソッドはセル検索し選択する Charactersで文字列中の一部の文字を加工する Fontプロパティで文字装飾操作をする エクセルVBA 同じ項目をまとめる（重複データの整理）コード作成 Findメソッドでの検索の方法とコード組み立てのコツ データ入力済セルの最終行番号を取得する Offsetプロパティは指定範囲を移動させる

エクセルVBA最速理解で必要な知識を集めよう！

今回の記事はここまでです。   最後までご覧いただき有難うございました。