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

البقاء لله وان لله وان اليه راجعون

أقصد بان ليس لدي خلفية عن هذه الريفينسات == سيكون كود التفعيل لكمبيوترك هو 1. NRP6 2. JYPX 3. 23FG 4. P4FL يوضع بالترتيب ابتداءاً من اليسار

السلام عليكم هذه الدالة لحساب الفردية =SUM(IF(MOD(A1:A10;2)=1;A1:A10)) وهذه للزوجية =SUM(IF(MOD(A1:A10;2)=0;A1:A10)) لكن لا تنسى الضغط على Ctrl+Shift + Enter معاً

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

ما المسئول بأعلم بها من السائل === هل عمل معك الفورم اذا كان نعم الرجاء وضع الرقم ليتم تزويدك بكود التفعيل لتجربته

شاهد المرفق report.rar

السلام عليكم تم تعديل الكود ليصبح Sub report1() Application.ScreenUpdating = False On Error Resume Next Set Mysh = Sheets("مشتريات") Range("B7:H47").ClearContents If [F3] = "" Then DateFrom = CDate(Application.Min(Mysh.[E5:E20])) Else DateFrom = [F3] If [I3] = "" Then DateTo = CDate(Application.Max(Mysh.[E5:E20])) Else DateTo = [I3] '======================================================== For r = 5 To Mysh.[b10000].End(xlUp).Row If [C3] = Mysh.Cells(r, 6) And Mysh.Cells(r, 5) >= DateFrom And Mysh.Cells(r, 5) <= DateTo Then Mysh.Cells(r, 2).Resize(1, 7).Copy Range("B" & [b10000].End(xlUp).Row + 1) End If Next r Set Mysh = Nothing End Sub

جرب المرفق system user.rar

تجد ما تريد (حسب فهمي) في الكود MySub فهو يلغي حدث الصفحة ثم يفعله تم عمل الزرين الرجاء التجربة إيقاف.rar

السلام عليكم اتبع الخطوات التالية قم بفتح ملف اكسل جديد 2. ارفع امان الماكرو 3. افتح ملف اكسل فورم التفعيل (ستظهر لك شاشة رمادية) 4. اضغط Alt + F11 5. سيطلب منك كلمة سرية لفتح محرر الاكواد الخاص بالملف (a1234a) هذه هي الكلمة 6. قم بإزالة هذه الحماية 7. احفظ قم بخفض أمان الماكرو بفتح اي ملف اخر قم بفتح الملف ستظهر لك رسالة الخطاء اذهب الى محرر الاكواد بالضغط على Debug بعدها اتبع خطوات الصورة ثم قم بإزالة الصح من Missing ريفرنس

ممكن ان تضع شرط الكود بقيمة خلية فاذا كانت 1 يعمل الكود واذا كانت غير ذلك ليكن 5 يتوقف انا افترضت الخلية AA2 Private Sub Worksheet_Selectionchange(ByVal Target As Range) If [AA2] = 1 Then GoTo 1 Else: Exit Sub End If 1: If Not Intersect(Target, Range("ad2:ae2,aj5:an50")) Is Nothing Then Cells(Target.Row, 30).Select If Not Intersect(Target, Range("r4:x4,c2:x2")) Is Nothing Then Cells(Target.Row, 1).Select End Sub

الخطاء في احد الريفرنسات المفقودة

السلام عليكم يقصد بهذه الجزئية اخر صف به بيانات في العمود j == لحل الاشكال ضع مرفق

السلام عليكم تفضل المرفق 22.zip

بس الموضوع لا يتعلق بالحماية بقدر فكرة كود التفعيل فاتمنى من الجميع المشاركة والتفاعل

على نفس رابط السؤال تم وضع محاولة

السلام عليكم بعد المحاولة تم عمل المطلوب في المثال الثاني تم ابعاد القوائم مقدار 10 أعمدة يجب ان يكون هناك تعليق في الخلية (غير مهم ما هو التعليق) شاهد المرفق فورم ادخال و تعديل مرن.rar

كنت أعرف واستميحك عذراً في ازالة المرفق ليتم تجربة البرنامج

السلام عليكم تم عمل اللازم تسلسل خاص.rar

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

هل القائمة المنسدلة في خانة واحدة فقط ام عدة خانات

إسم الملف: فورم تفعيل الملف لمرة واحدة أضيف للمكتبة بواسطة: عبدالله المجرب تاريخ الإضافة: 16 Nov 2012 القسم فى المكتبة: قسم الإكسيل السلام عليكم ورحمة الله وبركاته الفكرة: قبل مدة عرضها علي الاستاذ محمد صالح مطبقة في ملف اكسل فاحببت ان اجربها بلامس فطلبتها منه لكنه فضل ان اصل اليها مع اعطائي رابط مساعد من منتدى زميل. الهدف: ملف سيطلب التفعيل كلما تم نقله الى حاسب اخر وتكود اكواد التفعيل ال16 مختلفة لكل حاسب ونهدف منها الى حماية البرامج من النقل والاستخدام الغير مرخص من قبل المبرمج. التنفيذ: تطلب التنفيذ بعض الوقت والمحاولات حتى الوصول الى هذه النتيجة فكرة: ارجو التجربة وابداء الراي. طريقة طلب كود التفعيل: سيظهر لك فورم فور عمل البرنامج في المربع الاول هناك نص يتم وضعه في المشاركة ليتم اعطائك كود التفعيل للبرنامج المشاركون في التنفيذ: 1. صاحب الفكرة ومنفذها على ملف اكسس في منتدى الفريق العربي للبرمجة (أكسير الحياة ومعه الاستاذة المعروفة زهرة العبدالله) 2. الاستاذ محمد صالح 3. الاستاذ عبدالله باقشير (كود عدم عمل الملف اذا كان الماكرو غير مفعل له) 4. العبد الفقير الى الله اخوكم في الله عبدالله المجرب بالتنفيذ وقليلاً من اللمسات . ====== ملاحظة الملف لن يطلب التفعيل الا مرة واحدة مع وجود خيار للحصول على طريقة التفعيل بواسطة المعلومات الموجودة في الفورم ومن خلال هذه المشاركة طبعاً تم ارفاق الملف لسهولة التحميل من المشاركة إضغط هنـــــــــــا لتنزيل الملف ملف يطلب كود تفعيل لفتحه ولمرة واحدة فقط.rar

ان شاء الله ممكن إستبدل كود زر الحذف بهذا Private Sub CommandButton1_Click() Dim sh As String, T As Integer If ComboBox1 = "" Then MsgBox "لا يمكن إتمام العملية لعدم وجود إسم": Exit Sub Application.DisplayAlerts = False sh = ComboBox1.Text ActiveWorkbook.Unprotect "1" Select Case sh Case "عبدالله", "116" ''''''''''''''''''''''' Case Else: T = 1: Sheets(sh).Delete End Select MsgBox IIf(T, "تم حذف الشيت " & sh, "لم يتم الحذف لانه محمي"), vbOKOnly, "تنبيه" ActiveWorkbook.Protect "1", Structure:=True, Windows:=False Unload Me End Sub

شكراً للجميع على التشجيع واخص بالذكر الاستاذ عبدالله باقشير فهو من نقتبس منه هذه الاعمال ======

ضع هذا الكود في حدث thisWorkBook Private Sub Workbook_Open() Sheets("اسم الورقة الرئيسية").Select End Sub