اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود


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

برجاء المساعدة

مرفق ملف به 2 شيت وممكن أن يكونوا أكثر حوالى 20 شيت

أريد كود ضرب عمود الكمية × عمود السعر ويظهر الناتج فى عمود الاجمالى

ويتم ذلك فى جميع الشيتات مره واحده

وشكرا

 

BOQ.rar

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

السلام عليكم
أخي الكريم
جرب هذا الكود
 

Sub BOQ()
    
    For s = 1 To Sheets.Count
        Sheets(s).Select
        x = Cells.SpecialCells(xlCellTypeLastCell).Row
        For r = 8 To x
            If IsNumeric(Cells(r, "G")) = False Then Cells(r, "D").FormulaR1C1 = "=RC[2]*RC[4]"
        Next r
    Next s
End Sub

 

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

السلام عليكم
أخي الكريم
جرب هذا الكود
 

Sub BOQ()
    
    For s = 1 To Sheets.Count
        Sheets(s).Select
        x = Cells.SpecialCells(xlCellTypeLastCell).Row
        For r = 8 To x
            If IsNumeric(Cells(r, "G")) = False Then Cells(r, "D").FormulaR1C1 = "=RC[2]*RC[4]"
        Next r
    Next s
End Sub

مرفق الملف وبه الكود

BOQ.rar

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

أخى الكريم  طارق محمود

أشكرك على مجهودك واستجابتك

ولست أنكر انا جديد على هذا (أوامر الكود) ولكنى قرأت كثير وبصراحة أكثر من رائع هذه الأكواد ولأهل العلم

وأطمع فى مساعدتك أكثر:

- حاولت أعمل مفتاح أختصار ولم أنجح.

- المعادلة تتم على كامل العمود ولا ترتبط الإ بوجود رقم فى عمود الكمية.

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

المساعده فى الاتى:

- وضع مجموع الصفحة فى نهاية كل صفحة بمعنى - فى السطر المكتوب به To Collection أو المجموع المرحل -

- ترحيل مجموع كل صفحة أمام رقمها فى الصفحة التجميعية أخر الشيت (إجمالى ملخص الأعمال)

- ترحيل مجموع الصفحة إلى الصفحة التجميعية لكل الـ 16 شيت

يوجد ملحوظة هامة: الملف متغير فى عدد الشيتات على حسب نوع المبنى وبالتالى يتغير عدد الاقسام التجميعية للشيتات (أقل)

BOQ.rarسوف أرفع لك الملف به الاجمالى لكل الشيتات

ولك جزيل الشكر والتقدير

 

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

أخى الكريم  طارق محمود

بعد إذنك ممكن أن نعتمد على قاعدة  IF فى العمليات السابقة 

وهل من الافضل وضع كود

 

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

في ‏١٦‏/‏٠١‏/‏٢٠١٧ at 07:08, YasserOriba said:

أخى الكريم  طارق محمود

بعد إذنك ممكن أن نعتمد على قاعدة  IF فى العمليات السابقة 

وهل من الافضل وضع كود

 

أخى الكريم  طارق محمود

إذا كان وقتكم لا يسمح فى عمل الكود بالشكل المطلوب

ممكن ان نعتمد على قاعدة IF 

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

  • 2 weeks later...
في ‏١٢‏/‏٠١‏/‏٢٠١٧ at 14:17, YasserOriba said:

الأساتذة الافاضل

برجاء المساعدة فى المرفق

في ‏١٢‏/‏٠١‏/‏٢٠١٧ at 14:17, YasserOriba said:

 

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

المساعده فى الاتى:

- وضع مجموع الصفحة فى نهاية كل صفحة بمعنى - فى السطر المكتوب به To Collection أو المجموع المرحل -

- ترحيل مجموع كل صفحة أمام رقمها فى الصفحة التجميعية أخر الشيت (إجمالى ملخص الأعمال)

- ترحيل مجموع الصفحة إلى الصفحة التجميعية لكل الـ 16 شيت

يوجد ملحوظة هامة: الملف متغير فى عدد الشيتات على حسب نوع المبنى وبالتالى يتغير عدد الاقسام التجميعية للشيتات (أقل)

BOQ.rar

 

 

 

BOQ.rar

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

  • 1 month later...
في ‏١٢‏/‏٠١‏/‏٢٠١٧ at 14:17, YasserOriba said:

الاساتذة الأفاضل

مرفق ملف به عدد من الشيت مطلوب مساعده فى الاتى:

- ضرب عمود الكمية (H) × عمود السعر (F) ويظهر الناتج فى عمود الاجمالى (D) (ملحوظة: هذه الأعمدة متغيرة على حسب الجدول المطلوب وتقسيمه)

- تفقيط السعر فى العمود (E) وتفقيط الاجمالى فى العمود (C) (ملحوظة: هذه الأعمدة متغيرة على حسب الجدول Site.rarالمطلوب وتقسيمه)

- وضع مجموع الصفحة فى نهاية كل صفحة بمعنى - فى السطر المكتوب به To Collection أو المجموع المرحل المظلل باللون الأصفر (كمثال فى شيت Roads)

- ترحيل مجموع كل صفحة أمام رقمها فى الصفحات التجميعية أخر صفحات البنود (إجمالى ملخص الأعمال) المظلل باللون الأحمر(كمثال فى شيت Roads)

- ترحيل مجموع الصفحة (To Bill Summary) إلى الصفحة التجميعية (Summary) لكل الـشيت على حسب ترتيب الاقسام

يوجد ملحوظة هامة: الملف متغير فى عدد الشيتات ممكن أكثر أو أقل ومسمياته وأيضا الشيت متغير فى عدد صفحاته

مرفق الملف

 

 

 

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

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