300 דוגמאות

מחרוזות הפוכות

Reverse Strings

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





מַצָב:

מחרוזת הפוכה ב- Excel VBA





כאשר Excel אינו יכול לחשב נוסחה, הוא מציג הודעת שגיאה בתא.

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

1. ראשית, אנו מכריזים על ארבעה משתנים. משתנה אחד הנקרא טקסט מסוג String, משתנה אחד הנקרא reverseText גם מסוג String, משתנה אחד הנקרא אורך מסוג Integer, ומשתנה אחד בשם 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. אל תשכח לסגור את הלולאה.

הַבָּאאני

דוגמה: 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.

msgbox reversedText

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

תוֹצָאָה:

תוצאה של מחרוזת הפוכה

3/5 הושלם! למידע נוסף על מניפולציה של מחרוזות>
עבור לפרק הבא: תאריך ושעה



^