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

ارقام الجلوس


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم 

اريد من عمالقة المنتدي وضع جميع المعادلات والاكواد الخاصه لهذا الشيت لعمل ارقام الجلوس به عوضا عن دمج المراسلات في الوورد

جلوس 2019.xls

رابط هذا التعليق
شارك

  • أفضل إجابة

بعد اذن الاخ احمد

استبدل اسماء الصفحات الى  Clas و   Repport  انا افضل دائماً ان تكون اسماء الصفحات باللغة الاجنبية (لحسن عمل الكود وعدم ظهور احرف غريبة في الكود)

 ضع في الخلية T1 الرقم تريده 

 ونفذ هدا الكود

Option Explicit

Sub get_Repport()
Dim i%, k, T%: T = 1
Dim CL As Worksheet, Rp As Worksheet
Set CL = Sheets("Clas"): Set Rp = Sheets("Repport")
Dim start_num%: start_num% = Rp.Range("T1")
Dim arr(1 To 10, 1 To 2)
  
  For k = 1 To 2
      For i = 5 To 45 Step 10
       arr(T, 1) = i
       arr(T, 2) = IIf(T > 5, 9, 2)
       T = T + 1
      Next i
   Next k
 k = 0

For i = LBound(arr) To UBound(arr)
  With Rp.Cells(arr(i, 1), arr(i, 2))
    .Value = CL.Cells(start_num + k + 1, 3)
    .Offset(1) = CL.Cells(start_num + k + 1, 5)
    .Offset(2) = CL.Cells(start_num + k + 1, 2)
    .Offset(3) = CL.Cells(start_num + k + 1, 4)
    .Offset(4) = CL.Cells(start_num + k + 1, 6)
    .Offset(5) = CL.Cells(start_num + k + 1, 7)
  End With
  k = k + 1
 Next

End Sub

الملف مرفق

Joulous_2019.xlsm

  • Like 4
رابط هذا التعليق
شارك

السلام عليكم 

جزاكم الله خير الجزاء علي ما قدمتوه من مساعده لي في عمل هذا الشيت

اللهم اجعل دعائي لكم بظهر الغيب في ميزان حسناتكم ويزيد في احسانكم

  • Like 1
رابط هذا التعليق
شارك

بعد اذن الاخوة الاعزاء

موضوع المشاركة له ذكريات جميلة ولم استطع  عدم المشاركة فيه رغم طرح الاخوة لحلول جيدة

 

لعل المرفق ينال استحسانكم

 

المرفقات

 

 

Test_1.rar

  • Like 3
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information