استفاده از اطلاعات ثابت در ایجاد برگه های جدید

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Masih60

    • 2015/11/24
    • 37
    • 40.00

    [حل شده] استفاده از اطلاعات ثابت در ایجاد برگه های جدید

    سلام،

    دوستان عزیز آیا روشی وجود داره که یه سری اطلاعات ثابت بطور خودکار به شیتهای جدید اضافه بشه؟ یجور حالت Template که بدون اینکه نیاز باشه اطلاعات قبلی کپی بشه، در صورتیکه شیت جدید ایجاد شد بطور خودکار در این شیت قرارداده بشه.
  • حسام بحرانی

    • 2013/09/29
    • 2065
    • 72.00

    #2
    نوشته اصلی توسط Masih60
    سلام،
    دوستان عزیز آیا روشی وجود داره که یه سری اطلاعات ثابت بطور خودکار به شیتهای جدید اضافه بشه؟ یجور حالت Template که بدون اینکه نیاز باشه اطلاعات قبلی کپی بشه، در صورتیکه شیت جدید ایجاد شد بطور خودکار در این شیت قرارداده بشه.
    سلام
    اینکار از طریق کدنویسی در محیط
    VBA امکان پذیره.

    فرض کنید شیت مورد نظر شما
    sheet1 باشه ،

    با نوشتن کد زیر می توان پس از ایجاد شیت جدید از
    sheet1 یک کپی با فرمت های همان شیت ایجاد نمود.

    فقط دقت کنید که هر تغییراتی که در
    sheet1 اعمال کنید در شیت جدید نیز اعمال می شود. یعنی شیت1 بعنوان شیت مادر ( یا همان Template ) در نظر گرفته می شود.

    موفق باشید.
    کد PHP:
    Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sheets("Sheet1").Copy After:=Sheets(1)
    Application.DisplayAlerts False
    Sh
    .Delete
    End Sub 
    فایل های پیوست شده
    [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
    [/FONT][/B][/CENTER]
    [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
    [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
    [/FONT][/B][/FONT][/SIZE]
    [/CENTER]

    کامنت

    • Masih60

      • 2015/11/24
      • 37
      • 40.00

      #3
      نوشته اصلی توسط حسام بحرانی
      سلام
      اینکار از طریق کدنویسی در محیط
      VBA امکان پذیره.

      فرض کنید شیت مورد نظر شما
      sheet1 باشه ،

      با نوشتن کد زیر می توان پس از ایجاد شیت جدید از
      sheet1 یک کپی با فرمت های همان شیت ایجاد نمود.

      فقط دقت کنید که هر تغییراتی که در
      sheet1 اعمال کنید در شیت جدید نیز اعمال می شود. یعنی شیت1 بعنوان شیت مادر ( یا همان Template ) در نظر گرفته می شود.

      موفق باشید.
      کد PHP:
      Private Sub Workbook_NewSheet(ByVal Sh As Object)
      Sheets("Sheet1").Copy After:=Sheets(1)
      Application.DisplayAlerts False
      Sh
      .Delete
      End Sub 
      بله، از طریق کدنویسی میتونم انجام بدم ولی گفتم شاید روشی بجز کدنویسی داشته باشه که کاربر نخواد ماکرو ایجاد کنه .

      کامنت

      • Amir Ghasemiyan

        • 2013/09/20
        • 4598
        • 100.00

        #4
        نوشته اصلی توسط Masih60
        سلام،

        دوستان عزیز آیا روشی وجود داره که یه سری اطلاعات ثابت بطور خودکار به شیتهای جدید اضافه بشه؟ یجور حالت Template که بدون اینکه نیاز باشه اطلاعات قبلی کپی بشه، در صورتیکه شیت جدید ایجاد شد بطور خودکار در این شیت قرارداده بشه.
        سلام دوست عزيز
        يك راه ديگه علاوه بر روشي كه حسام جان گفتن اينه كه يك تمپليت ايجاد كنيد و موقع ايجاد شيت اون تمپليت رو فراخواني كنيد. يعني روي يك شيت راست كليك كنيد و گزينه insert رو بزنيد. در پنجره اي كه باز ميشه اون تمپليت مورد نظرتون رو انتخاب كنيد

        کامنت

        چند لحظه..