كيف اقسم خلايا عمود على عمود آخر ووضعها في عمود اخر

ابولمى · أكتوبر 9, 2015

اخواني انا مازلت اتعلم vba ولم اصل بعد لدرجة التمكن لكنني تطورت بفضل الله ثم فضل هذا المنتدى المعطاء

فرضا لدي بيانات رقمية في عمود Hواريد ان اقسم كل خلية في العمود Hعلى الخلية الموازيه لها في العمودE

ووضعها في عمود I ....حاولت استخدام for each لكنني لم استطيع واحتاج مساعدتكم اخواني الاعزاء

**عبد العزيز البسكري** · أكتوبر 9, 2015

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

أخي الكريم مستخدم جديد9 .. لو تكرّمت فضلاً لا أمرًا من الأحسن يتم وضع ملف للتّوضيح أكثر ..

فائق إحتراماتي

ابولمى · أكتوبر 9, 2015

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

أخي الكريم مستخدم جديد9 .. لو تكرّمت فضلاً لا أمرًا من الأحسن يتم وضع ملف للتّوضيح أكثر ..

فائق إحتراماتي

اشكرك جزيل الشكر اخي عبدالعزيز على سرعة الرد..طبعا الملف ليس ذا اهميه بالنسبه لي لكنني اريد ان اعرف كيف اقسم كل خلية في عمود على كل خليه توازيها في العمود الاخر ووضعها في العمود الفارغ المجاور ..تم ارفاق ملف

تعلم.zip

**عبد العزيز البسكري** · أكتوبر 9, 2015

العفو أخي الفاضل مستخدم جديد 9 .. فقط ألفت انتباهك إلى الملف الذي قد أرسلتَه أنّه عند فك الضغط شاهد لو سمحت النتيجة :

ابولمى · أكتوبر 9, 2015

العفو أخي الفاضل مستخدم جديد 9 .. فقط ألفت انتباهك إلى الملف الذي قد أرسلتَه أنّه عند فك الضغط شاهد لو سمحت النتيجة :

اخي عبدالعزيز قبل فتح الملف اضغط على كليك يمين ثم اذهب الى خصائص ثم غير صيغة الملف zip الى xlsm ثم سوف يعمل معك بإذن الله

ياسر خليل أبو البراء · أكتوبر 10, 2015

أخي الكريم جرب الكود التالي

يقوم بقسمة الخلية في العمود H على الخلية في العمود E .. والنتيجة في الخلية في العمود I كما طلبت في المشاركة الأولى

Sub MyTest()
    Dim Cell As Range
    For Each Cell In Range("I1:I" & Cells(Rows.Count, "E").End(xlUp).Row)
        Cell.Value = Cell.Offset(, -1) / Cell.Offset(, -4)
    Next
End Sub

تعلم.rar