פונקציית גליון עבודה של COUNTA ב- Excel VBA
במאמר הקודם שלנו "Excel COUNTA" ראינו כיצד להשתמש בפונקציה COUNT כדי לספור את הערכים המספריים מטווח הערכים. מה דעתך על ספירת כל הערכים בטווח התאים? כן, אנחנו יכולים לספור גם את זה. כדי לספור את כל ערכי התאים בטווח התאים עלינו להשתמש בנוסחה "COUNTA" ב- Excel VBA. במאמר זה נראה לך כיצד להשתמש בפונקציה COUNTA ב- VBA כדי לספור את כל ערכי התאים בטווח המסופק.
דוגמאות לפונקציה COUNTA ב- VBA
אחת האמת היא שהפונקציה "COUNTA" אינה פונקציית VBA. אני יודע שהשאלה שלך היא אם זו לא פונקציית VBA אז איך נשתמש בה? שום דבר לא צריך לדאוג למרות שזה לא פונקציית VBA עדיין אנחנו יכולים להשתמש בה תחת מחלקת הפונקציות של גליון העבודה בקידוד VBA.
אתה יכול להוריד תבנית VBA COUNTA Excel כאן - תבנית VBA COUNTA Excelאוקי, בואו נכתוב את הקוד להחלת ה- Excel VBA COUNTA.
שלב 1: צור שם של תת-הליך.
שלב 2: כעת תחליט תחילה לאן נשמור את התוצאה של פונקציית VBA COUNTA. בדוגמה זו, אני רוצה לאחסן את התוצאה בתא C2. אז הקוד שלי יהיה טווח ("C2"). ערך.
קוד:
טווח משנה Counta_Example1 () ("C2"). ערך = סוף משנה 
שלב 3: בתא C2 אנו זקוקים לערך של פונקציית VBA COUNTA. אז כדי להחיל את פונקציית ה- VBA COUNTA ב- Excel מאפשר להחיל תחילה את מחלקת הפונקציות של גליון העבודה.
קוד:
טווח Count Count_Example1 () ("C2"). ערך = משנה סוף עבודה 
שלב 4: לאחר החלת מחלקת הפונקציות של גליון העבודה בחר את הנוסחה COUNTA על ידי הצבת נקודה.
קוד:
טווח Count Count_Example1 () ("C2"). ערך = גיליון עבודה. 
שלב 5: כעת עלינו לספק את טווח התאים שייספרו. בדוגמה זו עלינו למנות את טווח התאים מ- A1 ל- A11. אז ספק את התאים באמצעות אובייקט VBA RANGE.
קוד:
Sub Counta_Example1 () טווח ("C2"). ערך = SheetFunction.CountA (טווח ("A1: A11")) סוף משנה 
אוקי, בואו נפעיל את הקוד כדי לקבל את התוצאה בתא C2.
אז, אותה תוצאה החזירה גם VBA COUNTA.
ככה, אנו יכולים להשתמש ב- COUNTA כדי לספור את התאים שאינם ריקים או ריקים מהטווח המסופק.
קידוד עם משתנים
משתני VBA הם המפתח לבניית פרויקט. כעת עבור אותם נתונים, אנו יכולים להכריז על משתני VBA ולהגיע לתוצאה.
לדוגמא עיין בקוד שלהלן.
קוד:
תת Counta_Example2 () Dim CountaRange כטווח Dim CountaResultCell כ- Range Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = SheetFunction.CountA (CountaRange) Sub Sub בואו נסביר את הקוד שלעיל.
ראשית הכרזתי על המשתנה "CountaRange" כטווח להתייחסות לטווח הערכים.
עמום ספירה טווח טווח
לאחר מכן, הגדרתי את ההתייחסות כטווח A1 ל- A11.
הגדר CountaRange = טווח ("A1: A11")המשתנה השני הוא התייחסות לתא התוצאה COUNTA.
עמום CountaResultCell כטווח
עבור משתנה זה, הגדרתי את התא כ- C2.
הגדר CountaResultCell = טווח ("C2")כעת, כרגיל, יישמתי את פונקציית COUNTA באמצעות משתנים במקום טווחים עם קוד קשה. עכשיו, תסתכל על הקוד הישן וקוד ה- VBA הזה.
קוד 1:
קוד 2:
בקוד 1 יש לנו טווח C2, בקוד 2 יש לנו את שם המשתנה "CountaResultCell". כאן המשתנה "CountaResultCell" קבע התייחסות כתא C2. אז המשתנה הזה הוא תא C2 עכשיו.
בקוד 1 טווח הפונקציות של COUNTA הוא A1 עד A11, בקוד 2 הוא משתנה הנקרא "CountaRange". משתנה זה מחזיק בהתייחסות לטווח A1 עד A11.
זה מה ההבדל בין קוד ישן לקוד עם משתנים.
לכן, פונקציית COUNTA עוזרת לנו לספור את כל התאים שאינם ריקים מהטווח המסופק ללא קשר לנתונים שיש לה.