اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

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

  • Posts

    4,444

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

  • Days Won

    192

 نوع المحتوي 

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

  1. أ / محمد صالح
    تفضل هنا حلين بعد تغيير اتجاه الخلايا وتغيير مكان البداية في شيت H-5 واحد بدالة offset وواحد بالتركيبة المطلوبة بالتوفيق how-can-get-data-from-other-sheets_2.xlsx
  2. أ / محمد صالح
    تفضل هذا أحد الحلول how-can-get-data-from-other-sheets.xlsx
  3. أ / محمد صالح
    جميعا بإذن الله
  4. أ / محمد صالح
    لا يوجد مشكلة في إثراء الموضوع ولكن حتى يتم جلب بيانات عمود النسبة تحتاج إلى إضافة سطر وتعديل آخر sh.Cells(m, 8).Value = ws.Cells(r, 12).Value sh.Cells(m, 9).Value = ws.Cells(r, 13).Value For Each x In Array(2, 3, 8, 9) ليصبح الكود كاملا Sub Test() Dim x, ws As Worksheet, sh As Worksheet, r As Long, m As Long, c As Long, n As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets("Sheet1") Set sh = ThisWorkbook.Worksheets("2") With sh.Range("B2").CurrentRegion.Offset(1) .Cells.UnMerge: .ClearContents End With m = 3 For r = 4 To ws.Cells(Rows.Count, "B").End(xlUp).Row sh.Cells(m, 2).Resize(, 2).Value = ws.Cells(r, 2).Resize(, 2).Value n = 4 For c = 4 To 10 Step 2 sh.Cells(m, n).Value = ws.Cells(r, c).Value sh.Cells(m + 1, n).Value = ws.Cells(r, c + 1).Value n = n + 1 Next c sh.Cells(m, 8).Value = ws.Cells(r, 12).Value sh.Cells(m, 9).Value = ws.Cells(r, 13).Value For Each x In Array(2, 3, 8, 9) sh.Cells(m, x).Resize(2).Merge Next x m = m + 2 Next r Application.ScreenUpdating = True End Sub بالتوفيق
  5. أ / محمد صالح
    أعتقد أن صاحب الاستفسار حدد طريقة المطلوب بالمعادلات وليس الكود بالتوفيق
  6. أ / محمد صالح
    إن شاء الله يكون هذا هو المطلوب بالتوفيق ترحيل درجات الطلاب بأسلوب مختلف.xlsx
  7. أ / محمد صالح
    يمكنك استعمال هذا الكود في حدث تهيئة النموذج والاستغناء عن إجراء 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 بالتوفيق
  8. أ / محمد صالح
    هل معنى أن امتداد الملف xlsx أنك تريد تنفيذ المطلوب بالمعادلات؟
  9. أ / محمد صالح
    تفضل ملفك تم وضع معادلة منفصلة لكل يوم وأنصح بعدم دمج الخلايا إلا في أضيق الحدود لأن دمج الخلايا يزيد من المعادلات بدلا من سحبها مباشرة بالتوفيق عدد الطلاب في كل يوم لكل منطقة صباحي ومسائي.xlsx
  10. أ / محمد صالح
    جميعا بإذن الله 👍😍🌹
  11. أ / محمد صالح
    شكرا لمرورك الكريم أستاذ @abouelhassan
  12. أ / محمد صالح
    من فات قديمه تاه
  13. أ / محمد صالح
    شكرا لمروركم الكريم أستاذ @خالد القدس نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  14. أ / محمد صالح
    أحسن الله إليكم
  15. أ / محمد صالح
    وهذا الإصدار الأحدث من اللعبة في موقعي الشخصي https://www.mr-mas.com/p/guess-numbers-game.html وفقنا الله جميعا لكل خير
  16. أ / محمد صالح
    جميعا بإذن الله @ahmed said نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  17. أ / محمد صالح
    يمكنك استعمال هذا الكود 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 بالتوفيق
  18. أ / محمد صالح
    وفقنا الله جميعا لكل خير
  19. أ / محمد صالح
    مزيد من المعلومات حول ""
    شكرا جزيلا لكل من دعم وشجع ولو بكلمة طيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  20. أ / محمد صالح
    شكرا جزيلا لكل من دعم وشجع ولو بكلمة طيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  21. أ / محمد صالح
    شكرا لك هذا بالضبط هو الذي تم في ملف النسخة 64بت في المشاركة الأولى
  22. أ / محمد صالح
    بعد تحميل الملف من الموضوع الأصلي لا يوجد أية مشكلة في الملف ربما تكون قد أجريت بعض التغييرات على الملف جعلته يظهر هكذا أو أن إعدادات اللغة العربية في جهازك غير صحيحة
  23. أ / محمد صالح
    بارك الله لك معلومات قيمة
  24. أ / محمد صالح
    حقل ID في الغالب يكون رقما أما إذا غيرت الحقل إلى [fname] مثلا وهو يعني الاسم الأول وهو حقل نصي في الجدول فيمكنك الاستغناء عن NZ ليصبح الكود DoCmd.SearchForRecord , "", acFirst, "[fname]='" & Str(Screen.ActiveControl) & "'" بالتوفيق
  25. أ / محمد صالح
    ربما تفيدك نتائج البحث هذه https://www.officena.net/ib/search/?q="رسائل sms"&type=forums_topic&nodes=89&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق
×
×
  • اضف...

Important Information

  I accept