اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

تعلم.zip

رابط هذا التعليق
شارك

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

 

 

رابط هذا التعليق
شارك

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

 

 

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

رابط هذا التعليق
شارك

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

يقوم بقسمة الخلية في العمود 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

  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

إجابة موفقـ:signthankspin:ـة...جزاكم الله خيراً...لم يعد لدي رصيد إعجاب للأسـ:imsorry:ـف

أرجو أن يكون رصيدكم الأكبر ..بميزان حسناتكم...أخي الحبيب أبو البراء

 

جزاك الله خيراً.gif

  • Like 1
رابط هذا التعليق
شارك

وعليكم السلام أبي الغالي أبو يوسف

مشكور على تشجيعك الدائم لكل أعضاء المنتدى ..

وذكرتني بالأخ الحبيب الغائب عن العين الحاضر في القلب علاء رسلان ..

أرجو من لديه القدرة على التواصل معه أن يطمئننا عليه فقد طال غيابه ولعل غيابه عنا خير إن شاء الله

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information