اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4470

  • تاريخ الانضمام

  • Days Won

    196

 نوع المحتوي 

كل منشورات العضو أ / محمد صالح

  1. أ / محمد صالح
    أعتقد أن صاحب الاستفسار حدد طريقة المطلوب بالمعادلات وليس الكود بالتوفيق
  2. أ / محمد صالح
    إن شاء الله يكون هذا هو المطلوب بالتوفيق ترحيل درجات الطلاب بأسلوب مختلف.xlsx
  3. أ / محمد صالح
    يمكنك استعمال هذا الكود في حدث تهيئة النموذج والاستغناء عن إجراء add_comp Private Sub UserForm_Initialize() With Sheets("الصفحة الرئيسية") Lr = .Cells(Rows.Count, 23).End(xlUp).Row lr2 = .Cells(Rows.Count, 34).End(xlUp).Row For n = 2 To lr2 Me.ComboBox1.AddItem .Range("ah" & n) Next n For n = 2 To Lr Me.ComboBox1.AddItem .Range("w" & n) Next n End With End Sub مع تعديل خاصية عدد الأعمدة ColumnCount إلى 1 في خصائص ComboBox1 بالتوفيق
  4. أ / محمد صالح
    هل معنى أن امتداد الملف xlsx أنك تريد تنفيذ المطلوب بالمعادلات؟
  5. أ / محمد صالح
    تفضل ملفك تم وضع معادلة منفصلة لكل يوم وأنصح بعدم دمج الخلايا إلا في أضيق الحدود لأن دمج الخلايا يزيد من المعادلات بدلا من سحبها مباشرة بالتوفيق عدد الطلاب في كل يوم لكل منطقة صباحي ومسائي.xlsx
  6. أ / محمد صالح
    جميعا بإذن الله 👍😍🌹
  7. أ / محمد صالح
    شكرا لمرورك الكريم أستاذ @abouelhassan
  8. أ / محمد صالح
    من فات قديمه تاه
  9. أ / محمد صالح
    شكرا لمروركم الكريم أستاذ @خالد القدس نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  10. أ / محمد صالح
    أحسن الله إليكم
  11. أ / محمد صالح
    وهذا الإصدار الأحدث من اللعبة في موقعي الشخصي https://www.mr-mas.com/p/guess-numbers-game.html وفقنا الله جميعا لكل خير
  12. أ / محمد صالح
    جميعا بإذن الله @ahmed said نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  13. أ / محمد صالح
    يمكنك استعمال هذا الكود Private Sub CommandButton1_Click() TextBox1.Value = Format(DateAdd("d", -1, CDate(TextBox1.Value)), "YYYY/MM/DD") End Sub Private Sub CommandButton2_Click() TextBox1.Value = Format(DateAdd("d", 1, CDate(TextBox1.Value)), "YYYY/MM/DD") End Sub بالتوفيق
  14. أ / محمد صالح
    وفقنا الله جميعا لكل خير
  15. أ / محمد صالح
    مزيد من المعلومات حول ""
    شكرا جزيلا لكل من دعم وشجع ولو بكلمة طيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  16. أ / محمد صالح
    شكرا جزيلا لكل من دعم وشجع ولو بكلمة طيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  17. أ / محمد صالح
    شكرا لك هذا بالضبط هو الذي تم في ملف النسخة 64بت في المشاركة الأولى
  18. أ / محمد صالح
    بعد تحميل الملف من الموضوع الأصلي لا يوجد أية مشكلة في الملف ربما تكون قد أجريت بعض التغييرات على الملف جعلته يظهر هكذا أو أن إعدادات اللغة العربية في جهازك غير صحيحة
  19. أ / محمد صالح
    بارك الله لك معلومات قيمة
  20. أ / محمد صالح
    حقل ID في الغالب يكون رقما أما إذا غيرت الحقل إلى [fname] مثلا وهو يعني الاسم الأول وهو حقل نصي في الجدول فيمكنك الاستغناء عن NZ ليصبح الكود DoCmd.SearchForRecord , "", acFirst, "[fname]='" & Str(Screen.ActiveControl) & "'" بالتوفيق
  21. أ / محمد صالح
    ربما تفيدك نتائج البحث هذه https://www.officena.net/ib/search/?q="رسائل sms"&type=forums_topic&nodes=89&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق
  22. أ / محمد صالح
    المتغير R هنا هو فقط عداد للصف النشط في الحلقة التكرارية for next في شيت (الشيت) وتبدأ قيمته من 11 وهو أول صف فيه درجات لطالب إلى 700 وهي آخر صف فيه درجات لطالب ويمكنك تعديله إلى رقم 64 حيث أنه رقم صف آخر سجل فعلا ويمكنك تسمية المتغير بأي اسم مثلا n بالنسبة لاسم الشيت مادام الإجراء يتم استدعاؤه من شيت (الشيت) فيتم التعامل على أنه الشيت النشط ولا حاجة لكتابة اسمه في الكود بالتوفيق
  23. أ / محمد صالح
    جميعا بفضل ربي
  24. أ / محمد صالح
    يبدو أن حضرتك لم تقرأ هذا السطر Exp = DateAdd("d", 5, RR) وهو يعني بعد تاريخ أول فتح البرنامج ب 5 أيام بالتوفيق
  25. أ / محمد صالح
    يبدو أن حضرتك لم تقرأ هذا في المشاركة الأولى بالتوفيق
×
×
  • اضف...

Important Information

  I accept