وكيف يتم هذا , فطالما قمت بتقريب الأرقام الى ارقام صحيحة فلابد ان تتجاوز هذه الأعداد الإجمالى المطلوب
والا فلا يتم المطلوب الا بهذه المعادلة ولكن سيكون هناك كسور كما اوضحت لك سابقا
=CEILING($B$1*A2,0.5)
تقريب.xlsx
وعليكم السلام-وما الضرر من هذا فلابد دائما من نشر العلم
ولو كتم احد الأساتذة العلم عنك ما وصل اليك
ولكن تفضل هذا الرابط من داخل المنتدى ,فكان عليك لزاما استخدام خاصية البحث بالمنتدى
هذا كود لإظهار نافذة تفعيل الماكرو مع تشغيل الملف
وعليكم السلام-اهلا بك بالمنتدى
هذه بالفعل مشكلة ضبط اللغة العربية لديك
ولكن عليك برفع الملف لكى نرى هل هناك مشكلة اخرى ام لا ؟
ما عليك فعله كما بهذا الرابط بالضبط فتم تناول هذا الموضوع كثيرا
تعديل وضبط كود التفقيط
لابد من رفع الملف ايضا الذى يتم التصدير منه الى الإكسيل ,فكيف يمكن المساعدة هكذا ؟!!!!
وعليك بشرح كيف يتم النقل و التصدير الى الإكسيل
الموضوع ليس بالسهل او الهين
فطلباتك صعبة ... ولا أعلم لماذا انت غضبان ؟!!!
فلابد ان تلتمس دائما وابدا العذر للأساتذة فانت لا تعرف مدى انشغالهم وردهم هنا بالمنتدى لا اجر له فلهم اعمالهم الخاصة , انما مساعدة الأعضاء لوجه الله ليس هناك اجر فيه
وعليكم السلام-اهلا بك فى المنتدى
كان عليك لزاما استخدام خاصية البحث فى المنتدى فقد تكرر طلبك فى العديد من المشاركات ومنها :
فورم التنقل بين الشيتات مع البحث والاضافة والتعديل والحذف
يوزرفورم بحث و تعديل وحذف مرن يصلح لأي قاعدة بيانات
وعليكم السلام- طالما ان الملف ليس به اى فورم فعليك عمل ذلك بنفسك واذا تعسرت فى جزئية فعليك برفعها هنا -فالمنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة
فمن فضلك عليك بإستخدام خاصية البحث بالمنتدى فبه مئات المشاركات التى تخص طلبك
وعليكم السلام-مشاركة بالتأكيد ناقصة البيانات فكيف يتم تجربة المعادلة بملف فارغ وخالى تماما من البيانات
لابد من وضع على الأقل 5 صفوف فى كل شهر لإختبار عمل المعادلة فلا يمكن العمل على ملف خالى من البيانات !!!!!
فبما انك لم تقم برفع بيانات بالملف فيمكنك تجربة هذا الكود فلا يمكن عمل المطلوب أفضل الا بكود وليس معادلة فهذا بدوره يثقل من عمل الملف عند استخدام المعادلة
Sub Combine()
Dim I As Long
Dim xRg As Range
On Error Resume Next
Worksheets.Add Sheets(1)
ActiveSheet.Name = "Combined"
For I = 2 To Sheets.Count
Set xRg = Sheets(1).UsedRange
If I > 2 Then
Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
End If
Sheets(I).Activate
ActiveSheet.UsedRange.Copy xRg
Next
End Sub
وهذا فيديو لعمل وشرح معادلة لما تريد
تجميع بيانات مجموعة صفحات بصفحة واحدة بشكل مباشر
لا يوجد شرح مطلقا للمطلوب داخل الملف ,فبالتالى يكون الموضوع اكث غموضا ولا تنتظر المساعدة من احد بهذه الطريقة
فلابد من شرح مفصل وكامل عن المطلوب مع وضع مثال بالملف مع النتائج المرجوة حتى تتمكن الأساتذة من مساعدتك
فلا اعرف مثلا على اى ورقة من الملف تريد العمل عليها !!!!!!!!!
السلام عليكم أساتذتى وخبراء واعضاء هذا المنتدى الرائع
الرجاء التكرم والتعطف على مساعدتى فى حل هذه المشكلة وهى ظهور هذه الرسالة فى كل ملفات الإكسيل التى تحتوى على الماكرو والأكواد عند تفعيل الكود
شكرا لكم جميعا وجزاكم الله خير الثواب
وعليكم السلام المطلوب غير واضح نهائى
على اى اساس تم وضع الرقم 9 فى أول تاريخ ؟!!!!!!
يجب عليك وضع النتائج المتوقعة والمطلوبة فى الملف حتى يتضح الأمر للأساتذة لمساعدتك فبدون هذا لا تتم المساعدة فالموضوع مازال غامض ففى اى عمود يتم عمل التسلسل والترقيم ؟!!!!