אם גודל המערך שלך גדל ואינך רוצה לתקן את גודל המערך, תוכל להשתמש ב- מילת מפתח ReDim. Excel VBA ואז משנה את גודל המערך באופן אוטומטי.
הוסף מספרים לעמודה A.
מקם כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
1. ראשית, אנו מכריזים על המערך בשם המספרים. הצהירו גם שני משתנים מסוג מספר שלם. אחד בשם בגודל ואחד בשם i.
מספרים עמומים () כמספר שלם, גודל כמספר שלם, i כמספר שלם
הערה: למערך אין עדיין גודל. מספרים, גודל ואני נבחרים כאן באופן אקראי, אתה יכול להשתמש בכל שמות. זכור להתייחס לשמות אלה בשאר הקוד שלך.
2. לאחר מכן, אנו קובעים את גודל המערך ושומרים אותו בגודל המשתנה. תוכל להשתמש בפונקציית גליון העבודה CountA לשם כך. הוסף את שורת הקוד הבאה:
size = WorksheetFunction.CountA (גליונות עבודה (1). עמודות (1))
3. אנו יודעים כעת את גודל המערך ואנו יכולים להגדיל אותו מחדש. הוסף את שורת הקוד הבאה:
מספרי ReDim (גודל)
4. לאחר מכן, אנו מאתחלים כל אלמנט של המערך. אנו משתמשים בלולאה.
עבור i = 1 לגודל
מספרים (i) = תאים (i, 1). ערך
הבא i
5. אנו מציגים את האלמנט האחרון של המערך באמצעות MsgBox.
מספרי MsgBox (גודל)
6. צא מעורך Visual Basic ולחץ על לחצן הפקודה בגיליון.
תוֹצָאָה:
7. עכשיו כדי לראות בבירור מדוע זה נקרא מערך דינאמי, הוסף מספר לעמודה A.
8. לחץ שוב על כפתור הפקודה.
מסקנה: Excel VBA שינה אוטומטית את גודל המערך הדינאמי הזה.
9. כאשר אתה משתמש במילת המפתח ReDim, אתה מוחק את כל הנתונים הקיימים המאוחסנים כעת במערך. לדוגמה, הוסף את שורות הקוד הבאות לקוד שנוצר בעבר:
מספרי ReDim (3)
מספרי MsgBox (1)
תוֹצָאָה:
המערך ריק.
10. כאשר ברצונך לשמר את הנתונים במערך הקיים בעת הגדלתם מחדש, השתמש במילת המפתח Preserve.
ReDim שימור מספרים (3)
מספרי MsgBox (1)
תוֹצָאָה:
