عمل ورقة جديدة بإسم معين

[جمال محمود محمد]

كيف أعمل كود عند إنشاء ورقة جديدة يقوم بتسمية الورقة بالاسم الذى أحدده بدلا من sheet1

[محي الدين ابو البشر]

السلام عليكم

انظر المرفق 

أرجو أن يكون المطلوب

 

 

addnewsheet.rar

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

بارك الله فيك أخي العزيز محي الدين وجزيت خيراً

في السطر التالي

Sheets.Add After:=Sheets("sheet3")

أي أنك حددت إضافة الورقة الجديدة بعد Sheet3 .. وعادةً ما يستحب إضافة أوراق العمل الجديدة بعد نهاية أوراق العمل .. فيرجى التعامل في السطر بعد علامة يساوي لتتمكن من الإضافة بعد آخر ورقة عمل ..

هذه نقطة .. ونقطة أخرى ماذا لو تم إدخال حروف تصل إلى أكثر من 31 حرف .. أو تم إدراج حروف خاصة مثل الباك سلاش \ ...

حاول التعديل على الكود ليكون شامل

وفقك الله لما يحب ويرضى

 

[محي الدين ابو البشر]

3 ساعات مضت, ياسر خليل أبو البراء said:

بارك الله فيك أخي العزيز محي الدين وجزيت خيراً

في السطر التالي

Sheets.Add After:=Sheets("sheet3")

أي أنك حددت إضافة الورقة الجديدة بعد Sheet3 .. وعادةً ما يستحب إضافة أوراق العمل الجديدة بعد نهاية أوراق العمل .. فيرجى التعامل في السطر بعد علامة يساوي لتتمكن من الإضافة بعد آخر ورقة عمل ..

هذه نقطة .. ونقطة أخرى ماذا لو تم إدخال حروف تصل إلى أكثر من 31 حرف .. أو تم إدراج حروف خاصة مثل الباك سلاش \ ...

حاول التعديل على الكود ليكون شامل

وفقك الله لما يحب ويرضى

 

السلام عليكم

استاذ ياسر

رايك يهمني

thank you for the motivation

addnewsheet.rar

[حسين مامون]

السلام عليكم 

لست خبيرا في اكسيل ولكن حصلت من احد مواضيع لاساتدة المدونة على هذا وهو شغال عندي واتمنى ان يفيدك 

يمكن تعديله حسب رغبتك 

اضافة صفحة.zip

[جمال محمود محمد]

الله لقد أخجلتوني بمروركم الكريم .. وشكرا لكم جميعا  على ردكم ... 

[سليم حاصبيا]

اذهب الى هذا العنوان