/ / Excel VBAのリバース文字列

Excel VBAのリバース文字列

以下では、 Excel VBA ができる リバース文字列.

状況:

Excel VBAの逆文字列

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

1.まず、4つの変数を宣言します。 String型のテキストと呼ばれる1つの変数、String型のreversedTextという1つの変数、Integer型の長さと呼ばれる1つの変数、Integer型のiという1つの変数。

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)

テキストを入力

3. For Nextループを開始します。

For i = 0 To length - 1

4.今すぐ簡単なトリックが来る。 テキストの最後の文字をReversedTextの前に置きます。 Excel VBAでMid関数を使用すると、文字列から文字を抽出できます。 &演算子を使用して、2つの文字列を連結(結合)します。

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

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

Next i

例:text = "Car"テキストの長さは3です。 i = 0〜2の場合、長さ1の位置から始まるテキストの部分文字列を抽出します。したがって、i = 0の場合、Mid(text、3,1)はrに等しくなります。 rをreversedTextの最初の位置に置きます。 i = 1の場合、Mid(テキスト、2、1)はaと等しくなります。我々はraになるreversedTextにaを加える。 i = 2の場合、Mid(text、1,1)はCと等しくなります.cをreversedTextに追加します。これはraCになります。

6.最後に、MsgBoxを使用してreversedTextを表示します。

msgbox reversedText

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

結果:

リバース文字列結果

また読む: