아래 우리는 문자열을 취소 할 수 있습니다 엑셀 VBA에서 프로그램을 볼 것이다.

상황 :

Reverse String in Excel VBA

워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가

  1. 먼저, 우리는 네 개의 변수를 선언합니다. String 형의 텍스트라는 하나 개의 변수도 유형 문자열의 reversedText라는 하나 개의 변수, 유형 정수의 길이라는 하나 개의 변수, 하나 개의 변수는 타입 정수의 난을했다.

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

  1. 우리는 두 개의 변수를 초기화합니다. 우리는 사용자의 텍스트 문자열을 얻기 위해 InputBox 함수를 사용합니다. 우리는 문자열의 길이를 얻을 엑셀 VBA에서 Len 함수를 사용합니다.

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

length = Len(text)

Enter Text

  1. 우리는 다음의 루프를 시작합니다.

For i = 0 To length - 1

  1. 이제 간단한 트릭을 온다. 우리는 텍스트에서 마지막 문자를 가지고 ReversedText의 전면에 배치합니다. 우리는 문자열에서 문자를 추출하는 엑셀 VBA의 중간 기능을 사용할 수 있습니다. 우리는 CONCATENATE (조인) 두 문자열에 & 연산자를 사용합니다.

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

루프를 종료하는 것을 잊지 마세요 5..

Next i

예 : 텍스트 = “자동차”. i가 0 내지 2 = 텍스트의 길이는 3 인, 우리는 위치 길이부터 텍스트 문자열을 추출 – 전 길이 1. 따라서, I = 0에 대해, 중간 (텍스트, 3, 1)이 ®과 같다. 우리는 reversedText의 첫 번째 위치에 R을 배치합니다. 내가 = 1은 중간 (텍스트, 2, 1)는 동일합니다. 우리는 가시가된다 reversedText에 추가합니다. 내가 2, 중간 (텍스트, 1, 1) C. 동일 =를 들어 우리는 RAC된다 reversedText에 C를 추가합니다.

  1. 마지막으로, 우리는있는 MsgBox를 사용하여 reversedText를 표시합니다.

msgbox reversedText

  1. 테스트 프로그램.

결과 :

Reverse String Result