يحيى حسين

السلام عليكم و رحمة الله أخي جرب هذا الكود Sub AddSerial() Dim LR As Long LR = Range("B" & Rows.Count).End(xlUp).Row Range("A2").Value = 1 Range("A2:A" & LR).DataSeries xlColumns, xlLinear, , 1, LR End Sub و هو يعتمد على القيم المدخلة في العامود B

السلام عليكم و رحمة الله أخي أفضل و أسرع طريقة إستخدم TextToColumns

السلام عليكم عذرا اخي خبور لمى انتبه لحلك

السلام عليكم و رحمة الله أستخدم هذا الكود Private Sub CommandButton1_Click() Select Case WorksheetFunction.RandBetween(2, 5) Case 2 UserForm2.Show Case 3 UserForm3.Show Case 4 UserForm4.Show Case 5 UserForm5.Show End Select End Sub

السلام عليك و رحمة الله اخي حدد النطاق الذي يحتوي الأرقام و رايت كليلك و اختر تنسيق الخلايا Format Cells و من خيار المخصص Custom ضع الكود التالي #,##0.000;#,##0.000

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

جزاك الله كل خير اخي الحبيب المنتدى منور بكم

حل جميل اخي ابو حنين

السلام عليكم و رحمة الله من تاب Home من خيارات Conditional Formatting إختر New Rule ثم من المربع الذي سيظهر إختر use a formula و ضع المعادلة في المربع المخصص لها و من ثم اتبع الخطوات المكورة في المرحلة الأولى دمت في حفظ الله

نعم أخي حماده الكود المصمم بحيث يتعامل مع جميع التكست بوكس داخل الفورم

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

السلام عليك و رحمة الله أخي هذا الكود يقوم بإخفاء التكست بوكس الموجودين في مثالك واحداً تلو الآخر عند كل ضغطه Private Sub CommandButton1_Click() Dim ctr As Control For Each ctr In Me.Controls If TypeName(ctr) = "TextBox" Then If ctr.Visible = True Then ctr.Visible = False Exit Sub End If End If Next ctr End Sub دمتم في حفظ الله

السلام عليكم و رحمة الله أخي إسلام شاهد اللف المرفق تلوين سطر بعد سطر .rar

جزاك الله كل خير أخي الحبيب نسأل الله أن ديم المحبة دمتم في حفظ الله

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

السلام عليكم و رحمة الله أخي إن الله مع الصابرين لقد قرأت ملفك و لم أفهم المطلوب عذراً المعادلة الموجود في الخلية i3 هي =SUMPRODUCT((I18:I32<6)*($G$18:$G$32="مدرسة")) و هي مطابقة لطلبك يا ريت توضلحنا طلبك أكثر

السلام عليكم و رحمة الله أخي جرب هذه الدالة المعرفة انسخ هذا الكود Function COUNTCOLOR(MyRng As Range, Cri As Range) As Long Dim c As Range Application.Volatile COUNTCOLOR = 0 For Each c In MyRng.Cells If c.Interior.ColorIndex = Cri.Interior.ColorIndex Then COUNTCOLOR = COUNTCOLOR + 1 End If Next c End Function و من ثم في الخلية C17 ضع المعادلة التالية =COUNTCOLOR($C$2:$C$10,B17) و اسحبها للأسفل دمت في حفظ الله

السلام عليكم و رحمة الله أخي عند ظهور شاشة الحفظ ستجد امس الملف و الخانة التي تحتها امتداد الملف اختاره XLSM Macro Enabled workbook اخي لو بحث في المنتدى ستجد العديد من المشاركات عن الفورم

السلام عليكم و رحمة الله أخي جرب هذه المعادلة =LOOKUP(REPT("ي",255),F:F) و هي تعيد اخر النتيجة في العامود F دمت في حفظ الله

السلام عليكم و رحمة الله أخي بخصوص طلبك الأول عند اختيار خيار الحفظ لا تختر ملف اكسيل عادي اختر الخيار الثاني Macro Enabled workbook اما بخصوص طلبك الثاني فيوجد عدة مواضيع تعالج هالمواضييع دمت في حفظ الله

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

السلام عليكم و رحمة الله أخي جرب هذه الطريقة من خلال التنسيق الشرطي حدد الجدول و من التنسيق الشرطي ضع المعادلة التالية =CELL("row")=ROW() و من ثم اختر التنسيق الذي يناسبك و من ثم على اسم الصفحة رايت كليك و ضع الكود التالي : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False End Sub دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي ابو مريم قم بتحديد الجدول و هو في مثالك من C4:G18 و من تاب Data اختر Data Validation و اختر منها Custom و ضع المعادلة التالية =COUNT($C4:$G4)=1 و من ثم من تاب Input Messege ضع نص الرسالة الذي يناسبك دمت في حفظ الله

السلام عليكم و رحمة الله نهنئ الأخ الحبيب عبدالله المجرب بمولودته الجديدة و التي أسماها نورا نسأل الله ان تكون نوراً له في الدنيا و الآخرة و ان تكون ذخراً له و كل عام و الاخ عبدالله و عائلته بألف ألف خير ان شاء الله

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