שינוי שם של גיליונות ב- Excel נעשה משורת המשימות שמתחת לגליונות העבודה קיימים על ידי לחיצה כפולה עליהם, אך ב- VBA אנו משתמשים בגליונות או בשיטת המאפיין גליון עבודה כדי לשנות את שם הגיליון, התחביר לשינוי שם גיליון ב- VBA הוא גליונות כדלקמן (" שם גיליון ישן "). שם =" שם גיליון חדש ".
שנה את שם הגיליון ב- Excel VBA
כולנו ביצענו את המשימה הזו לשנות את שם גליון העבודה לפי הזהות שלנו או לפי הנוחות שלנו, לא? שינוי שם אינו מדע טילים לשלוט בו, אך אם אתה קודן ה- VBA, עליך לדעת את המשימה הזו של שינוי שם גליון העבודה. מכיוון שאנו עובדים עם דפי עבודה באמצעות שמם חשוב לדעת את חשיבות שמות גליונות העבודה בקידוד VBA. במאמר זה נראה לך כיצד לשנות את שם הגיליון באמצעות קידוד VBA של Excel.
כיצד לשנות שם לגיליון ב- VBA?
שינוי שם גליון העבודה אינו זקוק לכישורים מיוחדים. עלינו רק להפנות איזה שם גיליון אנו משנים על ידי הזנת שם הגיליון הקיים.
לדוגמא, אם אנו רוצים לשנות את שם הגיליון בשם "גיליון 1", עלינו לקרוא לגליון בשמו באמצעות אובייקט גליון עבודה.
דפי עבודה ("גיליון 1")לאחר שהזכרנו את שם הגיליון עלינו לבחור במאפיין "שם" כדי לשנות את שם גליון העבודה.
דפי עבודה ("גיליון 1"). שםכעת עלינו להגדיר את מאפיין השם לשם בהתאם לרצוננו.
גליונות עבודה ("גיליון 1"). שם = "שם חדש"כך, אנו יכולים לשנות את שם גליון העבודה ב- VBA באמצעות מאפיין Name.
בחלקים הבאים של המאמר, נראה לך יותר ויותר דוגמאות לשינוי או שינוי שם של גליון העבודה.
דוגמאות לשינוי שם גליונות עבודה ב- Excel VBA
להלן הדוגמאות של גיליון שינוי שם ה- VBA.
אתה יכול להוריד תבנית גיליון שינוי שם של VBA כאן - תבנית גיליון שינוי שם של VBAדוגמה מס '1 - שנה או שנה שם של גיליון באמצעות משתני VBA.
לדוגמא, עיין בקוד הדוגמה שלמטה.
קוד:
משנה שם_דוגמה 1 () עמעום Ws כגיליון עבודה סט Ws = גליונות עבודה ("Sheet1") Ws.Name = "גיליון חדש" Sub End 
בקוד לעיל תחילה, הכרזתי על המשתנה כגליון עבודה.
עמעום כגליון עבודה
לאחר מכן, הגדרתי את ההתייחסות למשתנה כ- "Sheet1" באמצעות אובייקט גליונות עבודה.
הגדר Ws = גליונות עבודה ("Sheet1")כעת המשתנה "Ws" מחזיק בהפניה של גליון העבודה "Sheet1".
כעת באמצעות המשתנה "Ws" שיניתי את שם גליון העבודה ל"גיליון חדש ".
קוד זה ישנה את השם "Sheet1" ל"גיליון חדש ".
אם אני מריץ את הקוד באופן ידני או דרך מקש הקיצור F5 אז שוב נקבל שגיאת Subscript Out of Range.
הסיבה מדוע אנו מקבלים שגיאה זו מכיוון שבשלב הקודם עצמו כבר שינינו את גליון העבודה בשם "Sheet1" ל"גיליון חדש ". מכיוון שכבר אין שם גליון העבודה "Sheet1" אינו זמין. VBA זורק שגיאה זו.
דוגמה מס '2 - קבל את כל שמות גליון העבודה בגיליון יחיד.
אנו יכולים לקבל את כל שמות גליונות העבודה של חוברת העבודה בגיליון יחיד. הקוד שלהלן יחלץ את כל שמות גליונות העבודה.
קוד:
תת Renmae_Example2 () עמעום Ws כגיליון עבודה עמום LR כל זמן עבור כל Ws ב- ActiveWorkbook. דפי עבודה LR = גליונות עבודה ("גיליון ראשי"). תאים (שורות. ספירה, 1). סוף (xlUp). שורה + 1 תאים (LR, 1). בחר ActiveCell.Value = Ws.Name הבא Ws סוף משנה 
קוד זה יחלץ את כל שמות גליונות העבודה הזמינים לגיליון בשם "גיליון ראשי".
דוגמה מס '3 - הגדר שם קבוע לגליון העבודה של Excel באמצעות VBA
מכיוון שאנו עובדים עם שמות גיליונות בקידוד חשוב להגדיר להם שמות קבועים. כיצד נקבע להם שמות קבועים?
לדוגמא עיין בקוד שלהלן.
קוד:
Sub Rename_Example3 () גליונות עבודה ("Sheet1"). בחר Sub Sub 
הקוד שלמעלה יבחר את Sheet1.
אם חוברת העבודה שלך משמשת אנשים רבים, אם מישהו שינה את שם גליון העבודה, נקבל את שגיאת המנוי מחוץ לטווח.
כדי להימנע מכך אנו יכולים להגדיר את השם הקבוע אליו. כדי להגדיר את השם הקבוע לפי הצעדים הבאים.
שלב 1: בחר את הגיליון שאנו צריכים להגדיר את השם הקבוע בעורך Visual Basic.
שלב 2: לחץ על מקש F4 כדי לראות את חלון המאפיינים.
שלב 3: תחת שם, נכס שנה את השם ל"שם חדש ".
As you can see one name is showing as “Sheet1” and in a bracket, we can see the new name as “New Sheet”.
Now in coding, we will use the new name instead of an actual visible name.
Code:
Sub Rename_Example3() NewSheet.Select End Sub
Now come back to the worksheet window, we can still see the sheet name as “Sheet1” only.
Now I will change the sheet name to “Sales”.
If I run the code using the F5 key or manually then it will still select the sheet named “Sales” only. Since we had given a permanent name to it, still it will select the same sheet only.
