تم إرفاق دالة التفقيط باللغة العربية تسمى NoToTxt وأخرى للتفقيط باللغة الإنجليزية تسمى =NumberToTextEN
كل ما عليك كتابة اسم العملة وكسر العملة
تفضل المطلوب
Cash Payment Request.xlsm
بعد البحث عن الخلل وبعد تعب ومشقة للوصول للخطأ في الكود تبين أن الكود يعمل بشكل سليم والخطأ لديك في العمود BB وتم تصويبها تفضل المطلوب
الدور الثانى 2019 علمى.xlsm
تسلم أستاذ وجيه ولكني أرى أنه يجب أن تكون الخلية B3 تكون بها معادلة الأستاذ الفاضل سليم ويكون واستخدام العمودK والعمود L أفضل لأنه الخلية B3 سوف يتم الاستعلام عن ورقة العمل التي سوف يتم أخذ منها البيانات
ولإثراء الموضوع
فاتوره.xlsm
طلبك غير مفهوم يجب إرفاق مثال مكتوب بالنتيجة المتوقعة حتى يتم العمل عليها من أحد الأعضاء أو المشرفين بالموقع
ثانيًا ثم تعديل في ورقة 2 حتى لا تكون المعادلات تعطى بأي نوع من الأخطاء
وإليك الملف بعد التعديل
ويجب أن تقوم بالشرج الوافي بالمطلوب عمله
New Microsoft Excel Worksheet(1).xlsx
إليك كود فتح ملف إكسيل
Sub open_file()
Dim file_name As Variant
Dim open_wk As Workbook
On Error GoTo 1
file_name = Application.GetOpenFilename(Title:="اختار ملف الاكسل", FileFilter:="Excel Files *.xlsm (*.xlsm),")
If file_name = False Then
1 MsgBox "من فضلك اختار ملف الاكسل xlsm", vbCritical
Exit Sub
Else
Set open_wk = Workbooks.Open(file_name)
End If
End Sub
ممكن تستخدم هذه الطريقة التي أرسلها في الملف بحيث بعد الكتابة والطباعة يتم ترحيل البيانات في مكان الحفظ
وتكتب في أماكن ثابتة وعند الطباعة تختار طباعة التحديد
وبعد الطباعة اختر أمر ترحيل فيتم ترحيل البيانات في مكان للحفظ
ويتم تفريغ المكان للكتابة فيه من جديد
والسعر للتغيير في ورقة 2
k1.xls
بعد إذن أستاذنا الفاضل إبراهيم الحداد
تم عمل التحقق من الصحة بالمعاداة مثلاً لمادة الرياضة العامة في خانة آخر العام
=AND(OR(BA8="غ";BA8="صفر";AND(BA8>=0;BA8<=$BA$6)))
حتى إذا تم تغيير درجة المادة يتماشى معها
وتم عمل المعادلة التي ذكرها في خانة المجموع
وإليكم الملف بعد التعديل
كنترول اولى - ت النهائى 201999.rar
فقط استبدل الجزء هذا بمكان الحفظ
C:\Documents and Settings\ahmed\Desktop\New Folder (2)
ولمعرفة المكان الذي تريد الحفظ فيه
فمثلاً عند فتح مجلد التنزيلات نلاحظ في الصورة
ممكن عمل ذلك بدون أكواد من قائمة ملف اختر خيارات ثم اختر خيارات متقدمة ثم إلغاء علامة صح من أمام إظهار علامات التبويب الأزرق ثم موافق
شاهد الصورة
وإليك الملف بعد التعديل المطلوب
2202.xlsm