עזרה | משתנה חודשים עוקבים שחוזר לתחילת שנה

[clickone]

אם אתה יודע את החודש והשנה (או התאריך) שמשם אתה רוצה לספור, אתה יכול להשתמש בפונקצייה DateAdd ולהוסיף את מספר החודשים שאתה רוצה

x=DateAdd("m", 1, Date())

ראה עוד
כאן
וכאן

כמובן שאתה יכול בשיטה הזו להוסיף גם ימים, שנים, וכן דקות שעות וכו'

[מלא]

@ארי

@מטעמים כתב בעזרה | משתנה חודשים עוקבים שחוזר לתחילת שנה:

אנסה לשאול את השאלה מכיוון אחר (עם דוגמה אחרת).
נניח שהשעה היא עכשיו 11, ואני רוצה שיהיה כתוב בתא מקביל את השעה בפריז, 4 שעות קדימה. (שעה 3)
איך אני מכניס את זה לקוד?

ועכשיו לחודשים:
נניח שאנחנו בחודש 11 ואני רוצה שיהיה כתוב בתא מקביל את החודש שיגמר הסמסטר, 4 חודשים קדימה. (חודש 03)

אני מניח מניסוח השאלה שהוא עדיין מחפש רמז לתוצאה הסופית.

וזה קורה הרבה פעמים בפורום, שאנשים נוטים להסביר את מה שהם שואלים, ברמז או בדבר הדומה לדומה.
ואחרי 5-10 תשובות, כששואלים את השאלה בצורה ישירה. ב2 תגובות מתקבלת התשובה.

[מטעמים]

@dovid כתב בעזרה | משתנה חודשים עוקבים שחוזר לתחילת שנה:

אם הבנתי את כוונתך (אתה קצת שאלת בפורמט בעיית הXY...)

ממש לא שאלתי בפורמט המדובר... פשוט ראיתי שלא הבינו את כוונתי אז עברתי ל-Y.

כיוון שהחברים כאן דנים בשאלתי אם היא X או Y.
אני אפרוס בפניכם בדיוק מה אני צריך, אבל זה קצת ארוך, אם יש לכם סבלנות. (אתם שאלתם ..)

אני באמצע לכתוב את הקוד הבא:

יש לי תיקיה במחשב, בתוך התיקיה יש 12 תיקיות משנה שכולם מסתיימים ב-2 תווים המכילים שמות של חודשים " 01", "02" וכן הלאה.

הצורך שלי הוא לפתוח במכה אחת 12 קבצים (קובץ אחד בודד שנמצא בכל תיקיה X12) - יש להם מכנה משותף מסוים שלכולם יש אותה סיומת: "csv." ולשם כך יצרתי את המאקרו הבא, שעובד מצוין רק עד הקטע שהוא פותח את הקובץ הראשון. ועל מנת להמשיך הגעתי לפורום הנכבד שלנו שיאירו את עיני. אז הנה הקוד:

 Sub PK12()

 Dim B_tikia As FileDialog
 Dim M_tikia As String
 Dim ntiv_M As String
 Dim ntiv_H As String
 Dim mon_A As String
 
 
'בחר תיקיה ראשונה מתוך 12 בחלון שיפתח
    Set B_tikia = Application.FileDialog(msoFileDialogFolderPicker)
    B_tikia.Title = "בחר תיקיה המכילה את קבצי חודש 09 "

'פתח חלון שאילתא למשתמש
     B_tikia.Show
'הכנס למשתנה את נתיב התיקיה שנבחרה
        M_tikia = B_tikia.SelectedItems(1)

'בדיקה לקובץ אפשרי בתוך התיקיה
 ntiv_M = M_tikia & "\" & "*.csv"
 
'נתיב חדש המספק את השם של הקובץ
 ntiv_H = M_tikia & "\" & Dir(ntiv_M)
 
'פתיחת הקובץ
If Dir(ntiv_M) <> "" Then Workbooks.Open ntiv_H
 
'משתנה 2 תוים אחרונים בסוף נתיב התיקיה
mon_A = Right(M_tikia, 2)

 End Sub

המשתנה "mon_A" מכיל את החודש הראשון ואני מחפש משתנה שיקצר לי את הקוד.

[dovid]

@מטעמים זה המקרה הכי טוב של בעיית הXY.
בשאלה הראשונה במבט ראשון אתה רק שואל איך להוסיף 0.
אבל אתה מוסיף שמה עוד שתי נקודות קטנות: א. שיחזור ל12 ב. "גם לא בתוך לולאה"
יאהוו, אין סיכוי להבין את שתי הנקודות!
בטח שמבינים צורך להוסיף על 12 ולהגיע חזרה ל1 אבל עבור מה, מה רע בלולאה? למה להתחיל מהאמצע ולא מ1?
מפה מתחיל אי הבנה ארוך.

כעת אחרי שהסברת נשארו קצת שאלות:
למה שיבחר תיקיה של 09 ולא את תיקיית האב ואז תעשה לולאה מ01 עד 12 בלי שום בעיה?
ועכ"פ אם זה הצורך, אז אתה צריך לקצוץ מהנתיב את התיקיה הנוכחית (למשל אם זה 09 להגיע לתיקיית האב שמחזיקה את 1-12 להבנתי), ואז לעשות לולאה.

[מטעמים]

@dovid כתב בעזרה | משתנה חודשים עוקבים שחוזר לתחילת שנה:

מפה מתחיל אי הבנה ארוך.

תאר לעצמך שאני לא הבנתי כך בפתיחת האשכול. ממש לא העליתי על דעתי לשאול שאלה אחרת ממה שהייתי צריך.
לא תמיד ניתן להכנס לראש של מישהו אחר ולהבין את מהלך חשיבתו.
לפעמים גם יש רצון לנעזרים בפורום לכתוב שאלות תמציתיות ולא להתיש את החברים עם כל התמונה הכוללת שלא תמיד רלוונטית. אני מבין שטעיתי במקרה הספציפי, אבל לא צריך להניח שזה מכוון.

למה שיבחר תיקיה של 09

כי זו תמיד התיקיה הראשונה בסדרה (זו תיקיה שמכילה קבצים לפי שנה"לים , הם תמיד מתחילים ב-09 ומסתיימים ב08 של שנה שלאחר מכן)

ועכ"פ אם זה הצורך, אז אתה צריך לקצוץ מהנתיב את התיקיה הנוכחית (למשל אם זה 09 להגיע לתיקיית האב שמחזיקה את 1-12 להבנתי), ואז לעשות לולאה.

ניסיתי את הדרך הזו. לא הצלחתי. בכל אופן, אני מנסה עכשיו את מה שהציע @clickone , תודה בכל אופן.

[dovid]

@מטעמים לא עלה על דעתי שזה מכוון או שהייתה לך בכלל ברירה, הייתי הרבה פעמים במקום שלך.

לא ענית עדיין למה לא לבחור את תיקיית האב, וגם מה אכפת אם זה מתחיל ב09 ונגמר ב09 או כל דבר אחר אם בכל מקרה יש שנים עשר תיקיות.
והפתרון של @clickone זה בלי לדעת מה אתה צריך, אם מדובר בתיקיות וזה תמיד 12 הוא לא היה עונה ככה..

[ארי]

@מטעמים אני מצטרף למה ש@dovid אומר.
בלי ההתעקשות לבחור תיקייה אחת ולא את התיקייה הראשית, אתה צריך קוד פשוט של לולאה (כן, לולאה!) מ1 ועד 12 שפותחת את הקבצים אחד אחרי השני.

[מטעמים]

@ארי כתב בעזרה | משתנה חודשים עוקבים שחוזר לתחילת שנה:

לבחור תיקייה אחת ולא את התיקייה הראשית

אוקי. ננסה. איך אני מתגבר על הבעיה של ה-0 ? בקוד שהבאתי לעיל הוא מוריד לי את זה באופן אוטומטי:

For I = 1 To 12
MsgBox I
Next I

[dovid]

 Format(i, "00")

[מטעמים]

@dovid
איזה יופי!
תודה רבה!!