محمد ايمن

اخي @ابو جودي تحية طيبة جزاك الله كل خير ولكن التقريب يتم مع الارقام الموجبة فقط اما الارقام السالبة يتم التقريب بشكل خاطئ تم الوصول للحل و الحمدلله و الشكر للجميع 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

مشكور اخي الكريم @دروب مبرمج لكن للأسف مدخل البيانات يرغب بعرض البيانات كاملة بدون فلترة اخي الكريم @Barna الكود ممتاز جزاك الله كل خير

أصدقائي الاكارم السلام عليكم و رحمة الله و بركاته لدي نموذج رئيسي و يحتوي على نموذجين فرعيين المطلوب : عند اختيار سجل من النموذج الفرعي الأول ان يتم اختيار نفس السجل من النموذج الفرعي الثاني مثلا تم اختيار السجل الثاني من النموذج الأول يتم اختيار السجل الثاني من النموذج الثاني و هكذا Database1.rar

@محمد القدسي كلامك صحيح اخي الكريم وهذا تعديل للمثال بحث بعدد 3الكلمات.rar

اخي الكريم @حامل المسك السلام عليكم و رحمة الله و بركاته حسب خبرتي ( والله اعلم ) لا يمكنك البحث ضمن الحقل الواحد بهذه الطريقة أي انه يمكنك البحث عن كلمة واحدة فقط ( او نص متسلسل ) ليرجع لك كافة السجلات التي تحتوي تلك الكلمة مثال : احمد محمد محمود حامد > يمكنك البحث عن ( محمد محمود ) لكن لا يمكن البحث عن ( احمد حامد ) تم حل مشكلة تجاهل الهمزات و التاء بفضل مساعدة اخينا @Moosak بحث بعدد 2الكلمات.rar

تفضل اخي الكريم مبدئيا تم حل الطلب الأول 😅 بحث بعدد الكلمات.rar

تفضل اخي الكريم Book1.xlsm

اخي الكريم لا يوجد خطا في الكود عليك انشاء مجلد بنفس مسار المصنف و سمه DAHY ضع بداخل هذا المجلد الصور بصيغة jpg ضع صورة افتراضية باسم M

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

الأصدقاء الاكارم السلام عليكم و رحمة الله و بركاته هل توجد أداة او برنامج لصناعة تقارير في اكسل مثل التقارير في اكسس ؟

كلمة السر ؟