להלן נבחן תוכנית ב Excel VBA זה יכול מחרוזות הפוכות .
מַצָב:
כאשר Excel אינו יכול לחשב נוסחה, הוא מציג הודעת שגיאה בתא.
להניח כפתור הפקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
1. ראשית, אנו מכריזים על ארבעה משתנים. משתנה אחד הנקרא טקסט מסוג String, משתנה אחד הנקרא reverseText גם מסוג String, משתנה אחד הנקרא אורך מסוג Integer, ומשתנה אחד בשם i מסוג מספר שלם.
אף אחדטֶקסטכפי שמחרוזת, הפוכה טקסטכפי ש חוּט, אורךכפי ש מספר שלם, אניכפי ש מספר שלם
2. אנו מאתחלים שני משתנים. אנו משתמשים בפונקציה InputBox כדי לקבל מחרוזת טקסט מהמשתמש. אנו משתמשים בפונקציית Len ב- Excel VBA כדי לקבל את אורך המחרוזת.
תא הפניה מצטיין בלשונית אחרתtext = InputBox ('הזן את הטקסט שברצונך להפוך')
אורך = לן (טקסט)
3. אנו מתחילים לולאה For Next.
לi = 0לאורך - 14. עכשיו מגיע הטריק הפשוט. אנו לוקחים את הדמות האחרונה מהטקסט ומניחים אותה בחזית 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 reversedText7. בדוק את התוכנית.
תוֹצָאָה:
עבור לפרק הבא: תאריך ושעה