(تمت الاجابة) إدراج اوراق عمل وتسميتها بشكل ديناميكي متسلسل

[mousaali]

يسعدنى ان اكون احد المنضمين الى الموقع و ارجو الاجابة عن الاسئلة

1-اريد طريقة لتسمية الشيتات بشكل ديناميكى مثلا mousa 1000-12,mousa 1001-12,mousa 1002-12

2هل يوجد طريقة ان اجعل الصف الاول من الشيت الاساسى=الشيت الاول و الصف التانى فى الشيت التانى والصف التالت فى الشيت التالت

3-كيفية متغيرات فى الاكسيل

[mousaali]

هو اللى انا عايز من حضراتكوا عندما يتم تنفيذ الكود بيتغل اول مرة عادى تانى مرة بيطلعى ان اسم شيت موجود مسبقا انا اللى انا عايز اثبتة هى كلمة mousa, ويتغير رقم الفورم بعد كده

Option Explicit

Sub mousa()

Dim sheeto As String

Dim n As Byte

Let n = n + 1

sheeto = "mousa" & n

Sheets.Add.Name = sheeto

End Sub

[عبدالله المجرب]

اخي الفاضل

تم دمج الموضوعين لتشابه الطلبين

========================

الكود سيصبح

Option Explicit

Sub mousa()

Dim sheeto As String

sheeto = "mousa" & " " & Sheets.Count

Sheets.Add.Name = sheeto

End Sub

تم تعديل أكتوبر 24, 2011 بواسطه اا عبدالله المجرب اا

[يحيى حسين]

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

إضافة لكود الأخ الحبيب عبدالله جرب هذا الكود

Sub AddSheets()

Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Mousa " & Sheets.Count

End Sub

[ياسر الحافظ]

الاساتذة الرائعين دائما دائما

الاستاذ ابو احمد " عبد الله المجرب "

الاستاذ يحيى حســــــــــــــــــــــين -

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

وفقكم الله