פונקציית Len היא פונקציה נפוצה הן לגליון העבודה והן ל- VBA, זוהי פונקציה מובנית לשתי הפלטפורמות והתחביר להשתמש בפונקציה זו דומה גם כן, הטיעונים שהפונקציה הזו לוקח בשתי הפלטפורמות דומים וזה מחרוזת והשימוש או שהפלט עבור פונקציה זו זהה להחזרת אורכו של מחרוזת.
פונקצית VBA LEN
הפונקציה VBA LEN מחזירה את "אורך המחרוזת" כלומר היא מחזירה כמה תווים יש בערך המסופק. מבין כל פונקציות המחרוזות ב- VBA, "LEN" היא הפונקציה הכי פחות מנוצלת. ראיתי את הפונקציה "VBA LEN" המשמשת כפונקציית התמיכה עבור פונקציות מחרוזת אחרות כמו פונקציות VBA MID ופונקציה VBA RIGHT.
איך מוצאים את אורך המחרוזת או הערך?
לדוגמא, אם אתם המשפטים "שלום חבר'ה, בוקר טוב !!!" ואתה אם אתה רוצה למצוא את מספר הדמויות בו איך אתה מוצא את זה? במאמר זה נראה לכם את הפונקציה "VBA LEN".
נוסחה של פונקציית VBA LEN
לפונקציית LEN יש תחביר אחד בלבד כלומר ביטוי.
ביטוי אינו אלא הערך אותו אנו מנסים לבדוק.
לדוגמא, לן ("טוב") יחזור 4.
דוגמאות
להלן הדוגמאות של VBA אורך פונקציית המחרוזת.
דוגמה מס '1
אורך פונקציית מחרוזת VBA פשוט מאוד לשימוש. לדוגמה, עיין בקוד ה- VBA שלמטה.
קוד:
תת LEN_Example () עמעום Total_Length כמחרוזת Total_Length = Len ("Excel VBA") MsgBox Total_Length סוף משנה 
במשתנה הקוד שלעיל הוא "Total_Length".
עמום אורך כולל_כמחרוזת
עבור משתנה זה, הקצנו את הערך באמצעות פונקציית VBA LEN.
Total_Length = Len ("Excel VBA")לפונקציה LEN, הקצנו את הערך כ- "Excel VBA".
Total_Length = Len ("Excel VBA")לאחר מכן אנו מראים את התוצאה בתיבת ההודעות VBA.
MsgBox Total_Length
כשאני מריץ את הקוד הזה באמצעות מקש F5 או באופן ידני, נקבל 9 כתוצאה מכיוון שמרחב הוא גם תו.
VBA LEN כפונקציית תמיכה
דוגמה מס '1
המטרה של פונקציית LEN מנוצלת בעיקר עם פונקציות אחרות. השתמשתי בפונקציה זו עם פונקציות RIGHT & Instr.
לדוגמה, עיין בנתוני הדוגמה שלהלן.
מהנתונים לעיל עלינו לחלץ את התאריך בנפרד והערות בנפרד. העתק את הנתונים שלעיל לגיליון ה- Excel שלך והדבק בתא A1.
על מנת לחלץ אלמנטים אלה, עלינו להשתמש בפונקציית LEN עם פונקציות מחרוזת אחרות. הקוד שלמטה יעשה את העבודה בשבילנו.
קוד:
תת LEN_Example1 () עמעום הערך שלנו כמחרוזת עמום k כל עוד k = 2 עד 6 'במקרה זה הנתונים שלי התחילו מהתא השני ומסתיימים ב- 6. 'בהתבסס על הנתונים שלך שנה את המספרים OurValue = ActiveSheet.Cells (k, 1). Value' זה יחלץ 10 תווים ראשונים כלומר חלק תאריך ActiveSheet.Cells (k, 2). Value = Left (Trim (OurValue), 10) 'זה יחלץ את חלק ההערות ActiveSheet.Cells (k, 3) .Value = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Sub End End
כאשר אנו מריצים קוד זה באופן ידני או באמצעות מקש F5, נקבל את התוצאה כמו להלן.
דוגמה מס '2
עכשיו אני אראה לך כיצד להשתמש באורך VBA של המחרוזת כפונקציית תמיכה כדי לחלץ את שם המשפחה של השם המלא בעזרת הפונקציה RIGHT & Instr.
להפגנה עיין בנתונים הבאים.
מהרשימה שלעיל עלינו לחלץ את שם המשפחה מהשם המלא. הקוד שלמטה יחלץ את שם המשפחה. LEN משמש כאן כפונקציית תמיכה.
קוד:
תת LEN_Example2 () עמעום מלא שם כמחרוזת עמום k כל עוד עבור k = 2 עד 8 FullName = ActiveSheet.Cells (k, 1). ערך 'זה יחלץ את שם המשפחה ActiveSheet.Cells (k, 2) .Value = Right (FullName , לן (FullName) - InStr (1, FullName, "")) 'LEN מוצא מספר מלא של תווים' מכשירים מוצאים רווח 'LEN - Inst נותן סה"כ תווים מימין סוף סוף המשנה
הפעל את הקוד באמצעות מקש F5 או שתוכל לרוץ ידנית ולראות את התוצאה.
אתה יכול להוריד את אורך המחרוזת VBA של Excel כאן - תבנית פונקציות VBA LEN