اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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 حرف كذلك يجب الا يكون اسم الشيت فارغاً

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

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

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

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

وفقك الله

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

قام بنشر

اخ معتصم محمد

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

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

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

شكرا لك

سعد عابد

قام بنشر

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

ا/ هشام شلبي

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

ا/ سعد عابد

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information