إنشاء صفحات مع تسميتها بأسماء موجودة في قائمة معدة مسبقاً

[أبو أنس حاجب]

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

أساتذتي الكرام حفظكم الله

المطلوب كود يقوم بإنشاء عدد من الصفحات مع تسميتها وفقاً لقائمة للأسماء الموجودة مسبقاً في أحدى الصفحات ولتكون في العمود الأول مثلاً.

أذا هنالك كود في المنتدى يحقق ذلك أرجو توجيهي إليه لأني بحثت ولم أستطع الوصول له وإن لم أرجو عمل ذلك في ملف.

جزاكم الله كل خير

أبو أنس

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

السلام عليكم

Option Explicit



Sub kh_Add_Worksheets()

Dim Sh As Worksheet

Dim i As Long, iCont As Long

Dim Nam As String

'''''''''''''''''''''''

On Error Resume Next

Set Sh = Sheets("kh")

iCont = Sh.Cells(Rows.Count, 1).End(xlUp).Row

'''''''''''''''''''''''

kh_Application False

'''''''''''''''''''''''

For i = 2 To iCont

    Nam = kh_Replace(Sh.Cells(i, 1))

    ActiveWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nam

Next

Sh.Activate

'''''''''''''''''''''''

kh_Application True

'''''''''''''''''''''''

Set Sh = Nothing

On Error GoTo 0

End Sub


Function kh_Replace(rName As String) As String

Dim itm

Dim myRep As String

myRep = rName

For Each itm In Array("/", "\", "*", ":", "¿", "?", "[", "]")

    myRep = Replace(myRep, itm, "")

Next

kh_Replace = myRep

End Function


Sub kh_Application(mbol As Boolean)

With Application

    .Calculation = IIf(mbol, -4105, -4135)

    .ScreenUpdating = mbol

End With

End Sub

المرفق 2003

اضافة صفحات من لست.rar

[أبو ردينة]

بارك الله فيك و نفع بك أستاذنا الحبيب / أبا علي جاري التعلم و لي عودة إن شاء الله للإستزادة و الإستفسار عن بعض أجزاء الكود مثل هذا

For Each itm In Array("/", "\", "*", ":", "¿", "?", "[", "]")

تم تعديل أكتوبر 7, 2012 بواسطه أبو ردينة

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

بارك الله فيك و نفع بك أستاذنا الحبيب / أبا علي جاري التعلم و لي عودة إن شاء الله للإستزادة و الإستفسار عن بعض أجزاء الكود مثل هذا

For Each itm In Array("/", "\", "*", ":", "¿", "?", "[", "]")

وبارك فيك

------------------

عند تسمية ورقة باسم

لا تقبل في التسمية هذه الحروف

لذا يجب تصفية الاسم من هذه الحروف

حتى يعتمد الاسم الذي تريده بالضبط

--------------------------------

ايضا من موانع التسمية

ان لا تزيد احرف الاسم على 31 حرف

وايضا اذا كان الاسم موجود من سابق

والله اعلم

ارجو ان شرحي واضح لديكم

ودمتم في حفظ الله

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل عبد الله باقشير حفظكم الله

ويكأنها ليلة قدري (لقد كنت البارحة في حالة يرثى لها من الشوق للأهل كون لي نحو أحدى عشر شهراً لم أنزل أجازة).

ولكن بذهابي للعمل مبكراً كعادتي وفتحت النت وجدت ردودك عليّ أثلجت صدري وخففت عني من الحزن الشئ الكثير جزاك الله كل خير.

اللهم لا تصبه بإي مكرووه ومتعه بالصحة والعافية وأهله ومن يحب.

أبو أنس

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

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

هل تتصور مدى فرحتي

عندما اجد مثل هذه الكلمات من الدعاء

جزاك الله خيرا وبارك فيك واثابك بدعائك

واعطاك بمثله اضعاف مضاعفة انه سميع الدعاء

وخفف عنك ما تجده من الغربة والشوق للاهل والوطن

------------

تقبل تحياتي وشكري