تحويل معادلة الصفيف الى كود

[عمر الجزاوى]

بعد اذنكم اريد مساعدة في الخلية D1 قائمة منسدلة عند الاختيار من القائمة المنسدلة تظهر النتائج كما فى الشيت وهى معادلة صفيف ممكن عمل كود لتحويل معادلة الصفيف الى كود وشكرا على حسن تعاونكم معنا

تحويل معادلة الصفيف الى كود.xlsm

[أ / محمد صالح]

يمكنك استعمال هذا الكود في حدث عند تغيير محتوي شيت الفاتورة

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long, r As Long, c As Long
Dim sh As Worksheet:  Set sh = Sheets("رصيد")
If Target.Address = "$D$1" Then
Range("b3:d16").ClearContents
c = 2: r = 3
For n = 2 To sh.Cells(Rows.Count, 1).End(3).Row
If sh.Range("b" & n) = Target Then
Cells(r, c) = sh.Range("c" & n)
r = IIf(c = 4, r + 1, r): c = IIf(c = 4, 2, c + 1)
End If
Next n
'MsgBox "Done by mr-mas.com"
End If
End Sub

ولمن لا يعرف إضافة الكود في أحداث الصفحة

كلك يمين على اسم الشيت ثم view code تقريبا بالعربي عرض التعليمات البرمجية

ثم لصق الكود

بالتوفيق 

[عمر الجزاوى]

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

[أ / محمد صالح]

آمين ولك بالمثل وزيادة 

[عمر الجزاوى]

استاذ محمد عند تطبيق الكود على الملف الاصلى معرفتش اعدل على الكود ممكن بعد اذنك تعدل لى الكود حتى يعمل مثل الشيت السابق

تعديل على الكود.xlsm

[أ / محمد صالح]

أولا أحييك

تعديلاتك رائعة تدل على فهم لمضمون الكود

ثانيا رقم 4 في هذا السطر هو رقم عمود النهاية في الخلايا التي يتم الكتابة فيها ورقم 2 هو عمود البداية 

r = IIf(c = 4, r + 1, r): c = IIf(c = 4, 2, c + 1)

حيث يتم الكتابة في عمود 2 و3 و4

في حالتك الجديدة يتم الكتابة في العمود 10 و11 و12

لذا نغير 4 إلى. 12 وتعدل بداية العمود c من 2  إلى 10 وسيعمل الكود بنجاح

r = IIf(c = 12, r + 1, r): c = IIf(c = 12, 10, c + 1)

بالتوفيق 

[عمر الجزاوى]

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

وشكرا على الاشادة وعلى فهمى للكود 

[أ / محمد صالح]

جميعا بإذنه تعالى 

فلله الحمد والشكر