أ / محمد صالح

لا يوجد حدث في الاكسل اسمه مرة كل شهر ربما تقصد في حدث عند فتح المصنف يعني في كل مرة يتم فتح الملف يتم استدعاء الكود ماذا إذا لم يتم فتح الملف في يوم 10 في الشهر أو كان يوم 10 يوم جمعة خلاصة الكلام ان المعادلات افضل في مثل هذه الحالات مع تعديل بسيط وهو أن يكون تاريخ الجهاز أكبر من أويساوي 10 يعني الأيام في الشهر من 10 إلى نهاية الشهر =IF(DAY(TODAY())>=10,$A3,"") بالتوفيق

لم تفهم قصدي بمتى يتم تنفيذ الكود ؟ وبأي شيء يتم ربطه؟ أقصد هل تريد ربط الكود بزر مثلا عند الضغط عليه يتم التنفيذ وماذا إذا لم يضغط المستخدم على الزر في الموعد المحدد؟؟ وإذا ضغط المستخدم على الزر في يوم 13 في الشهر فلن يكتب الكود شيئا لأن التاريخ ليس 10 في الشهر ربما إذا اوضحت فكرة هذا الشيت وفائدة هذه العملية كتابة الاسم والتاريخ يكون لنا اقتراحات لتنفيذ المطلوب باحترافية اكثر

يجب تسجيل الدخول إلى المنتدى قبل تنفيذ عملية التحميل

هل معنى هذا ان المعادلة صحيحة وهي المطلوبة؟ نأتي إلى موضوع تحويلها إلى كود متى يتم تنفيذ الكود الذي يختبر تاريخ اليوم ويكمل باقي العمليات؟ وبأي شيء يتم ربطه ؟

يمكنك ربطة بزر أمر أو صورة أو شكل في الشيت عن طريق إدراج شكل وكتابة اي عبارة عليه ثم كلك يمين وتختار assign macro ثم تختار اسم الماكرو المطلوب ربطه بالزر

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

الخطأ في إضافة المعادلة للشيت فالمعادلة صحيحة وتقوم بالغرض وهذا ملفك بعد التعديل وإضافة المعادلة بطريقة صحيحة Classeur20211.xlsx

نفس الاختلاف في المعادلة إليك الملف بعد كتابة المعادلة المطلوبة عدد الوثائق_2.xls

أضف في أول سطر في الإجراء السطر التالي لمسح محتويات القائمة ListBox1.Clear

الخطأ هو : عدم استعمال المعادلة المذكورة في المشاركة السابقة وهي: =INDEX('عدد الوثائق'!B:B,MATCH(B2,'عدد الوثائق'!A:A,0)) واستعمال معادلة أخرى هي: =@INDEX('عدد الوثائق'!B:B,@MATCH('[B2;عدد ]resultats'!A$1:A$65536,0)) في الخلية F2 يمكنك نسخ المعادلة مع مراعاة الفاصلة أو الفاصلة المنقوطة حسب إعدادات جهازك

الحل في تغيير نوع البيانان Integer إلى long كما هو مستعمل في الاجراء addedit Dim med As Long & Dim s As Long في الزر الأول والثالث تم تعديل الكود السابق

تفضل هذه إعادة صياغة اختصار للأكواد حيث من قواعد البرمجة عدم كتابة الكود مرتين تم عمل دالة لمسح المحتويات clr ودالة للاضافة أو التعديل معا addedit بدلالة رقم الصف Private Sub CommandButton1_Click() Dim med As long med = Sheets("DATA ELV").Range("b10000").End(xlUp).Row + 1 addedit med clr MsgBox "تم نقل البيانات", vbInformation, "تمت العملية بنجاح" End Sub Private Sub CommandButton2_Click() clr Sheets("DATA ELV").Range("y2").Value = Sheets("SAISIE").Range("c2").Value If Not IsNumeric(Sheets("DATA ELV").Range("z2").Value) Then MsgBox "هذا الاسم غير موجود" Else Dim a As long a = Sheets("DATA ELV").Range("z2").Value Sheets("SAISIE").Range("c4").Value = Sheets("DATA ELV").Cells(a, "c") Sheets("SAISIE").Range("c6").Value = Sheets("DATA ELV").Cells(a, "d") Sheets("SAISIE").Range("c8").Value = Sheets("DATA ELV").Cells(a, "e") Sheets("SAISIE").Range("c10").Value = Sheets("DATA ELV").Cells(a, "f") Sheets("SAISIE").Range("c12").Value = Sheets("DATA ELV").Cells(a, "g") Sheets("SAISIE").Range("c14").Value = Sheets("DATA ELV").Cells(a, "h") Sheets("SAISIE").Range("c16").Value = Sheets("DATA ELV").Cells(a, "i") Sheets("SAISIE").Range("c18").Value = Sheets("DATA ELV").Cells(a, "j") Sheets("SAISIE").Range("c20").Value = Sheets("DATA ELV").Cells(a, "k") Sheets("SAISIE").Range("f4").Value = Sheets("DATA ELV").Cells(a, "l") Sheets("SAISIE").Range("f6").Value = Sheets("DATA ELV").Cells(a, "m") Sheets("SAISIE").Range("f8").Value = Sheets("DATA ELV").Cells(a, "n") Sheets("SAISIE").Range("f10").Value = Sheets("DATA ELV").Cells(a, "o") Sheets("SAISIE").Range("f12").Value = Sheets("DATA ELV").Cells(a, "p") Sheets("SAISIE").Range("f14").Value = Sheets("DATA ELV").Cells(a, "q") Sheets("SAISIE").Range("f16").Value = Sheets("DATA ELV").Cells(a, "r") Sheets("SAISIE").Range("f18").Value = Sheets("DATA ELV").Cells(a, "s") End If End Sub Private Sub CommandButton3_Click() Sheets("DATA ELV").Range("y2").Value = Sheets("SAISIE").Range("c2").Value Dim s As long s = Sheets("DATA ELV").Range("z2").Value addedit s clr MsgBox "تم تعديل البيانات", vbInformation, "تمت العملية بنجاح" End Sub Private Sub CommandButton4_Click() Sheets("DATA ELV").Range("y2").Value = Sheets("SAISIE").Range("c2").Value Dim r As long r = Sheets("DATA ELV").Range("z2").Value Sheets("DATA ELV").Rows(r).Delete clr MsgBox "تم حذف البيانات", vbInformation, "تمت العملية بنجاح" End Sub Sub clr() Sheets("SAISIE").Range("c4").Value = "" Sheets("SAISIE").Range("c6").Value = "" Sheets("SAISIE").Range("c8").Value = "" Sheets("SAISIE").Range("c10").Value = "" Sheets("SAISIE").Range("c12").Value = "" Sheets("SAISIE").Range("c14").Value = "" Sheets("SAISIE").Range("c16").Value = "" Sheets("SAISIE").Range("c18").Value = "" Sheets("SAISIE").Range("c20").Value = "" Sheets("SAISIE").Range("f4").Value = "" Sheets("SAISIE").Range("f6").Value = "" Sheets("SAISIE").Range("f8").Value = "" Sheets("SAISIE").Range("f10").Value = "" Sheets("SAISIE").Range("f12").Value = "" Sheets("SAISIE").Range("f14").Value = "" Sheets("SAISIE").Range("f16").Value = "" Sheets("SAISIE").Range("f18").Value = "" End Sub Sub addedit(rw As Long) Sheets("DATA ELV").Cells(rw, "c").Value = Sheets("SAISIE").Range("c4").Value Sheets("DATA ELV").Cells(rw, "d").Value = Sheets("SAISIE").Range("c6").Value Sheets("DATA ELV").Cells(rw, "e").Value = Sheets("SAISIE").Range("c8").Value Sheets("DATA ELV").Cells(rw, "f").Value = Sheets("SAISIE").Range("c10").Value Sheets("DATA ELV").Cells(rw, "g").Value = Sheets("SAISIE").Range("c12").Value Sheets("DATA ELV").Cells(rw, "h").Value = Sheets("SAISIE").Range("c14").Value Sheets("DATA ELV").Cells(rw, "i").Value = Sheets("SAISIE").Range("c16").Value Sheets("DATA ELV").Cells(rw, "j").Value = Sheets("SAISIE").Range("c18").Value Sheets("DATA ELV").Cells(rw, "k").Value = Sheets("SAISIE").Range("c20").Value Sheets("DATA ELV").Cells(rw, "l").Value = Sheets("SAISIE").Range("f4").Value Sheets("DATA ELV").Cells(rw, "m").Value = Sheets("SAISIE").Range("f6").Value Sheets("DATA ELV").Cells(rw, "n").Value = Sheets("SAISIE").Range("f8").Value Sheets("DATA ELV").Cells(rw, "o").Value = Sheets("SAISIE").Range("f10").Value Sheets("DATA ELV").Cells(rw, "p").Value = Sheets("SAISIE").Range("f12").Value Sheets("DATA ELV").Cells(rw, "q").Value = Sheets("SAISIE").Range("f14").Value Sheets("DATA ELV").Cells(rw, "r").Value = Sheets("SAISIE").Range("f16").Value Sheets("DATA ELV").Cells(rw, "s").Value = Sheets("SAISIE").Range("f18").Value End Sub المشكلة في كود البحث كانت في عدم مراعاة ألا يكون الاسم موجودا بالتوفيق

في أي زر الخلل الذي تواجهه؟

لحماية الشيت في إصدار 2003 وما قبله Tools - protection - protect sheet أدوات - حماية - حماية ورقة العمل

هل المرفق في المشاركة السابقة لا يفي بالغرض المطلوب ؟ أرى أنه نفس ما تطلبه تعال نفهم المعادلة في C3 IF(DAY(TODAY())=10 يعني لو اليوم الخاص بتاريخ جهاز المستخدم يساوي 10 (يعني في 10 في الشهر) يعرض قيمة الخلية A3 وإذا اليوم ليس 10 لا يعرض شيئا ونفس الشيء في معادلة عمود التحصيل IF(C3="","",TODAY()) لو خلية المحصل فارغة تصبح خلية التاريخ فارغة وإذا بها اسم يعرض تاريخ اليوم ما المطلوب غير هذا ؟؟؟

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

يمكنك وضع هذه المعادلة في الخلية F2 =INDEX('عدد الوثائق'!B:B,MATCH(B2,'عدد الوثائق'!A:A,0)) وهي للبحث عن القيمة المقابلة للجنة في عمود عدد الوثائق بالتوفيق

يا ريت توضح أكثر وبالتفصيل تكرار المدى من كذا إلى كذا في شيت اسمه كذا حتى يمكن للجميع فهم المطلوب ولا يوجد مستحيل بإذن الله

يمكنك استعمال هذه المعادلة في الخلية B1 =VLOOKUP($I$1,Feuil1!$A$3:$G$150,ROW(),0) وهي للبحث بدالة Vlookup بصورة رأسية مع إمكانية سحب المعادلة لأسفل للحصول على باقي نتائج البحث بالتوفيق

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

جرب أن تضع في الخلية G7 هذه المعادلة =COUNTIFS(C7:F7,"<>"&0,C7:F7,"<>") وهي تعني عد الخلايا بشرطين ألا تكون فارغة وألا تتساوي صفر بالتوفيق

يمكنك طباعتهم في برنامج الوورد مثلا من خلال دمج المراسلات أو من خلال الاكسل وتوزيعها بعد الطباعة وتوقيع كل طالب بالاستلام

إن شاء الله يكون هذا هو المطلوب تم إضافة معادلة للعمود A ومعادلة للعمود B ومعادلة للعمود C وما بعده مع إضافة عمود لأسماء العملاء بدون تكرار في الشيت الأول بالتوفيق تحصيل عملاء تجريبى.xlsx

رءوس الأعمدة لا يتم إضافتها إلى عناصر القائمة وإنما تكون عبارة عن تسميات labels أعلى القائمة تفضل هذا ملفك بعد التعديل إظهار نتائج البحث في listbox.xlsb

جرب هذا التعديل Private Sub CommandButton2_Click() Dim i As Long Me.ListBox1.CLEAR 'لعمل رأس الاعمدة For a = 1 To 6 Me.ListBox1.AddItem Sheet3.Cells(1, a) Next a Me.ListBox1.Selected(0) = True End Sub