رجب جاويش

أخى الفاضل / بن علية حاجي مبدع المعادلات جميعنا نتعلم من معادلاتك الرائعة جزاك الله كل خير

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

تفضل أخى قائمة.rar

أخى الحبيب / أبو ردينة بارك الله فيك وجزاك الله كل خير على هذه الكلمات الطيبة

شكرا جزيلا أخى الحبيب / محمود على هذا المرور العطر

إخوتى الكرام توضيح كيفية اظهار الصناديق الحوارية الموجودة فى الاكسل من خلال الاكواد فى الملف المرفق تجميع لكل الصناديق الحوارية الموجودة فى الاكسل مثل فتح open أو حفظ باسم save as وغيرها لمن يريد استخدامها داخل الأكواد حيث يتم استخدام اسم الصندوق الحوارى أو رقمة داخل الكود ليتم اظهاره مثال Application.Dialogs(1).Show لفتح الصندوق الحوارى ( فتح open ) وهكذا ويوجد ملف اكسل يحتوى على بعض الأمثلة وتنفيذ عملى لبعض الأكواد التى تعمل على ظهور بعض الصناديق الحوارية صناديق حوارية.rar

أستاذى الفاضل / عبد الله باقشير حفظه الله بارك الله فيك وزادك علما وابداعا لى عند حضرتك طلب بسيط وهو شرح هذين السطرين tShName = "'" & CStr(Cells(r, 1)) & "'!A1" ' هذا الشرط يعمل اختبار لصحة اسم الورقة If TypeName(Evaluate(tShName)) = "Range" Then وخاصة ما سبب وجود A1 فى السطر الأول وسبب وجود كلمة range فى السطر الثانى الخاص باختبار صحة اسم الورقة مع خالص تحياتى لأستاذى الحبيب

شكرا جزيلا أخى الحبيب / أبو حنين جزاك الله كل خير

الشكر لكل إخوانى المشاركين فى الموضوع على الابداع والتميز وهذه معادلة أخرى تحقق المطلوب =IF(C2="";"";IF(C2="garmets";COUNTIF($C$2:$C2;C2)+110000;COUNTIF($C$2:$C2;C2)+220000)) ترقيم.rar

أخى الفاضل / عبد الله المجرب بارك الله فيك وزادك الله علما وابداعا

أخى أبو حنين هذا ليس تسرع منك ولكنه رغبة منك فى مساعدة الغير ونشر العلم فجزاك الله كل خير وسيارتك ليست عطلانة بل أنت تركب صاروخ ابداع دائم التألق والتميز

أخى الحبيب / أبو حنين جزاك الله خيرا مفيش أى مشكلة فى حالة استخدام inputbox فهذا الحل موجود فى المشاركة 9 الخاصة بى وتم تنفيذه ولكن المشكلة فى حالة استخدام نافذة الحماية Application.Dialogs(28).Show كما طلب الأخ يوسف صاحب السؤال

أخى الحبيب / ياسر الحافظ ( أبو الحارث ) شكرا جزيلا أخى الحبيب على هذا المرور العطر والكلمات الطيبة

أخى أبو حنين يبدو تطابق الأفكار واضحا جدا بيننا فى المرفق تعديل يقوم بنفس الفكرة لكن لازال هناك شئ واحد باقى فى الملف الخاص بى وأيضا فى الملف الخاص بك وهو أنه عند الحماية بكلمة مرور معينة يتم تطبيقها على الصفحة الأولى فقط أما بقية الصفحات تكون محمية حماية عادية بدون كلمة مرور جرب الملفين بنفسك وحاول معى الوصول لحل لتلك المشكلة حماية3.rar

بعد اذن أخى الحبيب / أبو حنين هذا هو التعديل المطلوب حماية3.rar

أخى الحبيب / أبو حنين لمسات ابداعية من مبدع محترف

أخى الحبيب / محمود عمل رائع بجد تسلم ايديك

بعد اذن أستاذى ومعلمى الفاضل / عبد الله باقشير وبعد شرح أستاذى لموضوع المصفوفات قمت بعمل كود يعتبر تطبيق لموضوع المصفوفات وقد شرفنى أستاذى بالموافقة على وضعه فى موضوع المصفوفات وهو كود يقوم بقلب البيانات الموجودة فى صف معين وهذا هو الكود Sub ragab() Dim Arr() As Integer Range("B8:iv8").ClearContents LC = [iv5].End(xlToLeft).Column ReDim Arr(1 To LC - 1) As Integer T = 1 For i = LC To 2 Step -1 Arr(T) = Cells(5, i) T = T + 1 Next Range("B8").Resize(1, LC - 1) = Arr Erase Arr End Sub Book111.rar

أخى الحبيب / محمود أخى الحبيب / أبو حنين أخى الحبيب / أبو ردينة أخى الحبيب / ابراهيم أبو ليله أخى الحبيب /nofal.saad حفظكم الله جميعا وجزاكم الله كل خير على هذا المرور العطر

أستاذى الفاضل / عبد الله المجرب شرفنى جدا هذا المرور العطر والكلمات الطيبة

أستاذى الرائع والمبدع / عبد الله باقشير شرف كبير جدا لى تعليق أستاذى على مشاركة لى وشرف كبير هذا التشجيع من أستاذى وفعلا هذا هو تواضع العلماء بالفعل شرح حضرتك لموضوع المصفوفات أزال الرهبة من المصفوفات وفتح الطريق لاستخدامها فبارك الله فيك وجعل كل ذلك فى ميزان حسناتك ان شاء الله

تفضل أخى Book111.rar

تفضل أخى اريد كود او دالة لتنفيذ طلبى1.rar

الأخ / ابراهيم هل تقصد هكذا اريد كود او دالة لتنفيذ طلبى1.rar

أستاذى الحبيب / عبد الله باقشير بارك الله فيك وزادك من العلم حتى ترضى وجعل هذا الشرح فى ميزان حسناتك ان شاء الله وأعلم أستاذى الحبيب أننا نتابع هذا الشرح الرائع بكل تركيز ولهفة فى التعلم بعد اذن أستاذى الحبيب / عبد الله باقشير أسمح لتلميذك المحب لك أن يعرض معلومة صغيرة حتى يسعد بالحوار مع معلمه المبدع / عبد الله باقشير بالنسبة للمصفوفة ذات الحجم الثابت وثنائية البعد والتى تتكون من ثلاثة صفوف وعمودين يمكن التعبير عنها كلأتى Dim ay(2, 1) As String وفى هذه الحالة تكون الصفوف هى 0 و 1 و 2 والأعمدة هى 0 و 1 بدلا من Dim ay(1 To 3, 1 To 2) As String وبالتالى يكون المثال كلآتى Sub kh_Array1() Dim ay(2, 1) As String ay(0, 0) = "A" ay(1, 0) = "B" ay(2, 0) = "C" ay(0, 1) = "D" ay(1, 1) = "E" ay(2, 1) = "F" Range("A1").Resize(3, 2).Value = ay End Sub