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

أ / محمد صالح

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

  • Posts

    4479

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

  • Days Won

    198

 نوع المحتوي 

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

  1. أ / محمد صالح
    الدالة صحيحة بلا أي مشاكل وظيفتها جمع الأرقام من مدى به نصوص وأرقام بينهما مسافة ربما يكون الخطأ في وضع أول سطر من الدالة بجوار التعريف بها حيث أن الترتيب الصحيح هكذا Function SumNumOnly(rngS As Range, Optional strDelim As String = " ") As Double Dim xNums As Variant, lngNum As Long xNums = Split(rngS, strDelim) For lngNum = LBound(xNums) To UBound(xNums) SumNumOnly = SumNumOnly + Val(xNums(lngNum)) Next lngNum End Function بالتوفيق
  2. أ / محمد صالح
    الحل الاول: القيام بعمل repair اصلاح للأوفيس من لوحة التحكم control panel ثم uninstall a program ثم تحديد الأوفيس مع الضغط على change وليس uninstall بعدها quick repair والانتظار حتى نهاية الاصلاح وربما يتطلب الامر اعادة تشغيل الجهاز بعدها يكون كل شيء على ما يرام بإذن الله بالتوفيق
  3. أ / محمد صالح
    جميعا بإذن الله
  4. أ / محمد صالح
    وفقنا الله جميعا لكل خير
  5. أ / محمد صالح
    ما إصدار الأوفيس والويندوز لديك وهل 32بت أم 64؟ حيث ان امتداد xlsb يعمل من إصدار 2007 وما بعده وهل يتم هذا مع ملفات xlsb الجديدة التي يتم حفظها بنفس الاكسل؟
  6. أ / محمد صالح
    تفضل هنا حلين بعد تغيير اتجاه الخلايا وتغيير مكان البداية في شيت H-5 واحد بدالة offset وواحد بالتركيبة المطلوبة بالتوفيق how-can-get-data-from-other-sheets_2.xlsx
  7. أ / محمد صالح
    تفضل هذا أحد الحلول how-can-get-data-from-other-sheets.xlsx
  8. أ / محمد صالح
    جميعا بإذن الله
  9. أ / محمد صالح
    لا يوجد مشكلة في إثراء الموضوع ولكن حتى يتم جلب بيانات عمود النسبة تحتاج إلى إضافة سطر وتعديل آخر 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 بالتوفيق
  10. أ / محمد صالح
    أعتقد أن صاحب الاستفسار حدد طريقة المطلوب بالمعادلات وليس الكود بالتوفيق
  11. أ / محمد صالح
    إن شاء الله يكون هذا هو المطلوب بالتوفيق ترحيل درجات الطلاب بأسلوب مختلف.xlsx
  12. أ / محمد صالح
    يمكنك استعمال هذا الكود في حدث تهيئة النموذج والاستغناء عن إجراء 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 بالتوفيق
  13. أ / محمد صالح
    هل معنى أن امتداد الملف xlsx أنك تريد تنفيذ المطلوب بالمعادلات؟
  14. أ / محمد صالح
    تفضل ملفك تم وضع معادلة منفصلة لكل يوم وأنصح بعدم دمج الخلايا إلا في أضيق الحدود لأن دمج الخلايا يزيد من المعادلات بدلا من سحبها مباشرة بالتوفيق عدد الطلاب في كل يوم لكل منطقة صباحي ومسائي.xlsx
  15. أ / محمد صالح
    جميعا بإذن الله 👍😍🌹
  16. أ / محمد صالح
    شكرا لمرورك الكريم أستاذ @abouelhassan
  17. أ / محمد صالح
    من فات قديمه تاه
  18. أ / محمد صالح
    شكرا لمروركم الكريم أستاذ @خالد القدس نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  19. أ / محمد صالح
    أحسن الله إليكم
  20. أ / محمد صالح
    وهذا الإصدار الأحدث من اللعبة في موقعي الشخصي https://www.mr-mas.com/p/guess-numbers-game.html وفقنا الله جميعا لكل خير
  21. أ / محمد صالح
    جميعا بإذن الله @ahmed said نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  22. أ / محمد صالح
    يمكنك استعمال هذا الكود 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 بالتوفيق
  23. أ / محمد صالح
    وفقنا الله جميعا لكل خير
  24. أ / محمد صالح
    مزيد من المعلومات حول ""
    شكرا جزيلا لكل من دعم وشجع ولو بكلمة طيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  25. أ / محمد صالح
    شكرا جزيلا لكل من دعم وشجع ولو بكلمة طيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
×
×
  • اضف...

Important Information

  I accept