שאלות בנושאים שונים באקסל

[נאמן למקור היחיד]

שאלות בנושאים שונים באקסל

שלום חברים,
ברשותי ווינדוס 7 , אקסל 2007
יש לי 3 שאלות:
אחת - נתון מספר שבוע. כיצד אוכל ממנו להוציא את תאריך ההתחלה והסיום של אותו שבוע.
שתיים - כיצד ניתן לקבע את רוחב העמודות ורק רוחב השורות יתאים עצמו לאורך המלל? (מקווה שהשאלה ברורה..)
שלוש - האם יש אפשרות (ואם כן כיצד) לבצע הסתרה של גיליון (HIDE) רק כאשר יש לי 11 גיליונות פתוחים ומעלה (כלומר שיהיו 10 גיליונות גלויים וכאשר אפתח גיליון נוסף, יבוצע HIDE לגיליון הראשון ובהתאמה יבצע זאת גם לשני כשאפתח עוד אחת..
(שוב, מקווה שהשאלה ברורה..)

תודה מראש לעונים התותחים,

 

[מיכאל אבידן]

אז ככה . . .

1. נסה להיעזר בתמונה שלהלן.

2. שאלה 2 לא מובנת לי.

3. אין לי קובץ עם כ"כ הרבה גיליונות ולכן לא אוכל לבדוק את אשר הייתי, אולי, מציע.

 

[נאמן למקור היחיד]

אז ככה

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

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

 

[מיכאל אבידן]

אז ככה . . .

* סמן את טווח התאים/כל העמודה - גש לרצועת התפריט 'בית' ובמקטע 'יישור' הקלק על 'גלישת טקסט'.
&nbsp
* על שאלה 3 עניתי בתגובתי הקודמת.

 

[u333]

לגבי השאלה השלישית

הכנס את הקוד הבא בעורך ה-VBA ברמת 'חוברת העבודה'

Private Sub Workbook_NewSheet(ByVal Sh As Object)
nc = Sheets.Count
    For ns = 1 To nc
        If Sheets(ns).Visible = False Then siv = siv + 1
    Next
    If nc > 10 Then Sheets(siv + 1).Visible = False
End Sub

 

[מיכאל אבידן]

מאחר וכאמור אין לי קובץ עם כ"כ הרבה גיליונות . . .

אין לי אפשרות לבדוק, בפועל, ולכן ממבט חטוף בקוד - נראה לי שאפשר לוותר על כל הלולאה ולשנות, במעט, את פקודת ה- IF שתיראה כך:

If nc > 10 Then Sheets(nc - 10).Visible = 0

 

[u333]

מה הבעיה לבדוק על 3 גיליונות ? - וכן, אתה צודק

עובד.

 

[מיכאל אבידן]

אין לי גם 3. אצלי ברירת המחדל מוגדרת כ- 2 . . .