/ Excel VBAで適切なケースに変換する

Excel VBAで適切なケースに変換する

以下では、 Excel VBA それ テキストを適切な場合に変換する。つまり、各単語の最初の文字は大文字で、他のすべての文字は小文字です。

状況:

Excel VBAで適切なケースに変換する

1.まず、2つのRangeオブジェクトを宣言します。 Rangeオブジェクトrngとcellを呼び出します。

Dim rng As Range, cell As Range

2.選択した範囲でRangeオブジェクトrngを初期化します。

Set rng = Selection

3.ランダムに選択された範囲内の各セルをチェックしたい(この範囲は任意のサイズでよい)。 Excel VBAでは、For Each Nextループを使用することができます。次のコード行を追加します。

For Each cell In rng

Next cell

注:ここではrngとcellをランダムに選択していますが、任意の名前を使用できます。残りのコードでこれらの名前を参照することを忘れないでください。

4.数式を含むセルを無視するには、For EachとNextの間に次のコード行を追加します(cell.HasFormulaがfalseの場合のみ継続します)。

If Not cell.HasFormula Then

End If

5.次に、この範囲の各単語を「適切な場合」に変換します。このタスクには、ワークシート関数Properを使用できます。 if文に次のコード行を追加します。

cell.Value = WorksheetFunction.Proper(cell.Value)

6.プログラムをテストします。

結果:

適切なケースの結果に変換する

また読む: