أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تحويل من معادلة الى كود

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



06-06-2021 09:59 صباحا
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 

السلام عليكم ورحمة الله وبركاته
اخواني هل يمكن تحويل المعادلة في صفحة بيانات الاصناف الى كود مع اضافة شرط التاريخ الموجود في نفس الصفحة J7 بالنسبة للجرد و M7 بالنسبة للدوران المخزون F9 بداية المخزون و يكون صفر على ان يتم تحويل الناتج الى صفحة الجرد و الدوران المخزون في F9
و جزاكم الله خير

Sub Formula()
Dim lr
Dim x
lr = Range("c" & Rows.Count).End(xlUp).Row
Range("h9:h" & lr).Formula = "=SUMPRODUCT(--('تقريرالوارد'!$E:$E=$C9),--('تقريرالوارد'!$B:$B<=$F$6),--('تقريرالوارد'!$B:$B>=$B$6),'تقريرالوارد'!$H:$H)"
Range("h9:h" & lr).Value = Range("h9:h" & lr).Value
Dim lr
Dim a
lr = Range("c" & Rows.Count).End(xlUp).Row
Range("j9:j" & lr).Formula = "=SUMPRODUCT(--('تقريرالصرف'!$E:$E=$C9),--('تقريرالصرف'!$B:$B<=$F$6),--('تقريرالصرف'!$B:$B>=$B$6),'تقريرالصرف'!$H:$H)"
Range("j9:j" & lr).Value = Range("j9:j" & lr).Value
Dim lr
Dim a
lr = Range("c" & Rows.Count).End(xlUp).Row
Range("f9:f" & lr).Formula = "=SUMPRODUCT(--('بيانات الاصناف'!$E:$E=$C9),--('بيانات الاصناف'!$B:$B<=$F$6),--('بيانات الاصناف'!$B:$B>=$B$6),'بيانات الاصناف'!$H:$H)"
Range("f9:f" & lr).Value = Range("f9:f" & lr).Value
End Sub


كلمة المرور و اسم المستخدم :11
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

زكاة العلم تعليمه
 

10-06-2021 10:38 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 275
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif تحويل من معادلة الى كود
انا فتحت الملف ومش عارف اروح منين الى فين وتقصد ايه واى معادلة الى عايز تثبتها وهى موجوده فين وايه الكود الى في التعليق التانى ومكانه فين وعايز منه ايه ولو عندك الكود ليه في المعادلة ضع .value= .value
 
توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

30-06-2021 03:57 مساء
مشاهدة مشاركة منفردة [2]
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 
look/images/icons/i1.gif تحويل من معادلة الى كود
استاد محمود ... جزاك الله خير
مكانه في صفحة بيانات الاصناف  مع اضافة شرط التاريخ الموجود في نفس الصفحة J7 بالنسبة للجرد و M7 بالنسبة للدوران المخزون F9 بداية المخزون و يكون صفر على ان يتم تحويل الناتج الى صفحة الجرد و الدوران المخزون في F9  
للعلم بان سيتم استخدام نفس المعادلة في جميع الصفحات ( بيانات الاصناف و جرد الشهري و دوران المخزون و بيانات الاحصائية ) 
توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

زكاة العلم تعليمه
 

05-07-2021 04:29 مساء
مشاهدة مشاركة منفردة [3]
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 
look/images/icons/i1.gif تحويل من معادلة الى كود
استاد محمود ... جزاك الله خير
مكانه في صفحة بيانات الاصناف  مع اضافة شرط التاريخ الموجود في نفس الصفحة J7 بالنسبة للجرد و M7 بالنسبة للدوران المخزون F9 بداية المخزون و يكون صفر على ان يتم تحويل الناتج الى صفحة الجرد و الدوران المخزون في F9  
للعلم بان سيتم استخدام نفس المعادلة في جميع الصفحات ( بيانات الاصناف و جرد الشهري و دوران المخزون و بيانات الاحصائية ) 
 
الكود المرفق يحتاج فقط اضافة شرط التاريخ الموجود في  الصفحة  بيانات الأصناف J7 بالنسبة للجرد و M7 بالنسبة للدوران المخزون 
Sub Formula()
Dim lr
Dim x
lr = Range("c" & Rows.Count).End(xlUp).Row
Range("h9:h" & lr).Formula = "=SUMPRODUCT(--('تقريرالوارد'!$E:$E=$C9),--('تقريرالوارد'!$B:$B<=$F$6),--('تقريرالوارد'!$B:$B>=$B$6),'تقريرالوارد'!$H:$H)"
Range("h9:h" & lr).Value = Range("h9:h" & lr).Value
Dim lr
Dim a
lr = Range("c" & Rows.Count).End(xlUp).Row
Range("j9:j" & lr).Formula = "=SUMPRODUCT(--('تقريرالصرف'!$E:$E=$C9),--('تقريرالصرف'!$B:$B<=$F$6),--('تقريرالصرف'!$B:$B>=$B$6),'تقريرالصرف'!$H:$H)"
Range("j9:j" & lr).Value = Range("j9:j" & lr).Value
Dim lr
Dim a
lr = Range("c" & Rows.Count).End(xlUp).Row
Range("f9:f" & lr).Formula = "=SUMPRODUCT(--('بيانات الاصناف'!$E:$E=$C9),--('بيانات الاصناف'!$B:$B<=$F$6),--('بيانات الأصناف'!$B:$B>=$B$6),'بيانات الاصناف'!$H:$H)"
Range("f9:f" & lr).Value = Range("f9:f" & lr).Value
End Sub
Sub Formula()
 
توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

زكاة العلم تعليمه
 




الكلمات الدلالية
تحويل ، معادلة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:44 مساء