以下は、私たちは、文字列を逆にすることができますエクセルVBAでプログラムを見ていきます。

状況：

Reverse String in Excel VBA

ワークシート上のコマンドボタンを配置し、次のコード行を追加します。

1.まず、我々は4つの変数を宣言します。一つのString型のテキストと呼ばれる変数も、String型のreversedTextと呼ばれる一つの変数、Integer型の長さと呼ばれる一つの変数、および1つの変数は、Integer型のIと呼ばれます。

Dim text As String, reversedText As String, length As Integer, i As Integer

2.私たちは、2つの変数を初期化します。私たちは、ユーザーからのテキスト文字列を取得するために、InputBox関数を使用します。私たちは、文字列の長さを取得するために、Excel VBAでLen関数を使用します。

text = InputBox("Enter the text you want to reverse")

length = Len(text)

Enter Text

3.私たちは、次のループの開始します。

For i = 0 To length - 1

4.次に、単純なトリックをしています。我々は、テキストから最後の文字を取り、ReversedTextの前でそれを置きます。私たちは、文字列から文字を抽出するために、Excel VBAでMid関数を使用することができます。我々は2つの文字列（参加）CONCATENATEに＆演算子を使用します。

reversedText = reversedText & Mid(text, (length - i), 1)

5.ループを閉じることを忘れないでください。

Next i

例：テキスト=「カー」。 iは0〜2 =テキストの長さが3である、我々は位置の長さで始まるテキストのストリングを抽出する – 私は長さ1としたがって、I = 0のため、ミッド（テキスト、3,1）は、Rに等しいです。私たちは、reversedTextの第1の位置にRを配置します。 I = 1のため、ミッド（テキスト、2、1）に等しいです。私たちは、RAとなりreversedTextに追加します。 I 2は、ミッド（テキスト、1、1）C.に等しい=ために、我々は、RACなるreversedTextにCを追加します。

6.最後に、メッセージボックスを使用してreversedTextを表示します。

msgbox reversedText

7.テストプログラム。

結果：

Reverse String Result