مجدى يونس Admin
عدد المساهمات : 1594 تاريخ التسجيل : 17/05/2012 الموقع : محافظة بورسعيد
| موضوع: المصفوفة ذات الحجم الثابت وثنائية البعد والتى تتكون من ثلاثة صفوف وعمودين الخميس يوليو 05, 2012 6:47 am | |
| بالنسبة للمصفوفة ذات الحجم الثابت وثنائية البعد والتى تتكون من ثلاثة صفوف وعمودين يمكن التعبير عنها كلأتى Dim ay(2, 1) As String وفى هذه الحالة تكون الصفوف هى 0 و 1 و 2 والأعمدة هى 0 و 1 بدلا من Dim ay(1 To 3, 1 To 2) As String
وبالتالى يكون المثال كلآتى Sub kh_Array1() Dim ay(2, 1) As String ay(0, 0) = "A" ay(1, 0) = "B" ay(2, 0) = "C" ay(0, 1) = "D" ay(1, 1) = "E" ay(2, 1) = "F" Range("A1").Resize(3, 2).Value = ay End Sub
كود يقوم بقلب البيانات الموجودة فى صف معين وهذا هو الكود Sub ragab() Dim Arr() As Integer Range("B8:iv8").ClearContents LC = [iv5].End(xlToLeft).Column ReDim Arr(1 To LC - 1) As Integer T = 1 For i = LC To 2 Step -1 Arr(T) = Cells(5, i) T = T + 1 Next Range("B8").Resize(1, LC - 1) = Arr Erase Arr End Sub المرفقات : _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس | |
|
مجدى يونس Admin
عدد المساهمات : 1594 تاريخ التسجيل : 17/05/2012 الموقع : محافظة بورسعيد
| موضوع: رد: المصفوفة ذات الحجم الثابت وثنائية البعد والتى تتكون من ثلاثة صفوف وعمودين السبت يناير 07, 2017 3:35 am | |
| شكرا لك ارفق ملف او شرح للصور او فيديو _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس | |
|