اذهب الي المحتوي
أوفيسنا

دالة احتساب الثمن بشرط 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

large.5860e162a3e7e_.JPG

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

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

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

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

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

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

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

:fff:

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

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

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

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

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

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

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

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

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

 

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

 

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

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

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

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

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

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

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

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

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

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

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

 

تم تعديل بواسطه محمد حسن المحمد
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

 

 

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

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

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

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

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

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.

×
×
  • اضف...

Important Information