ياسر خليل أبو البراء

بارك الله فيك أخي الحبيب الزباري على هذا الموضوع الجميل والمفيد آخر سؤال : اقلب الحلقة واستخدم كلمة Step -1 لأننا ماشيين بالمقلوب ، زي ما الدنيا كلها ماشية بالمقلوب تقبل صباحي

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

جزاك الله خيراً أخي الغالي الزباري ومشكور على مرورك العطر

زائد 10 لأن النتائج ستوضع في بداية الصف رقم 12 .. والبيانات الخام بدايتها 3 أي 12 - 3 +1 = 10 .. ليتناسب بنفس عدد الصفوف

وعليكم السلام أخي الكريم محمد جرب الملف التالي عله يفي بالغرض رابط الملف من هنا

بارك الله فيك أخي الكريم عبد العزيز ومشكور على مرورك العطر بالموضوع تقبل تحياتي

السلام عليكم ورحمة الله وبركاته أقدم لكم كيفية استخدام أداة التحكم RefEdit وكيفية استخدامها على الفورم ، وكيفية استغلالها للمعاينة أو الطباعة على سبيل المثال قم بإدراج فورم من قائمة Insert في محرر الأكواد ، ثم طبق الخطوات التالية كما في الصورة ، حيث يتم إدراج الأداة المسماة RefEdit1 ، وأيضاً إدراج زري أمر CommanButton1 و CommandButton2 أحدهما للمعاينة والآخر للطباعة وأخيراً ضع الكود التالي في حدث الفورم (كليك يمين على الفورم من نافذة المشروع ثم اختر View Code) لمزيد من المعلومات ولتحميل الملف المرفق انقر على الرابط التالي رابط الموضوع من هنا

تفضل أخي الكريم Sample VL.rar

بارك الله فيك أخي العزيز منير ومشكور على مرورك العطر بالموضوع تقبل وافر تقديري واحترامي

بارك الله فيك أخي الغالي أبو القبطان تم تحديث الملف المرفق في الموضوع .. وتقبلوا تحياتي

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 8 Then ActiveSheet.Unprotect Password:="" If Range("a" & Target.Row & ":a" & Target.Row).Value = 1 Then Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = True Else Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = False End If ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub

أعتقد أنني أرشدتك للحل من قبل .. أين توقفت بالضبط؟ حاول تساعد الأعضاء إنهم يساعدوك

وعليكم السلام أخي الكريم جرب الكود التالي لاختبار شرط التاريخ مطابق لتاريخ اليوم Sub Test() If DateSerial(Year(Date), 10, 27) = Date Then MsgBox "OK. Do It", 64 Else MsgBox "Not Required Date", vbExclamation End If End Sub قم بتغيير الأرقام 10 إلى 12 (شهر ديسمبر) ، وغير اليوم 27 إلى 30 أو 31 آخر يوم في ديسمبر .. هذا مجرد نموذج يمكنك التعديل عليه ليناسب احتياحاتك .. المهم في الكود أن تتعلم كيف تضع شرط لتطابق تاريخ مع تاريخ اليوم

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

الكود في أول الموديول Sub kh_ColumnHidden(ColumnAddres As String) Columns("C:W").EntireColumn.Hidden = True Columns(ColumnAddres).EntireColumn.Hidden = False حيث أن البارامتر المستخدم هو ColumnAddress أي عنوان العمود المطلوب إظهاره فقط حيث يقوم الكود المعرف بإخفاء الأعمدة كلها من C إلى W ، ويمكن تغييرها حسب الرغبة ثم في السطر التالي يقوم بإظهار العمود الهدف فقط .. استخدام الكود المعرف واضح في بقية الإجراءات الفرعية

وعليكم السلام في المثال الذي تم إرفاقه نفس فكرة الـ Function حيث يوجد إجراء فرعي شبيه بالدالة المعرفة ، ويمكن استخدام الإجراء الفرعي الرئيسي والذي يحتوي على بارامترات في إجراءات فرعية أخرى

غير السطر إلى .Range("b3:p" & LR).AdvancedFilter xlFilterCopy, Range("O1:O2"), Range("c12:q" & LR + 10)

وعليكم السلام جرب التالي Sub Test() Dim officena As String officena = "a" Range(officena & "1:" & officena & "10").Select End Sub

الحد الأقضى هو عدد صفوف ورقة العمل .. هذا والله أعلى وأعلم

وعليكم السلام للأسف الشديد أن المشكلة هي في عدد الأرقام في العمود NUM حيث أن الكود سيقوم بالمرور على كل الأرقام الموجودة وكل الاحتمالات .. عموماً جرب الأرقام بعدد أكبر قليلاً لترى النتائج بنفسك ..ربما يفيدك ، هذا والله أعلى وأعلم

وعليكم السلام ربما يساعدك هذا الملف البسيط في فهم الفكرة وتنفيذها على ملفك Hide Show Multi Columns.rar

السلام عليكم ما هو العمود الذي ستتم فيه عملية الإدخال للأرقام 1 أو 2؟ وهل هناك احتمال لإدخال أرقام أخرى ؟ لو كانت الإجابة بنعم فما هو المتوقع ؟ الموضوع بسيط جداً لكن ينقص التفاصيل الكاملة لكي يستطيع أحد الأخوة تقديم المساعدة المطلوبة

جرب الفيديو التالي

وعليكم السلام أخي أبو عبد الرحمن يمكن بعد عملية حذف الجداول الاعتماد على آخر صف به بيانات في أي عمود آخر مصاف له 1 ... ثم من هذا المنطلق يتم مسح الأرقام المتسلسلة في العمود الأول هل الفكرة مقبولة أم أن لديك تصور آخر؟

وجزيت خيراً معلمي بمثل ما دعوت لي .. ويبقى لك الفضل بعد الله عزوجل في أني أحببت هذا المجال تقبل وافر تقديري واحترامي