مرفق شكل لمعادلة الصفائف مطلوبة بالكود

[ahmed00]

السلام عليكم ورحمة الله

ارجو هذه المرة مساعدتكم

مرفق صورة توضح الشكل المطلوب وللمرة الثانية اطلب معادلة الصفائف بالكود

شكرا لكم علي كل حالة بس ارجو في حال عدم الاستطاعة الرد بعدمها

[عبدالله المجرب]

اخي احمد

ضع مرفق به بيانات بالاضافة الى المعادلة حتى نعرف طريقة عملها ويمكن المحاولة لاستبدالها بكود

[ahmed00]

sample.zip

اولا شكرا علي الرد والاهتمام وده من زمان فيكم وكل عام انت بخير

ثانياً المرفق به المعادلة المطلوب عملها بالكود

شكرا أخوكم احمد

[رجب جاويش]

أخى الفاضل

جرب هذا الكود

Sub ragab()

LR = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To LR

	 Range("D" & i).FormulaArray = _

	    "=INDEX(R2C12:R82C16,MATCH(R[0]C[-3]&""-""&R2C2,R2C16:R82C16&""-""&R2C15:R82C15,0),2)"

	 Next

End Sub

sample.rar

[ahmed00]

شكرا رجب علي الرد

بس لو امكن تنظر الي المرفق انا احتاج الي فورم ليكون موضع كتابة المعادلة في اي خلية ويكون متغير

حتى لا احتاج عند تعديل الاعمدة للدخول وكتابة الكود مرة أخري

ارجو ان اكون استطعت توصيل المعلومة والمطلوب

اخوكم احمد

sample.zip

[ahmed00]

السلام عليكم ورحمة الله

المطلوب في المرفق السابق

[الخالدي]

السلام عليكم ورحمة الله وبركاته

بارك الله فيك اخي العزير رجب

وبعد الاذن

اخي احمد

جرب الكود التالي والذي يقوم بتحويل المعادلات العادية في العمود D والعمود F الى معادلات صفيف

Sub AL_KHALEDI()

On Error Resume Next

For Each cl In Range("D:D,F:F").SpecialCells(xlCellTypeFormulas, 23)

cl.FormulaArray = Application.Substitute(cl.FormulaLocal, ";", ",")

Next

End Sub

في أمان الله

[ahmed00]

اخي العزيزي الخالدي

انا جربت ولا نتيجة ممكن يكون عدم فهم مني

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

شكرا اتعبتكم

[رجب جاويش]

الاخ الفاضل والاستاذ القدير / الخالدى

بارك الله فيك ونفعنا بعلمك دائما

بعد الاستفادة من خبراتكم الرائعة تم عمل المطلوب

Private Sub CommandButton1_Click()

If TextBox1.Value = "" Or TextBox2.Value = "" Or _

TextBox3.Value = "" Or TextBox4.Value = "" Then

MsgBox "اكمل البيانات": Exit Sub

End If

col = TextBox1.Text

F1 = TextBox2.Value

F2 = TextBox3.Value

For i = F1 To F2

Range(col & i).FormulaArray = Application.Substitute(TextBox4.Value, ";", ",")

Range(col & i).FormulaArray = Application.ConvertFormula(Range(col & i).FormulaArray, _

xlA1, xlR1C1, , Cells(F1, col))

Next

End Sub

ادخال معادلة صفيف من خلال يوزرفورم.rar

[ahmed00]

اسلام عليكم ورحمة الله

اخي والحبيب رجب والخالدي

بارك الله فيكم جزاكم الله خير الجزاء ما شاء الله في علمكم

شكرا علي الملف اخي رجب

اخوكم احمد

[رجب جاويش]

لاشكر على واجب أخى الفاضل

وكل عام وأنتم بخير

[عبدالله المجرب]

الاستاذان الفاضلان

الخالدي

رجب جاويش

عمل رائع وحل مميز ومتقن

بارك الله فيكما ونفع بعلمكما

[رجب جاويش]

الأستاذ الفاضل / عبد الله المجرب

شكرا جزيلا لك على هذا التشجيع والكلمات الطيبة

هذا بعض ما عندكم ومما تعلمناه منكم

وكل عام وأنتم بخير

[الخالدي]

السلام عليكم ورحمة الله وبركاته

عمل ممتاز اخي رجب

دروس نتعلم منها

جزاك الله كل خير

الاستاذ عبد الله المجرب

شكرا لمرورك الكريم

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

في حفظ الله