اضافة ورقة جديد باسم مرتبط باسم الورقة السابقة

[منيير]

السلام عليكم و رحمة الله و بركاته

سؤالي هو انه في المثال اسفله اريد كلما اضفت ورقة جديدة يكون اسمها مرتبط باسم الورقة التي قبلها بحيث عندما يكون مثلا اسم الورقة السابقة  Jan-14 عندما اضيف ورقة جديدة ان يصبح اسمها اوتومتتكيا Fev-14 و باضافة ورقة اخرى يصبح اسمها Mars-14 و هكذا دواليك

بارك الله فيكم

Classeur1.rar

[ياسر خليل أبو البراء]

أخي الحبيب تفضل المرفق التالي يقوم بإضافة عدة أوراق عمل وتسميتها مرة واحدة طبقا للنطاق A1:A12

أرجو أن يفيدك

Create Sheets From List.rar

تم تعديل سبتمبر 27, 2014 بواسطه YasserKhalil

[منيير]

بارك الله فيك اخي الكريم و لكن هل من الممكن كود لاضافة كل مرة شيت تدريجيا وليس كل الشيتات مرة واحدة بحيث عندما يكون مثلا اسم الورقة السابقة  Jan-14 عندما اضيف ورقة جديدة ان يصبح اسمها اوتومتتكيا Fev-14

[عبدالله باقشير]

السلام عليكم

 

لإضافة ورقة جديدة

إضغط الزر في شريط تبويب الاوراق (غير مستخدمي 2003)

أو

SHIFT+F11

او باستخدام كود لاضافة ورقة وتربطه بزر

مثلا:

Sub xxxx()
Sheets.Add
End Sub

المهم انه في كل الحالات سيتم اضافة الورقة الجديدة حسب طلبك

الكود موجود في ThisWorkbook

ويمكنك تغيير تسمية الاشهر في الكود

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim m, d, y, mAry
    Dim i As Long
    On Error GoTo 1
    '  قم بتسمية الاشهر هنا حسب ما تناسبك
    mAry = Array("Jan", "Fév", "Mars", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

    i = Sheets.Count
    If Sh.Index <> i Then Sh.Move , Sheets(i)
    
    d = Sheets(i - 1).Name
    m = Split(d, "-")(0): y = Split(d, "-")(1)
    m = WorksheetFunction.Match(CStr(m), mAry, 0)
    d = DateValue("13/" & m & "/" & y)
    d = DateSerial(Year(d), m + 1, 1)
    Sh.Name = mAry(Month(d) - 1) & "-" & Format(d, "yy")
1
End Sub

المرفق 2003-2010

اضافة ورقة جديدة بتسمية معينة.rar

 

تحياتي

[منيير]

بارك الله فيك اخي عبد الله على العمل القيم و جعله الله في ميزان حسناتك 

[ياسر خليل أبو البراء]

روعة أستاذنا القدير عبد الله

بارك الله فيك وزادك علما وأعطانا الله ولو نصف علمك (عارف إن فيه ناس هتقول نصف علمه دا إنت طماع بشكل ) لعل الله أن يتقبل منا ومنكم صالح الأعمال