اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

بسم الله الرحمن الرحيم

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

رمضان كريم ..... وكل عام وانتم بخير

في موضوع اليوم استعرض معكم كيفية إضافة شيت جديد بحيث يقوم المستخدم بتحديد إسم الشيت في ظل ان يكون هذا الإسم اقل من او يساوي 31 حرف كذلك يجب الا يكون اسم الشيت فارغاً

الكود المستخدم كالتالي

Option Explicit


Sub NweSheeetCustomeName()

Dim SheetName As String


SheetName = InputBox("Please Insert sheet name.")


If SheetName = "" Or Len(SheetName) > 31 Then

MsgBox ("You did not insert a name OR sheet name lenth is greater than 31 Characther")

Exit Sub

End If


Sheets.Add.Name = SheetName


End Sub

درس الفيديو

Add new sheet w CustomeName.rar

رابط هذا التعليق
شارك

بسم الله الرحمن الرحيم

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

رمضان كريم ..... وكل عام وانتم بخير

في موضوع اليوم استعرض معكم كيفية إضافة شيت جديد بحيث يقوم المستخدم بتحديد إسم الشيت في ظل ان يكون هذا الإسم اقل من او يساوي 31 حرف كذلك يجب الا يكون اسم الشيت فارغاً

الاخ العزيز / الاستاذ " معتصم محمد " :

بداية كيف هي احوالك ... اشتقت لك

تسلم ايدك كود جميل جدا

وبعد العذر منك سأقوم برفع الكود بملف اكسل في موضوع " اكواد منفصلة قد تهم البعض" للاستاذ يحياوي

وفقك الله

ياسر الحافظ " ابو الحارث "

رابط هذا التعليق
شارك

اخ معتصم محمد

اولا جزاك الله خيرا وبارك الله فيك وفرج الله همك ووووووووووو

كل هذه دعوات خالصة بظهر الغيب

ثانيا اسلوب الشرح جميل جدا

شكرا لك

سعد عابد

رابط هذا التعليق
شارك

اساتذتي الأعزاء

ا/ هشام شلبي

ا/ ياسر الحافظ

ا/ سعد عابد

ا/ عبدالله المجرب

شكراً لكم على هذه الكلمات الطيبة وعلى مروركم الكريم

ولا توجد مشكلة في رفع الملف في موضوع الأستاذ / يحياوي

بارك الله بكم جميعاً

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information