أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





شرح كود دالة ubound & lbound مع المصفوفات

السلام عليكم ارفق لكم هذا الملف حتى اجد من يستطيع شرح هذا الكود سطر سطر [code]U3ViIFRyYW5zcG9zZV9EYXRhKCk8YnIgLz4 ..



14-04-2020 12:08 مساء
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 

السلام  عليكم  ارفق لكم هذا  الملف  حتى اجد  من يستطيع شرح هذا  الكود سطر سطر 
Sub Transpose_Data()
  Dim a As Variant, b As Variant
  Dim i As Long, j As Long, k As Long, uba2 As Long
  
  a = Range("A1").CurrentRegion.Value
  uba2 = UBound(a, 2)
  ReDim b(1 To UBound(a) * uba2, 1 To 3)
  For i = 2 To UBound(a)
    For j = 3 To uba2
      If a(i, j) <> "" Then
        k = k + 1
        b(k, 1) = a(i, 1): b(k, 2) = a(i, 2): b(k, 3) = a(1, j)
      End If
    Next j
  Next i
  Range("A" & Rows.Count).End(xlUp).Offset(2).Resize(k, UBound(b, 2)).Value = b
End Sub
 
 
  توزيع بيانات الصفوف الى اعمدة بناء على كلمة ‬.xls   تحميل xls مرات التحميل :(9)
الحجم :(38.912) KB


14-04-2020 02:55 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif شرح كود دالة ubound & lbound مع المصفوفات
وعليكم السلام أخي الكريم
تفضل الرابط التالي فيه الشرح
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب




الكلمات الدلالية
دالة ، ubound ، & ، lbound ، المصفوفات ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 01:12 صباحا