أ / محمد صالح

تفضل أخي الكريم إن شاء الله يكون المطلوب mas_مدد الخدمة المسجلة بالتامينات.xls

ما شاء الله إبداع بارك الله لك صديقي العزيز رمضانكم مبارك

جميل جدا أخي الكريم @mohamed_omar ولكن الأستاذ صاحب السؤال رجاء توضيح القضية حيث أني أعمل بالترتبية والتعليم ولا علم لي بهذا الأمر

أخي الكريم صاحب الاستفسار تم حل مثل هذه المشاكل مرارا والحل بمنتهى البساطة ضع قبل الكود ActiveSheet.unprotect "your password" وذلك لإلغاء حماية الخلايا المحمية مع تغيير your password إلى كلمة مرور الحماية التي تستخدمها حاليا لقفل الخلايا وقبل نهاية الكود ضع ActiveSheet.protect "your password" وذلك لإعادة الحماية مرة أخرى مع ملاحظة كائن الشيت الذي يتم التعامل معه حاليا هو الشيت النشط activesheet

جزاكم الله كل خير وفقنا الله جميعا

بعد مراجعة الموضوع من أوله تبين أن هذه الدالة تفي بالغرض سواء في الأعمدة أو الصفوف لأن المستخدم يقدم لها نطاقا يمكن أن يكون صفا أو عمودا أو أكثر مثال لاستخدامها لجمع الأعمدة نكتب في الخلية i15 =CountShapes(I4:I14) مثال لاستخدامها لجمع الصفوف نكتب في الخلية v5 =CountShapes(A5:U5) بالتوفيق

بعد ملاحظة الكود الخاص بإضافة الدوائر تبين أنها رسمت بشرط ألا تكون الخلية فارغة وأن يكون بها / وألا يزيد عددها عن الأرقام الموجودة في العمود v أو w لذلك فعددها هو نفس الرقم الموجود في العمود v أو w

للحصول على النتيجة الصحيحة يجب العد بنفس شروط الرسم مثلا رسمت الدوائر على الخلايا التي مجموعها أقل من 50 من 100 نستعمل معادلة countif وإذا كان العد بأكثر من شرط نستعمل countifs بالتوفيق

أقترح استخدام معادلة العد بنفس الشرط أو الشروط التي رسمت بها الدوائر وليس عد الدوائر نفسها بالتوفيق

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

معنى الرسالة يوجد برنامج يستخدم الحافظة وربما يكون هذا البرنامج وظيفة إضافية في المتصفح Browser Plugins أو وظيفة إضافية في اكسل add-in أو برنامج تم تثبيته في الويندوز لذا ينبغي حذف الأخير من كل نوع حتى تتوصل للسبب بالتوفيق

تم بفضل الله شكرا لاقتراحكم

أعتقد أن الحل المشار إليه لحجم الاسطوانة الرأسية وليست الأفقية بالنسبة للأفقية نصف القطر في الخلية A2 ارتفاع السائل في الخلية B2 طول الاسطوانة في الخلية C2 وهذه معادلة الحجم =C2*(ACOS((A2-B2)/A2)*A2^2-(A2-B2)*SQRT(2*A2*B2-B2^2)) بالتوفيق

أعتقد حتى الآن لم يتم كسر حماية الإصدار 25 لذا يمكنك استعمال إصدار أقدم

الحمد لله الذي بنعمته تتم الصالحات

يمكنك استعمال هذه المعادلة في التنسيق الشرطي على العمود B =a1<>b1 بالتوفيق

لا يوجد أي مشكلة تم التحويل بدون اي أخطاء D.zip

يفضل إرفاق ملفك وأمثلة من الملفات المراد تحويلها في مجلد xls لمعرفة مكان الخطأ

ربما لا يوجد في ملفة ورقة عمل باسم برمجي sheet2

المنتدى تعليمي في المقام الأول لذا يفضل وضع ما انتهيت إليه وتحديد نقطة أو اثنتين تقف أمامك في تطوير برنامجك وبإذن الله تجد المساعدة من الجميع كل حسب ظروفه فليس مهمة الموقع تصميم برامج جاهزة للعملاء لأن ساعتها ستكون بمقابل مادي بالتوفيق

يمكنك وضع جميع ملفات الاكسل المطلوب تحويلها في مجلد باسم xls بنفس مسار الملف الذي به هذا الكود وإنشاء مجلد باسم csv بنفس مسار الملف الذي به هذا الكود واستدعاء الاجراء Mas_Xls2Csv Sub Mas_Xls2Csv() Dim xObjWB As Workbook Dim xStrEFPath As String Dim xStrEFFile As String Dim xStrSPath As String Dim xStrCSVFName As String Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual xStrEFPath = ThisWorkbook.Path & "\xls\" xStrSPath = ThisWorkbook.Path & "\csv\" xStrEFFile = Dir(xStrEFPath & "*.xls*") Do While xStrEFFile <> "" Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile) xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv" xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSVUTF8 xObjWB.Close savechanges:=False xStrEFFile = Dir Loop Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Done by mr-mas.com" End Sub بالتوفيق

يمكن وضع الرقم الثاني في h4 واستعمال هذه المعادلة =SUMIF($C:$C,G4,$D:$D)+SUMIF($C:$C,H4,$D:$D) أو هذه =SUMPRODUCT(SUMIF(C:C, G4:H4, D:D)) بالتوفيق

جزاكم الله خيرا جميعا ويمكن اختصار المعادلة هكذا =IF(B2="Omani",IF(C2>=3000,3000,C2)*0.07,0) بالتوفيق

بارك الله لك وأود أن أضيف شرطا أن يكون تطبيق واتس آب مثبتا في جهاز الكمبيوتر أو الموبايل بالتوفيق

أعتقد أنه لا يوجد حدث في الاكسل يسمى عند ادخال كلمة مرور خاطئة في vbe كما أن حذف الموديولات يتطلب إعدادات خاصة في الماكرو trust access to the vba project object model ولا ينصح باستعمال هذه الخاصية إلا لمن يعرف التعامل معها وليس للعملاء مثلا بالتوفيق