✅ מחרוזות הפוכות ב- Excel VBA - פקודות מאקרו קלות של Excel

תוכן העניינים

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

מַצָב:

מקם כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:

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

טקסט עמום כמחרוזת, הפוך טקסט כמחרוזת, אורך כמספר שלם, i כמספר שלם

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

text = InputBox ("הזן את הטקסט שברצונך להפוך")
אורך = לן (טקסט)

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

עבור i = 0 לאורך - 1

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

reversedText = reversedText & Mid (טקסט, (אורך - i), 1)

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

הבא i

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

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