תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    חוקי הפורום

    יצירת גיליונות רבים באקסל

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

      יש לי קובץ אקסל עם עיצוב מסויים בצורה כזו
      8cb554a1-4c20-43da-9ccf-2042f7612e98-image.png
      אני רוצה ליצור באיזור 500 גיליונות כאלו מ1 עד 500 בסדר עולה כך שכל המס' 1 שיש כאן ישתנה בגיליון השני ל-2 וב3 יהיה בהכל 3 וכו' עד 500
      יש איזה קוד vba שיעשה את זה מהר?
      וכמובן ששם הגיליון יהיה בהתאם
      תודה מראש....

      ניתן לפנות אלי גם ב al0548446188@gmail.com
      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

      OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • dovid
        dovid ניהול נערך לאחרונה על ידי

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

        אפשר ליצור קשר dovid@tchumim.com

        OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 2
        • OdedDvir
          OdedDvir @אוריי נערך לאחרונה על ידי OdedDvir

          @אוריי

          1. צור את הגליון הראשון כפי שמופיע בתמונה
          2. תשנה את הערך של כל התאים חוץ מ-B1 להיות
          =B1
          

          זה יחסוך לנו אחר כך לשנות את כל התאים בגליונות, מספיק לשנות רק את תא B1

          1. פתח מודל ותדביק את הקוד הבא
          Public Sub CreateSheets(NumOfSheets As Integer)
              Worksheets("1").Activate
              Dim i As Integer
              For i = 1 To NumOfSheets
                  If Not SheetExist(CStr(i)) Then
                      ActiveSheet.Copy After:=Worksheets(Sheets.Count)
                      On Error Resume Next
                      ActiveSheet.Name = CStr(i)
                      ActiveSheet.Range("B1").Value = i
                  End If
              Next i
          End Sub
          
              
          Function SheetExist(WorkSheetName As String) As Boolean
              Dim Worksheet As Worksheet
           
              SheetExist = False
              For Each Worksheet In ThisWorkbook.Worksheets
                  If Worksheet.Name = WorkSheetName Then
                      SheetExist = True
                  End If
              Next
          End Function
          
          1. עכשיו תריץ בחלון Immediate
          CreateSheets(500)
          

          ביססתי את הקוד על פי האמור כאן.

          אוריי תגובה 1 תגובה אחרונה תגובה ציטוט 5
          • OdedDvir
            OdedDvir @dovid נערך לאחרונה על ידי

            @dovid אמר ביצירת גיליונות רבים באקסל:

            תקליט מאקרו

            זה נראה באמת יותר פשוט (הרתיעה שלי ממקרו-ים לפעמים עולה ביוקר...)

            תגובה 1 תגובה אחרונה תגובה ציטוט 4
            • אוריי
              אוריי @OdedDvir נערך לאחרונה על ידי

              @OdedDvir
              מדהים 👍

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

              ניתן לפנות אלי גם ב al0548446188@gmail.com
              ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

              OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 1
              • OdedDvir
                OdedDvir @אוריי נערך לאחרונה על ידי

                @אוריי

                dim SheetNum as integer
                SheetNum = InputBox("הכנס מספר גליון להדפסה")
                Worksheets(cstr(SheetNum)).PrintOut
                
                תגובה 1 תגובה אחרונה תגובה ציטוט 5
                • 1 / 1
                • פוסט ראשון
                  פוסט אחרון
                בא תתחבר לדף היומי!