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