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

أ / محمد صالح

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

  • Posts

    4476

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

  • Days Won

    197

 نوع المحتوي 

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

  1. أ / محمد صالح
    وفقنا الله جميعا لكل خير
  2. أ / محمد صالح
    ما إصدار الأوفيس والويندوز لديك وهل 32بت أم 64؟ حيث ان امتداد xlsb يعمل من إصدار 2007 وما بعده وهل يتم هذا مع ملفات xlsb الجديدة التي يتم حفظها بنفس الاكسل؟
  3. أ / محمد صالح
    تفضل هنا حلين بعد تغيير اتجاه الخلايا وتغيير مكان البداية في شيت H-5 واحد بدالة offset وواحد بالتركيبة المطلوبة بالتوفيق how-can-get-data-from-other-sheets_2.xlsx
  4. أ / محمد صالح
    تفضل هذا أحد الحلول how-can-get-data-from-other-sheets.xlsx
  5. أ / محمد صالح
    جميعا بإذن الله
  6. أ / محمد صالح
    لا يوجد مشكلة في إثراء الموضوع ولكن حتى يتم جلب بيانات عمود النسبة تحتاج إلى إضافة سطر وتعديل آخر 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 بالتوفيق
  7. أ / محمد صالح
    أعتقد أن صاحب الاستفسار حدد طريقة المطلوب بالمعادلات وليس الكود بالتوفيق
  8. أ / محمد صالح
    إن شاء الله يكون هذا هو المطلوب بالتوفيق ترحيل درجات الطلاب بأسلوب مختلف.xlsx
  9. أ / محمد صالح
    يمكنك استعمال هذا الكود في حدث تهيئة النموذج والاستغناء عن إجراء 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 بالتوفيق
  10. أ / محمد صالح
    هل معنى أن امتداد الملف xlsx أنك تريد تنفيذ المطلوب بالمعادلات؟
  11. أ / محمد صالح
    تفضل ملفك تم وضع معادلة منفصلة لكل يوم وأنصح بعدم دمج الخلايا إلا في أضيق الحدود لأن دمج الخلايا يزيد من المعادلات بدلا من سحبها مباشرة بالتوفيق عدد الطلاب في كل يوم لكل منطقة صباحي ومسائي.xlsx
  12. أ / محمد صالح
    جميعا بإذن الله 👍😍🌹
  13. أ / محمد صالح
    شكرا لمرورك الكريم أستاذ @abouelhassan
  14. أ / محمد صالح
    من فات قديمه تاه
  15. أ / محمد صالح
    شكرا لمروركم الكريم أستاذ @خالد القدس نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  16. أ / محمد صالح
    أحسن الله إليكم
  17. أ / محمد صالح
    وهذا الإصدار الأحدث من اللعبة في موقعي الشخصي https://www.mr-mas.com/p/guess-numbers-game.html وفقنا الله جميعا لكل خير
  18. أ / محمد صالح
    جميعا بإذن الله @ahmed said نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  19. أ / محمد صالح
    يمكنك استعمال هذا الكود 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 بالتوفيق
  20. أ / محمد صالح
    وفقنا الله جميعا لكل خير
  21. أ / محمد صالح
    مزيد من المعلومات حول ""
    شكرا جزيلا لكل من دعم وشجع ولو بكلمة طيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  22. أ / محمد صالح
    شكرا جزيلا لكل من دعم وشجع ولو بكلمة طيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  23. أ / محمد صالح
    شكرا لك هذا بالضبط هو الذي تم في ملف النسخة 64بت في المشاركة الأولى
  24. أ / محمد صالح
    بعد تحميل الملف من الموضوع الأصلي لا يوجد أية مشكلة في الملف ربما تكون قد أجريت بعض التغييرات على الملف جعلته يظهر هكذا أو أن إعدادات اللغة العربية في جهازك غير صحيحة
  25. أ / محمد صالح
    بارك الله لك معلومات قيمة
×
×
  • اضف...

Important Information

  I accept