اخى الفاضل
طب شوف الصورة دي وقولى انت بالله عليك اعمل انا ايه اذا كان ال Error ده لا يظهر عندي على الإطلاق واذا كان عندى بعد تنسيق الخلايا كنص تظهر الاصفار على اليسار عادى والخلايا تقبل أكثر من 15 رقم .. والمطلب الأخير ظاهر في الفورم اهو وواضح وضوح الشمس ... حد من الاخوة الكرام يجرب الملف المرفق في المشاركة الأخيرة لي رقم 4 ويشوف هل هيظهر عنده الخطأ ده ام لا
تحياتي
اخى الفاضل وأستاذنا الكريم عبد الباري البنا
عمل رائع... تحفة فنية وإضافة قوية من أستاذ قدير .. جزاك الله عنا كل خير وجعل عملك في ميزان حسناتك
تحياتي وتقديري
اخى الفاضل
عدل السطر الأول بالكود اجعله هكذا
If TextBox1.Value = ThisWorkbook.Sheets(5).[a1].Text And TextBox2.Value = ThisWorkbook.Sheets(5).[a2].Text Then
والسطر الأخير هناك حرف t ناقص في بداية الكلمة اجعله هكذا
TextBox1.SetFocus
تحياتي
أخى الفاضل أ.ياسر
عندك هنا بالمنتدى موضوعين رائعين بمعنى الكلمة لادارة صلاحيات المستخدمين وكلمات المرور
الاول: للأساتذة الكرام ضاحي غريب وشوقي ربيع ستجده هنا
برنامج ادارة صلاحيات المستخدمين - ضاحي وشوقي
والثاني: للأستاذ الفاضل إبراهيم محمد ستجده هنا
برنامج صلاحيات المستخدمين الاصدار 3
نزلهم وحاول تفهمهم واحدة واحدة وتطبق زيهم عندك... ولو استصعب عليك فهم اى جزئية اطرحها هنا وستجد ان شاء الله الشرح لها من إخوانك الكرام
تقبل تحياتى
أخى الكريم وأستاذي الفاضل أ.محمود
لا اعتذار بين الأحبة .. فهدفنا واحد والتنوع مطلوب .. الدالة التى أدرجتها أستاذي أجمل وأرقي واستفدت منها كثيرا.. جزانا الله واياك خيراً
تحياتي وتقديري
اخى الفاضل
ضع هذا الكود في حدث UserForm_QueryClose
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
If CloseMode = 0 Then
Cancel = True
MsgBox " This Option is disabled, Please use exit button in form "
End If
End Sub
تحياتي
اخى وأستاذي الكريم أ.جمال .. طب ما طالما حضرتك افترضت ان كلمة كيلو فقط هى التى ستكون موجودة بالخلايا وان الخلايا ستسير بتنسيق موحد
10 كيلو
20 كيلو
30 كيلو ... وهكذا
يبقي احنا في غنى عن المعادلات تماماً والأكواد وكل اللى فات ده، وباستخدام تنسيق الخلايا ومعادلة الجمع العادية يتحقق طلب السائل حتى كمان نريحه من كتابة كلمة "كيلو" كل مرة .. يكتب الرقم وفقط.. مرفق ملف للتوضيح
أستاذنا الفاضل أبو محمد، جزاك الله كل خير على هذا الملف المجمع لكل الطرق ... سيضم الى المكتبة فوراً
تحياتي أستاذي الكريم
ابن بلدى الغالي انت الأجمل والأروع والأفضل دائما ... مفيش أحسن من كده جبت من الآخر، زادك الله علما وفضلا
تحياتي للجميع
FormatCell.rar
أخي الفاضل
انت محظوظ جدا على فكرة، كل عمالقة المنتدي تواجدوا بموضوعك وما شاء الله بدل الحل حلول .. انت اللى مش عاوز تتعب نفسك وعاوز حاجة سهلة بدل المعادلات الطويلة علما ان حلول الأساتذة الكرام تفي بالغرض وزيادة
عامة مرفق ملف مجمع به كافة حلول الأساتذة الأفاضل أ.سليم وأ.أبو تراب جزاهم الله كل خير وللتسهيل عليك هناك حل آخر مرفق الا وهو دالة تم تسميتها ( SumNo ) تقوم بإحضار الرقم فقط من الخلية
انظر الملف المرفق
تحياتي
مثال.rar
حبيبي وأستاذي الفاضل ياسر، تقبل الله منك ولك بمثل ما دعوت وزيادة .. منك نتعلم أستاذي الفاضل
جزانا الله واياك اخى صلاح، لاشكر على واجب وان شاء الله سأحاول جاهدا ان اتبع هذا الامر في القادم بإذن الله حتى تعم الفائدة
أستاذي ومعلمى الكريم أبو محمد عباس .. جزاك الله كل خير على ايديكم تعلمنا ومازلنا نتعلم .. بارك الله فيك استاذي الغالى وأحسن الله الينا واليك
تحياتي لكم جميعا
اخى الفاضل
اذهب الى اى ملف عندك على سطح المكتب واضغط عليه بالزر الأيمن للماوس واختر خصائص .. تمام شوف المسار او ال Location .. كمثال انا عندي بالشكل ده
C:\Users\Ahmed\Desktop
انسخ انت المسار ده واذهب للكود واستبدل السطر
C:\ExcelFiles
بالمسار الجديد اللى انت نسخته ... بس
تحياتي
حبيبي أ.عادل
معادلات ايه بس .. انا من الناس اللى بتكره شغل المعادلات جدا جدا وبحس ان الكود اسهل وأفضل .. عامة كان فيه ملف عندي من فترة فيه القصة دي وانا حاولت انفذ زيه في شغلك طلع بالشكل ده .. طالعه كويسه جدا بس فيه ( صفر بيطلع كده لو بعض الخلايا فارغة ) .. عامة ننتظر اللمسة الأخيرة من أساتذة المعادلات أ.جمال عبد السميع أو أ.سليم
تحياتي
List+Equations.rar
اخى الفاضل
راجع الرابط ده به ما تبحث عنه .. موضوع رائع للعلامة القدير أ.عبد الله باقشير به ما تريد .. نزل الملف الموجود وحاول تطبيق الأكواد بالملف عندك وان احتجت اى مساعدة فنحن تحرك امرك
بحث من فورم بعدة خيارات ووضع النتائج في listbox
تحياتي
اخى الفاضل حسام
موضوع رائع ومهم لكل مستخدمى الإكسل، واسلوبك وطريقة عرضك رائعة وموضوع مبذول فيه جهد وشغل عالي المستوي
جزاك الله خيراً وجعله في ميزان حسناتك
تقبل تحياتي