ahmed00 قام بنشر يوليو 28, 2012 قام بنشر يوليو 28, 2012 السلام عليكم ورحمة الله ارجو هذه المرة مساعدتكم مرفق صورة توضح الشكل المطلوب وللمرة الثانية اطلب معادلة الصفائف بالكود شكرا لكم علي كل حالة بس ارجو في حال عدم الاستطاعة الرد بعدمها
عبدالله المجرب قام بنشر يوليو 28, 2012 قام بنشر يوليو 28, 2012 اخي احمد ضع مرفق به بيانات بالاضافة الى المعادلة حتى نعرف طريقة عملها ويمكن المحاولة لاستبدالها بكود
ahmed00 قام بنشر يوليو 28, 2012 الكاتب قام بنشر يوليو 28, 2012 sample.zip اولا شكرا علي الرد والاهتمام وده من زمان فيكم وكل عام انت بخير ثانياً المرفق به المعادلة المطلوب عملها بالكود شكرا أخوكم احمد
رجب جاويش قام بنشر يوليو 28, 2012 قام بنشر يوليو 28, 2012 أخى الفاضل جرب هذا الكود 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 قام بنشر يوليو 28, 2012 الكاتب قام بنشر يوليو 28, 2012 شكرا رجب علي الرد بس لو امكن تنظر الي المرفق انا احتاج الي فورم ليكون موضع كتابة المعادلة في اي خلية ويكون متغير حتى لا احتاج عند تعديل الاعمدة للدخول وكتابة الكود مرة أخري ارجو ان اكون استطعت توصيل المعلومة والمطلوب اخوكم احمد sample.zip
ahmed00 قام بنشر يوليو 28, 2012 الكاتب قام بنشر يوليو 28, 2012 السلام عليكم ورحمة الله المطلوب في المرفق السابق
الخالدي قام بنشر يوليو 28, 2012 قام بنشر يوليو 28, 2012 السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي العزير رجب وبعد الاذن اخي احمد جرب الكود التالي والذي يقوم بتحويل المعادلات العادية في العمود 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 قام بنشر يوليو 28, 2012 الكاتب قام بنشر يوليو 28, 2012 اخي العزيزي الخالدي انا جربت ولا نتيجة ممكن يكون عدم فهم مني بس بالنسبة لطلبي ان يكون وضع المعادلة بفورم مثل الذي بالمرفق الخاص بي هل صعب ومستحيل شكرا اتعبتكم
رجب جاويش قام بنشر يوليو 28, 2012 قام بنشر يوليو 28, 2012 الاخ الفاضل والاستاذ القدير / الخالدى بارك الله فيك ونفعنا بعلمك دائما بعد الاستفادة من خبراتكم الرائعة تم عمل المطلوب 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 قام بنشر يوليو 29, 2012 الكاتب قام بنشر يوليو 29, 2012 اسلام عليكم ورحمة الله اخي والحبيب رجب والخالدي بارك الله فيكم جزاكم الله خير الجزاء ما شاء الله في علمكم شكرا علي الملف اخي رجب اخوكم احمد
رجب جاويش قام بنشر يوليو 29, 2012 قام بنشر يوليو 29, 2012 لاشكر على واجب أخى الفاضل وكل عام وأنتم بخير
عبدالله المجرب قام بنشر يوليو 29, 2012 قام بنشر يوليو 29, 2012 الاستاذان الفاضلان الخالدي رجب جاويش عمل رائع وحل مميز ومتقن بارك الله فيكما ونفع بعلمكما
رجب جاويش قام بنشر يوليو 29, 2012 قام بنشر يوليو 29, 2012 الأستاذ الفاضل / عبد الله المجرب شكرا جزيلا لك على هذا التشجيع والكلمات الطيبة هذا بعض ما عندكم ومما تعلمناه منكم وكل عام وأنتم بخير
الخالدي قام بنشر يوليو 30, 2012 قام بنشر يوليو 30, 2012 السلام عليكم ورحمة الله وبركاته عمل ممتاز اخي رجب دروس نتعلم منها جزاك الله كل خير الاستاذ عبد الله المجرب شكرا لمرورك الكريم وصدق اخي رجب في قوله هذا بعض ما عندكم ومما تعلمناه منكم في حفظ الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.