エクセルVBAでの適切なケースに変換
我々は、適切な場合にテキストに変換エクセルVBAでプログラムを見て下記。これは、大文字の各単語の最初の文字、小文字内の他のすべての文字です。
状況：
1.まず、我々は2つの範囲オブジェクトを宣言します。私たちは、レンジRNGとセルオブジェクトを呼び出します。
Dim rng As Range, cell As Range
2.私たちは、選択した範囲でのRangeオブジェクトのRNGを初期化します。
Set rng = Selection
3.私たちは、ランダムに選択された範囲内の各セルをチェックする（この範囲は、任意のサイズとすることができます）。エクセルVBAで、あなたは、このために次の各ループのために使用することができます。次のコード行を追加します。
For Each cell In rng Next cell
注：RNGとセルがランダムにここで選択されている、あなたは任意の名前を使用することができます。
あなたのコードの残りの部分でこれらの名前を参照することを忘れないでください。
（cell.HasFormulaは、我々は継続falseの場合のみ）、数式を含むセルを無視し、それぞれと次の場合の間に次のコード行を追加するには4。
If Not cell.HasFormula Then End If
5.次に、私たちは「適切な場合」に、この範囲内の各単語を変換したいです。
あなたはこの作業のために適切なワークシート関数を使用することができます。あなたのif文に次のコード行を追加します。
cell.Value = WorksheetFunction.Proper(cell.Value)
6.テストプログラム。
結果：
