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

اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




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

Preview

الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :mostah
عدد النتائج (80) نتيجة
14-08-2021 02:59 مساء
icon عام جديد | الكاتب :mostah |المنتدى: المنتدى العام
 
المشاركة الأصلية كتبت بواسطة: hassona229
كل عام وانت الى طاعه الله اقرب وعن المعاصي ابعد
والى الجنه مقربا وعن النار مبعدا
 



جزاك الله خير
21-07-2021 04:45 مساء
icon تهنئة للأستاذ الغالي أ محمد حسن المحمد على لقب المسؤول الاعلامي | الكاتب :mostah |المنتدى: المنتدى العام
 مبارك لك الترقية

من زرع حصد وهذه الترقية هي حصاد تعبك
08-07-2021 02:36 مساء
icon برنامج فحص الاكواد | الكاتب :mostah |المنتدى: اكسيل اسئله واجابات
 جزاك الله كل خير





05-07-2021 04:29 مساء
icon تحويل من معادلة الى كود | الكاتب :mostah |المنتدى: اكسيل اسئله واجابات
 
استاد محمود ... جزاك الله خير
مكانه في صفحة بيانات الاصناف  مع اضافة شرط التاريخ الموجود في نفس الصفحة 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()
 
05-07-2021 10:31 صباحا
icon اظهار اسم المستخدم | الكاتب :mostah |المنتدى: اكسيل اسئله واجابات
 كود ممتاز
جزاك الله خير
01-07-2021 09:14 مساء
icon عمل شاشة دخول باسم مستخدم وكلمة مرور | الكاتب :mostah |المنتدى: اكسيل شروحات ودروس
 الحمدلله الذي خلق الإنسان وعلمه البيان علم بالقلم علم الإنسان مالم يعلم وأشهد أن لاإله إلاالله رفع الذين أوتوا العلم درجات وأشهد أن سيدنا ونبينا محمدا عبده ورسوله معلم البشرية صلى الله عليه وعلى آله وصحبه ومن اهتدى بهديه إلى يوم الدين .
استاذ ياسر المبدع و المتميز
نفع الله بك وبعلمك وزادك علما وعملا وإيمانا وصعودا ورفع قدرك في الدنيا ورزقك من فيض نعيمه في الآخرة نفع الله بك وبعلمك وزادك علما وعملا وإيمانا وصعودا ورفع قدرك في الدنيا ورزقك من فيض نعيمه في الآخرة
استاذ ياسر

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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

جزاك الله خير
اسم المستخدم و كلمة المرور :11
01-07-2021 09:02 مساء
icon اعمل شاشة دخول برنامجك بنفسك | الكاتب :mostah |المنتدى: اكسيل شروحات ودروس
 استاذ ياسر
نفع الله بك وبعلمك وزادك علما وعملا وإيمانا وصعودا ورفع قدرك في الدنيا ورزقك من فيض نعيمه في الآخرة نفع الله بك وبعلمك وزادك علما وعملا وإيمانا وصعودا ورفع قدرك في الدنيا ورزقك من فيض نعيمه في الآخرة
30-06-2021 10:37 مساء
icon مراجعة الاكواد | الكاتب :mostah |المنتدى: اكسيل اسئله واجابات
 في الانتظار
30-06-2021 03:58 مساء
icon كود بدل ارتباط تشعبي | الكاتب :mostah |المنتدى: اكسيل اسئله واجابات
 في حالة حصول اي تغيير في الصفحة
البيانات منقولة من شيت بيانات الأصناف b9:e10000 و J9 الى j10000  ينتقل الى الجرد الشهري  b9:e10000
البيانات منقولة من شيت بيانات الأصناف b9:e10000 و m9 الى m10000 ينتقل الى دوران المخزون  b9:e10000

و شكرا لكم
30-06-2021 03:57 مساء
icon تحويل من معادلة الى كود | الكاتب :mostah |المنتدى: اكسيل اسئله واجابات
 استاد محمود ... جزاك الله خير
مكانه في صفحة بيانات الاصناف  مع اضافة شرط التاريخ الموجود في نفس الصفحة J7 بالنسبة للجرد و M7 بالنسبة للدوران المخزون F9 بداية المخزون و يكون صفر على ان يتم تحويل الناتج الى صفحة الجرد و الدوران المخزون في F9  
للعلم بان سيتم استخدام نفس المعادلة في جميع الصفحات ( بيانات الاصناف و جرد الشهري و دوران المخزون و بيانات الاحصائية ) 
27-06-2021 06:43 صباحا
icon نعم ام لا | الكاتب :mostah |المنتدى: اكسيل اسئله واجابات
 شكرا لك 
أقول لك بكل بساطة أنت إنسان مبدع، ومبدع بامتياز.
26-06-2021 10:04 مساء
icon نعم ام لا | الكاتب :mostah |المنتدى: اكسيل اسئله واجابات
 
استاذي
اطال الله في عمرك
الكود الذي ارغب فيه هو 
المشكلة بانه يعطيك الخيار YES , NO و لكن عند ضغط على زر NO لا يستجيب للاوامر
اسم المستخدم و الرقم السري : 11
الكود موجود في :   14 module

  Sub Close_File()
Application.DisplayAlerts = False
ThisWorkbook.Save
MsgBox "هل تريد حفظ العمل", vbYesNo
    Application.Quit
 MsgBox "هل تريد الخروج من البرنامج", vbYesNo
  MsgBox " شكرا لاستخدامك برنامج مسطاح"
  MsgBox " مع السلامة "
End Sub

 

الصفحة 1 من 7 < 1 2 3 4 7 > الأخيرة »





الساعة الآن 07:18 صباحا

أعلن هنا
أعلن هنا
أعلن هنا