דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. יצירת גיליונות רבים באקסל

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

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

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

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
    • dovidD מנותק
      dovidD מנותק
      dovid
      ניהול
      כתב ב נערך לאחרונה על ידי
      #2

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

      • מנטור אישי בתכנות והמסתעף – להתקדם לשלב הבא!
      • בכל נושא אפשר ליצור קשר dovid@tchumim.com
      OdedDvirO תגובה 1 תגובה אחרונה
      2
      • אורייא אוריי

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

        OdedDvirO מנותק
        OdedDvirO מנותק
        OdedDvir
        כתב ב נערך לאחרונה על ידי OdedDvir
        #3

        @אוריי

        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
        • dovidD dovid

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

          OdedDvirO מנותק
          OdedDvirO מנותק
          OdedDvir
          כתב ב נערך לאחרונה על ידי
          #4

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

          תקליט מאקרו

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

          תגובה 1 תגובה אחרונה
          4
          • OdedDvirO 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)
            

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

            אורייא מנותק
            אורייא מנותק
            אוריי
            כתב ב נערך לאחרונה על ידי
            #5

            @OdedDvir
            מדהים 👍

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

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

            OdedDvirO תגובה 1 תגובה אחרונה
            1
            • אורייא אוריי

              @OdedDvir
              מדהים 👍

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

              OdedDvirO מנותק
              OdedDvirO מנותק
              OdedDvir
              כתב ב נערך לאחרונה על ידי
              #6

              @אוריי

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


              בא תתחבר לדף היומי!
              • התחברות

              • אין לך חשבון עדיין? הרשמה

              • התחברו או הירשמו כדי לחפש.
              • פוסט ראשון
                פוסט אחרון
              0
              • דף הבית
              • קטגוריות
              • פוסטים אחרונים
              • משתמשים
              • חיפוש
              • חוקי הפורום