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

エクセルVBA　Characterプロパティについて説明します。
文字列の中の文字毎に書式設定や加工をすることが出来ます。
見栄えのする書面の作成にも有用です。

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

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

けれども、

悩める君

文字列の一部分の文字だけを加工・設定することは出来ますか？

じゅんぱ店長

やり方によってです！

Charactersプロパティを使えば可能になります。

セルの編集

コンテンツ

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

Charactersプロパティの構文

記述方法

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

Start

　省略可能です。
　Variant型で指定します。
　返す先頭文字を指定します。この引数に 1 を指定するか、省略すると、このプロパティは先頭文字から始まる文字列範囲を返します。

Length

　省略可能です。
　Variant
　返す文字数を指定します。この引数を省略すると、引数 Start により指定された文字より後にある、文字列の残りの部分を返します。

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

目次へ戻る

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

	名称	説明
メソッド	Delete	文字列中の一部の文字を削除する
メソッド	Insert	文字列中の一部の文字を置き換える。挿入する。
プロパティ	Caption	文字列中の一部の文字を表示する。取り出す。
	Count	文字列の文字数を数える。
	Text	文字列中の一部の文字を置き換える。取り出す。
	Font	文字列中の一部の文字の書式設定をする。

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

Deleteメソッド

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

記述方法

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

VBA

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

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

コード実行前

コード実行後

Insertメソッド

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

記述方法

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

≪挿入する場合≫

Lengthを”0″にする

VBA

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

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

コード実行前

コード実行後

≪置換える場合≫

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

VBA

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

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

コード実行前

コード実行後

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

Captionプロパティ

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

記述方法

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

VBA

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

VBA

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

VBA

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”

VBA

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プロパティについては詳しくはこちらを参考にしてください。

2022年3月29日 Fontプロパティで文字装飾操作をする

VBA

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

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

コード実行前

コード実行後