להלן נבחן תוכנית ב Excel VBA זה סופר את מספר התרחשויות שנה.
מַצָב:
הערה: התאריכים הם בפורמט ארה"ב. חודשים ראשונים, ימים שניים. פורמט מסוג זה תלוי בהגדרות האזוריות של חלונות.
1. ראשית, אנו מצהירים על שלושה משתנים מסוג מספר שלם. משתנה אחד שאנו מכנים yearCount, משתנה אחד שאנו קוראים לו yearAsk, ומשתנה אחד שאנו קוראים לו i.
מדי שנה שנה מספר מספר שלם, שנה שאל כמספר שלם, i כמכלול שלם
2. אנו מאתחלים yearCount עם הערך 0 ו- yearAsk עם הערך של תא C4.
yearCount = 0
yearAsk = טווח ("C4"). ערך
3. אנו מתחילים לולאה For Next.
עבור i = 1 עד 16
4. כעת אנו בודקים כל תאריך ורק אם שנת התאריך שווה לשנה שהוזנה בתא C4, אנו מעלים את yearCount ב- 1. אנו משתמשים בפונקציית השנה כדי לקבל את השנה של תאריך.
אם שנה (תאים (i, 1). ערך) = yearAsk לאחר מכן
yearCount = yearCount + 1
סוף אם
5. אל תשכח לסגור את הלולאה.
הבא i
6. לבסוף, אנו מציגים את סך כל ההתרחשויות בשנה. אנו משתמשים באופרטור & כדי לחבר (לחבר) שתי מחרוזות.
שנת מס 'תיבת המספר ו"התרחשויות בשנה "ושנה
7. הנח את המאקרו שלך בלחצן פקודה ובדוק אותו.
תוֹצָאָה:
הערה: מכיוון שעשינו משתנה yearAsk, אתה יכול פשוט לספור את מספר התרחשויות השנה של שנה נוספת על ידי הזנת שנה נוספת בתא C4 ולחיצה נוספת על כפתור הפקודה.
