البحث في الموقع
Showing results for tags 'احتساب الثمن'.
تم العثور علي 2 نتائج
-
السلام عليكم ورحمة الله وبركاته أحبتي أساتذتي الكرام الذين لطالما تعلمت منهم واستأنست بهم.. أحببت مشاركة إخوتي الكرام بمنتدانا الكريم بعمل بسيط أرجو الله تعالى أن ينفع به وأن يكون خالصاً في سبيله .. لقد اطلعت على فيديوهات تتعلق بالتركيز على الـ 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 كما أرجو أن تكون هناك جدولة للدوال التي يقوم السادة الأعضاء الكرام بإرفاقها لنستفيد منها أو ليستفيد أبناؤنا الأحبة منها.
-
من البوم مشاركات إكسل