כיצד להשתמש בשם של גיליון כמשתנה ב- Microsoft Excel 2007

שלב 1

לחץ על הכרטיסייה "מפתח" ולאחר מכן על "Visual Basic" כדי להפעיל את עורך VB. לחץ על תפריט "הוספה" ולאחר מכן על "מודולים" כדי להוסיף מודול קוד חדש.

שלב 2

תת-ביצוע חדש מתחיל כך:

Sub sheetNames ()

שלב 3

צור את המשתנה "sheetName" כדי לשמור תיעוד של שמות הסדינים ושני משתנים שישמשו כמונים באופן הבא:

עמום sheetName כמו מחרוזת עמעום xCntr כמספר שלם עמום shtCntr כמספר שלם

שלב 4

הגדר את תוכן המשתנה "SheetName" עם שם הדף הראשון של ספר ה- Excel שלך, כדלקמן:

SheetName = "גיליון 1"

שלב 5

מעניק את מונה הערך של 1 המייצג את הגיליון האלקטרוני הראשון:

shtCntr = 1

שלב 6

השתמש בקוד הבא כדי ליצור לולאה "For ... Loop" דרך כל גיליון בספר excel ולהוסיף את שם הגיליון ל A1 באמצעות המשתנה "sheetName":

עבור xCntr = 0 עד 2

גיליונות עבודה (SheetName) .Tivate טווח ("A1") בחר ActiveCell.FormulaR1C1 = טווח גיליונות ("A2") בחר shtCntr = shtCntr + 1 sheetName = "Sheet" & shtCntr

הבא xCntr

שלב 7

לחץ על "F5" כדי לבצע את ההליך. בכל גליון A1 יכיל את שם הסדין.