/ / Revers מחרוזות ב - VBA של

הפוך מחרוזות ב - VBA של

להלן נבחן תוכנית ב Excel VBA זה יכול מחרוזות הפוכה.

מצב:

הפוך מחרוזת ב - VBA של

הצב לחצן פקודה בגליון העבודה והוסף את שורות הקוד הבאות:

1. ראשית, אנו מכריזים על ארבעה משתנים. משתנה אחד נקרא טקסט של מחרוזת מסוג, משתנה אחד נקרא reversedText גם של מחרוזת סוג, משתנה אחד נקרא אורך של מספר שלם, ומשתנה אחד הנקרא i מסוג integer.

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

2. אנחנו אתחול שני משתנים. אנו משתמשים בפונקציה InputBox כדי לקבל מחרוזת טקסט מהמשתמש. אנו משתמשים בפונקציה Len ב- Excel VBA כדי לקבל אורך של מחרוזת.

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

הזן טקסט

3. אנו מתחילים לולאה הבאה.

For i = 0 To length - 1

4. עכשיו מגיע הטריק פשוט. אנו לוקחים את התו האחרון מהטקסט ומניחים אותו בחזית ReversedText. אנו יכולים להשתמש בפונקציה אמצע ב- Excel VBA כדי לחלץ דמות ממחרוזת. אנו משתמשים במפעיל & כדי לשרשר (להצטרף) שתי מחרוזות.

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

5. אל תשכח לסגור את הלולאה.

Next i

דוגמה: text = "Car". אורך הטקסט הוא 3. עבור i = 0 עד 2, אנו מחליפים את מחרוזת הטקסט המתחילה באורך המיקום - i עם אורך 1. לכן, עבור i = 0, אמצע (טקסט, 3, 1) שווה r. אנו מציבים r במיקום הראשון של reversedText. עבור i = 1, אמצע (טקסט, 2, 1) שווה a. אנו מוסיפים a reversedText אשר הופך ra. עבור i = 2, אמצע (טקסט, 1, 1) שווה ל C. אנו מוסיפים C כדי reversedText אשר הופך להיות rac.

6. לבסוף, אנו מציגים reversedText באמצעות MsgBox.

msgbox reversedText

7. בדוק את התוכנית.

תוצאה:

התוצאה מחרוזת הפוך

קרא גם: