احتساب الثمن دالة احتساب الثمن بشرط VBA

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته أحبتي أساتذتي الكرام الذين لطالما تعلمت منهم واستأنست بهم..

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

لقد اطلعت على فيديوهات تتعلق بالتركيز على الـ vba للتخفيف من حجم الملف بالمعادلات ... ولا أدري إن كانت ستحقق هذه الفائدة في الملفات كبيرة الحجم

هذه الدالة التي أضفتها تعتمد على (عملية ضرب الكمية بالسعر بشرط )متعلق بعمود مساعد كما هو مبين بالمرفق أدناه.

Function QtyUnitPrice(NoPlank As String, Qty As String, UnitPrice As String)
'احتساب الثمن باستخدام دالة ضمنvba
If NoPlank <> "" Then
NoPlank = NoPlank
QtyUnitPrice = Qty * UnitPrice
Else
QtyUnitPrice = ""
End If
End Function

لكنني أحببت تعريب مسمياتها محبة بلغتي ورجاء أن تدخل عالم البرمجة ذات يوم...كما يلي:

Function احتساب_الثمن(دون_فراغ As String, الكمية As String, سعر_الوحدة As String)
'احتساب الثمن باستخدام دالة ضمنvba يتم تعريب التسميات
If دون_فراغ <> "" Then
دون_فراغ = دون_فراغ
احتساب_الثمن = الكمية * سعر_الوحدة
Else
احتساب_الثمن = ""
End If
End Function

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

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

فاتورة مبيع محمد.rar

كما أرجو أن تكون هناك جدولة للدوال التي يقوم السادة الأعضاء الكرام بإرفاقها لنستفيد منها أو ليستفيد أبناؤنا الأحبة منها.

[ياسر العربى]

الله ينور حبيبي ابو يوسف 
مبتدئ ايه بقى دا ا نت دخلت عالم الدوال المعرفة اهو
جزيت خيرا  اخي الكريم
تقبل تحياتي

[محمد حسن المحمد]

6 دقائق مضت, ياسر العربى said:

الله ينور حبيبي ابو يوسف 
مبتدئ ايه بقى دا ا نت دخلت عالم الدوال المعرفة اهو
جزيت خيرا  اخي الكريم
تقبل تحياتي

هذا من فضل ربي ثم بفضلكم ومتابعتي لعلومكم التي أرجو الله تعالى أن يجعلها بميزان حسناتكم...حبيبي أبو أسيل.

تقبل أعطر وأزكى تحياتي وأمنياتي لكم

[طلعت محمد حسن]

بارك الله فيك اخي ابو يوسف معلومة مفيدة جزاك الله كل خير.

[محمد حسن المحمد]

1 دقيقه مضت, طلعت محمد حسن said:

بارك الله فيك اخي ابو يوسف معلومة مفيدة جزاك الله كل خير.

أشكر مروركم العطر وكلماتكم الطيبة أخي الكريم طلعت محمد حسن  جزاكم الله خيراً.

[Michel]

جزاكم الله كل خير واتمنى تفعيل رقم الفاتورة بحيث يعمل تلقائياً ومتسلسل حتى يكتمل العمل ولكم منى كل شكر وتقدير

 

تم تعديل ديسمبر 26, 2016 بواسطه Michel

[محمد حسن المحمد]

9 دقائق مضت, Michel said:

جزاكم الله كل خير واتمنى تفعيل رقم الفاتورة بحيث يعمل تلقائياً ومتسلسل حتى يكتمل العمل ولكم منى كل شكر وتقدير

 

أشكركم على مروركم العطر أستاذ Michel أرجو أن ينال إعجابكم.

 

[kby]

جزاك الله كل الخير

[محمد حسن المحمد]

52 دقائق مضت, kby said:

جزاك الله كل الخير

وإياكم أخي الكريم أشكر مروركم العطر

 

[جلال الجمال_ابو أدهم]

محمد حسن المحمد

تحياتى بتغيب بتغيب و تظهر بدر منور
تحياتى و جزاك الله خيرا
يرجى ارفاق الملف مرة اخرى لانى مش عارف افتحه من مشاركة الاولى

[محمد حسن المحمد]

21 ساعات مضت, جلال الجمال_ابو أدهم said:

محمد حسن المحمد

تحياتى بتغيب بتغيب و تظهر بدر منور
تحياتى و جزاك الله خيرا
يرجى ارفاق الملف مرة اخرى لانى مش عارف افتحه من مشاركة الاولى

وعليكم السلام أخي الحبيب جلال الجمال أبو أدهم بارك الله بكم ..شكراً على مروركم العطر وكلامكم الطيب.

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

رابط خارجي للملف ...أرجو أن لا يلحق بأخيه.

حمل من هنا فاتورة مبيع محمد

 

تم تعديل ديسمبر 28, 2016 بواسطه محمد حسن المحمد

[عصام بدرى]

والله بارك الله فيك على هذا المجهود العظيم واكثر ما اعجبنى فى هذا الامر انك تعتز بلغتك العربية وياريت تشترك فى المجموعات اللى على الفيس بوك المشهورة اللى منها (جروب خبير اكسل -دورات الاكسل بادارة الاستاذ محمود جود الله -اوفيسنا-ملتقى محترفى برمجة الاكسل المتقدم ) وتنشر فى هذة المجموعات باللغة العربية لان فية ناس كتير عايزة تتعلم الاكسل بس واقفة امامهم عقبة اللغة الانجليزية وشكرآ جزيلا على هذا المجهود المشكور

[محمد حسن المحمد]

منذ ساعه, عصام بدرى said:

والله بارك الله فيك على هذا المجهود العظيم واكثر ما اعجبنى فى هذا الامر انك تعتز بلغتك العربية وياريت تشترك فى المجموعات اللى على الفيس بوك المشهورة اللى منها (جروب خبير اكسل -دورات الاكسل بادارة الاستاذ محمود جود الله -اوفيسنا-ملتقى محترفى برمجة الاكسل المتقدم ) وتنشر فى هذة المجموعات باللغة العربية لان فية ناس كتير عايزة تتعلم الاكسل بس واقفة امامهم عقبة اللغة الانجليزية وشكرآ جزيلا على هذا المجهود المشكور

جزاكم الله خيرا أخي الكريم عصام على مرورك الطيب ..أرجو الله أن يكون به النفع...

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

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

 

 

[محمد حسن المحمد]

وعليكم السلام أخي الحبيب جلال الجمال أبو أدهم بارك الله بكم ..شكراً على مروركم العطر وكلامكم الطيب.

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

رابط خارجي للملف ...أرجو أن لا يلحق بأخيه.