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

محي الدين ابو البشر

الخبراء
  • Posts

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

  • تاريخ اخر زياره

  • Days Won

    6

محي الدين ابو البشر last won the day on نوفمبر 5 2023

محي الدين ابو البشر had the most liked content!

السمعه بالموقع

821 Excellent

عن العضو محي الدين ابو البشر

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    ENG

اخر الزوار

3,811 زياره للملف الشخصي
  1. الحمد لله ولك الشكر في حدث الصفحة (Sheet code) يوجد ماكرو يعمل فقط عند تغير الرقم(Sheet code)
  2. ربما بناء على رقمكم (رقمنا) ترحيل بيانات للنموذج.xlsm أو بالمعادلات ترحيل بيانات للنموذج.xlsx
  3. والسلام عليكم ورحمة الله وبركاته هل تقصد شيء كهذا؟؟!! aBoo.xlsm
  4. أخي الكريم عملت على الملف الأول ولم انتبه إلى تعديل الملف على كل جرب هذا عسى يكون المطلوب Double Dlick على إي خلية في العمود E (رقم ملف الحالة) سوف يظهر التقرير الخاص ... Book2.xls
  5. يمكن تعديل السطر ReDim a(1 To 100, 1 To 2) إلى ReDim a(1 To 1000, 1 To 2) و أخبرني بالنتيجة بالتوفيق
  6. هذا آخر ملف لك مع الكود المنقح ويعمل جيداً بعد الأخذ بعين الاعتبار الملاحظة التالية إذا سمحت لي: حسب العمود الأول لديك دائما تبدأ بـ اسم المدرسة ثم "المدرسة" ، أرقام الكتتاب ثم "رقم الاكتتاب" ..... وفي النهاية الديانات ثم "الديانة" هذا الكلام جميل ولا غيار عليه ولكن لا أدري لماذا في بعض المدارس يختلف الترتيب في الديانات "الديانة" ثم الديانات جرب الملف المرفق مع التعديل عسى يناسبك تحويل عمود 4 معدل.xlsm
  7. من الصورة أعلاه يبدو أنها غير الملف الذي ارسلته في المشاركة الأولى!!! مع العلم أن الكود يعمل على ملفك جيداً أو ممكن أن نحاول استبدال السطر With Columns(1)بـWith [a:a]
  8. وعليكم السلام ورحمة الله وبركاته ربما Sub Test() Dim x, h Dim i&, c& Dim ar As Range With [a:a] .ClearContents .Interior.Color = xlNone End With h = Range("f1").Resize(, 9) For Each ar In Range("F1").CurrentRegion.SpecialCells(4).Areas x = ar.Offset(-1).Resize(ar.Count + 1, 9) For i = 2 To UBound(x, 2) If i = 2 Then Cells(3, 17).Offset(c) = IIf(i = 2, x(i - 1, 1), h(1, i - 1)) With Cells(3, 1) .Offset(c + 1) = h(1, i - 1) .Offset(c + 1).Interior.Color = vbYellow .Offset(c + 2).Resize(UBound(x)) = Application.Index(x, Evaluate("row(1:" & UBound(x) & ")"), i) End With c = c + UBound(x) + 1 Next Cells(3, 1).Offset(c + 1) = h(1, i - 1) c = c + 2 Next End Sub
×
×
  • اضف...

Important Information