كود لعملية الضرب

[ياسر فاروق]

الساده الافاضل

تم الاستعانه بالكود الموضح من الاستاذه الافاضل احمد حمور-ابوعبدالله  ، طارق محمود  عن سنة July 31, 2010

 

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

مع احترامى أريد شرح لكل خطوة للاستفاده ومحاولة التغيير لما يتناسب مع الجداول

Sub Auto_open()
For i = 1 To 10
    x = Worksheets("sheet1").Cells(i, 5).Value
    y = Worksheets("sheet1").Cells(i, 7).Value
    Worksheets("sheet1").Cells(i, 8).Value = x * y
Next i
End Sub

 

 

 

[ياسر خليل أبو البراء]

السلام عليكم أخي الكريم ياسر

تفضل الكود مع الشرح لعله يكون المطلوب إن شاء الله

برجاء وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط

Sub Auto_open()
'فهذا يعني أن الماكرو [Auto_Open] إذا كان اسم الماكرو بهذا الاسم
'[Workbook_Open] سينفذ بمجرد فتح المصنف كما هو الحال في حدث فتح المصنف
'---------------------------------------------------------------------
    'تعريف المتغيرات المستخدمة في الكود
    Dim ws      As Worksheet
    Dim i       As Integer
    Dim x       As Double
    Dim y       As Double

    'حلقة تكرارية لكل أوراق العمل الموجودة بالمصنف الحالي
    For Each ws In ThisWorkbook.Worksheets
        
        'بدء التعامل مع ورقة العمل المعنية داخل الحلقة التكرارية
        With ws
        
            'حلقة تكرارية من الصف رقم 1 إلى الصف رقم 10
            For i = 1 To 10
            
                'تعيين قيمة للمتغير ليساوي القيمة في العمود الخامس في الصف المحدد
                x = ws.Cells(i, 5).Value
                
                'تعيين قيمة للمتغير ليساوي القيمة في العمود السابع في الصف المحدد
                y = ws.Cells(i, 7).Value
                
                'في ورقة العمل المعنية داخل الحلقة التكرارية في العمود الثامن
                'وفي الصف المحدد داخل الحلقة التكرارية للصفوف يساوي حاصل ضرب المتغيرين
                ws.Cells(i, 8).Value = x * y
                
            'الانتقال للصف التالي
            Next i
            
        'انتهاء التعامل مع ورقة العمل المعنية داخل الحلقة التكرارية
        End With
        
    'الانتقال لورقة العمل التالية
    Next ws
End Sub

 

[ياسر فاروق]

في ‏٠٦‏/‏٠٧‏/‏٢٠١٧ at 11:27, ياسر خليل أبو البراء said:

السلام عليكم أخي الكريم ياسر

تفضل الكود مع الشرح لعله يكون المطلوب إن شاء الله

برجاء وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط

Sub Auto_open()
'فهذا يعني أن الماكرو [Auto_Open] إذا كان اسم الماكرو بهذا الاسم
'[Workbook_Open] سينفذ بمجرد فتح المصنف كما هو الحال في حدث فتح المصنف
'---------------------------------------------------------------------
    'تعريف المتغيرات المستخدمة في الكود
    Dim ws      As Worksheet
    Dim i       As Integer
    Dim x       As Double
    Dim y       As Double

    'حلقة تكرارية لكل أوراق العمل الموجودة بالمصنف الحالي
    For Each ws In ThisWorkbook.Worksheets
        
        'بدء التعامل مع ورقة العمل المعنية داخل الحلقة التكرارية
        With ws
        
            'حلقة تكرارية من الصف رقم 1 إلى الصف رقم 10
            For i = 1 To 10
            
                'تعيين قيمة للمتغير ليساوي القيمة في العمود الخامس في الصف المحدد
                x = ws.Cells(i, 5).Value
                
                'تعيين قيمة للمتغير ليساوي القيمة في العمود السابع في الصف المحدد
                y = ws.Cells(i, 7).Value
                
                'في ورقة العمل المعنية داخل الحلقة التكرارية في العمود الثامن
                'وفي الصف المحدد داخل الحلقة التكرارية للصفوف يساوي حاصل ضرب المتغيرين
                ws.Cells(i, 8).Value = x * y
                
            'الانتقال للصف التالي
            Next i
            
        'انتهاء التعامل مع ورقة العمل المعنية داخل الحلقة التكرارية
        End With
        
    'الانتقال لورقة العمل التالية
    Next ws
End Sub

 

الاستاذ العزيز: ياسر خليل أبو البراء

تسلم على ما تفضلت به من اهتمام ومجهود للشرح

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم ياسر

والحمد لله أن تم المطلوب على خير

[ياسر فاروق]

الاستاذ العزيز: ياسر خليل أبو البراء

تسلم على ما تفضلت به من اهتمام ومجهود للشرح

وأطمع فى شرح كود تجميع كل صفحة وترحيلها الى اخر صفحة وترحيل المجوع الكلى الى خلية اخرى فى شيت اخر

يوجد ملف مرفق وتحت امرك فى اى ايضاح

 

BOQ test.rar

[ياسر خليل أبو البراء]

أخي الكريم ياسر 

الأفضل طرح موضوع مستقل لكل طلب وإن شاء الله في أقرب وقت أحاول شرحه لك ..

[ياسر فاروق]

2 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم ياسر 

الأفضل طرح موضوع مستقل لكل طلب وإن شاء الله في أقرب وقت أحاول شرحه لك ..

الاستاذ العزيز: ياسر خليل أبو البراء

 

شكرا على مجهودك