محمد ايمن

اخي @ابو جودي تحية طيبة جزاك الله كل خير ولكن التقريب يتم مع الارقام الموجبة فقط اما الارقام السالبة يتم التقريب بشكل خاطئ تم الوصول للحل و الحمدلله و الشكر للجميع Public Function MyRound(ByVal MainVal As Double, ByVal RoundVal As Double) As Double Dim Oldrnd As Double, X2 As Double, Newrnd As Double, Var1 As Double On Error GoTo ErrSub Var1 = RoundVal \ 2 X2 = Application.WorksheetFunction.RoundDown(MainVal / RoundVal, 0) Newrnd = X2 * RoundVal Oldrnd = MainVal - Newrnd Select Case Oldrnd Case Is >= 0 Select Case Oldrnd Case Is >= Var1 MyRound = Newrnd + RoundVal Case Is < Var1 MyRound = Newrnd End Select Case Is < 0 Var1 = Var1 * -1 Select Case Oldrnd Case Is <= Var1 MyRound = Newrnd - RoundVal Case Is > Var1 MyRound = Newrnd End Select End Select ErrSub: If Err.number <> 0 Then 'MsgBox Err.number & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight MyRound = 0 Exit Function End If End Function

اخي الكريم المتغير long لا يخزن اكبر من 2 مليار و 150 الف تقريبا

للاسف اخي الكريم نفس المشكلة

الاصدقاء الاكارم السلام عليكم و رحمة الله و بركاته في المرفق كود لتقريب الرقم الى الالف الاقرب برمجيا المشكلة ان الكود يتوقف عند الرقم 2.147.483.647 و يظهر خطا over flow ما السبب علما ان جميع المتغيرات من نوع double المصنف1.rar

جزيل الشكر لكم اخوتي حل آخر باستخدام بور كويري المصنف1.xlsx

الأصدقاء الاكارم السلام عليكم و رحمة الله و بركاته لدي صفحة تحتوي علي بيانات المبيعات حسب التاريخ اريد تجميع البيانات أسبوعيا أي انني اريد مجموع كل أسبوع على حدة ملاحظة : لا تهمني طريقة التجميع سواء باستخدام كود او معادلات او استعلامات او جدول محوري المصنف1.xlsx

تم اعادة ربع الروابط https://drive.google.com/drive/folders/1aUhAmlOINYUNTh5iJ_X2tHMr4rIqf2Qr?usp=drive_link

الاساتذة الاكارم @AbuuAhmed @محمد هشام. لكم كل التقدير و الاحترام يبدو اني لم اعرف ان اشرح المطلوب بشكل جيد لدي صفحة للفواتير و صفحة لطباعة الفواتير في بعض الاحيان تتكرر بعض البنود و المطلوب ان يتم تجميعها مع بعض دون اي تعديل على صفحة الفواتير الكود الاساسي يقوم بنسخ صفحة الفواتير الى مصفوفة ثم ينم نسخ محتويات الفاتورة من مصفوفة الى صفحة طباعة الفواتير الفكرة التي قدمها الاستاذ @AbuuAhmed ممتازة جدا و قمت بتعديلها لتقوم بالعملية ضمن المصفوفة عوضا عن صفحة الفواتير ثم يتم طباعتها لكم جزيل الشكر اخوتي الاكارم المصنف1.xlsb

اخي @AbuuAhmed وهل فعل الخير يسأل 😅 طبعا واصل العمل جزاك الله كل خير علما ان المصفوفة يجب ان تحوي كل الاعمدة

اخي الكريم @AbuuAhmed المطلوب ان تتم هذه العملية برمجيا ضمن مصفوفة لا ان يتم تعديل البيانات في صفحة الفواتير لان البيانات في صفحة الفواتير ثابتة لا يجب ان يتم اي تغيير عليها ربما لو تمت هذه العملية ضمن صفحة طباعة الفواتير لا مشكلة على كل حال مشكور جدا ساحاول الاستفادة من المرفق ف الفكرة فيه مهمة جدا و ربما استطيع الوصول للمطلوب

الاصدقاء الاكارم السلام عليكم و رحمة الله و بركاته لدي مصفوفة تحتوي على بنود فاتورة ولكن في بعض الاحيان تتكرر بعص البنود اريد كود لدمج العناصر المتشابهة مع بعضها مثلا الصنف (لحم) مكرر اريد ان يتم تجميع الصنف مع بعضه يجب ان يتم التجميع بشرط نفس رقم الفاتورة و نفس الصنف المصنف1.xlsb

اخي الكريم @king5star ساقوم باعادة رفعها قريبا اخي @Marwan Naji اكسس 64 بت لا مشكلة و لكن المشكلة مع sql sever 2022 فالاكواد لم تتوافق معه

تمام اخي @ناقل لكن كود الخطأ يختلف في برنامجي كود الخطأ هو 3201

الأصدقاء الاكارم السلام عليكم و رحمة الله و بركاته هل يمكن استبدال هذه الرسالة برسالة أخرى ؟

الأصدقاء الاكارم السلام عليكم و رحمة الله و بركاته كيف تم انشاء شريط القوائم المختصرة في المرفق بدون ماكرو او كود vba ؟ KH.rar