כיצד לבחון תאים עם מאקרו
האם תרצה להעריך תאים ולקבוע כמה תאים מלאים בטווח וכמה לא? האיור הבא מציג דוגמה:
סמן A1: B7 מכיל כמה תאים ריקים וכמה תאים מלאים. אם ברצונך להעריך זאת במאקרו, תוכל להשתמש בקוד התוכנית הבא:
ספירות משנה FilledCells ()
מספר עמום כל עוד
מספר עמום 2 כל עוד
שטח עמום כטווח
עמום a כמחרוזת
הגדר שטח = מבחר
Number = Application.CountA (שטח)
Count2 = area.Cells.Count - מספר
a = MsgBox ("בבחירה הנוכחית נמצאים" _
& מספר & "תאים מלאים ו" & מספר 2 _
& "תאים ריקים.", VbOK רק "הערכת תאים")
סיום תת
המאקרו קובע את הפונקציה ספירה א לספור את מספר התאים הלא ריקים בטווח. התוצאה שומרת את המשתנה מספר. כדי לקבוע את מספר התאים המלאים, ערך זה מופחת ממספר התאים הכולל שנבדק. המאקרו שומר ערך זה ב- מספר 2.
לאחר ההתחלה, קוד התוכנית קובע את מספר התאים המלאים והריקים בסימון הפעיל ומציג את התוצאה בחלון:
אם ברצונך לעבד טווח לבחירתך ולא לבחירה הנוכחית, התאם את הקצאת הערך למשתנה אֵזוֹר בְּ. הוא משמש במאקרו עם הנכס בְּחִירָה מְחוּבָּר. אם ברצונך להגדיר טווח בעצמך במקום זאת, החלף את מַעֲרֶכֶת-הקצאה למשתנה אֵזוֹר על ידי ביטוי של הטופס הבא:
הגדר טווח = טווח ("A1: B5")
מפרט הטווח מתייחס תמיד לדף העבודה הפעיל. אם ברצונך להתייחס לדף עבודה אחר, שים אותו מול טווחפיקוד על ההפניות לשיטות חוברות עבודה ו גיליונות תוקן.
