كل الانشطه

اعتذر منك ، حاولت ولكن محاولاتي لم تنجح للأسف . آملاً أن تجد الحل الذي يحل لك مشكلتك يا صديقي

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

طيب عرفت السر فالحل ولا محتاج شرح ؟

شكرا من القلب على المجهود الراقي يا راقي اصبت العمل جدا صحيح بارك الله بيك استاذي

تحية طيبة أخي ، وشكرا كثيرا مرة أخرى الاهتمام والمتابعة لموضوعي وأعتذر عن عدم وضوعي مرفق منذ البداية تفضل أخي الكريم المرفق قبل هذا كنت أشتغل على EXCEL وفي EXCEL هناك خاصية تصغير نسبة حجم الورقة حتى يتلائم الملف على مقاس بحجم A4 كما في الصورة المرفقة لكن عندما انتقلت للأكسيس وقعت هنا المشكلة الخاصة بطباعة التقرير في ورقة A4 base_A.accdb

وعليكم السلام ورحمة الله تعاى وبركاته اقتراح اخر Option Explicit Sub test() Dim lastRow, i As Long, OnRng, tmp, key As Variant Dim name As String, amount As Double, dict As Object Dim WS As Worksheet: Set WS = Sheets("ورقة1") With WS lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row If lastRow < 2 Then Exit Sub Set dict = CreateObject("Scripting.Dictionary"): OnRng = .Range("B2:C" & lastRow).Value For i = 1 To UBound(OnRng, 1) name = Trim(OnRng(i, 1)): amount = OnRng(i, 2): If name <> "" Then dict(name) = dict(name) + amount Next i Application.ScreenUpdating = False .Range("E2:F" & lastRow).ClearContents If dict.Count = 0 Then: Exit Sub ReDim tmp(1 To dict.Count, 1 To 2) i = 1 For Each key In dict.keys tmp(i, 1) = key: tmp(i, 2) = dict(key): i = i + 1 Next key .Range("E2").Resize(dict.Count, 2).Value = tmp Application.ScreenUpdating = True End With End Sub

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Option Explicit Sub Split_names() Dim sp As Variant, j&, lr&, i& Dim WS As Worksheet: Set WS = ActiveSheet With Application .ScreenUpdating = False: .Calculation = xlCalculationManual .ErrorCheckingOptions.BackgroundChecking = True End With lr = WS.Cells(WS.Rows.Count, "B").End(xlUp).Row WS.Range("C14:AF" & lr).ClearContents For j = 14 To lr sp = Split(WS.Cells(j, "B").Value2, "*") For i = LBound(sp) To UBound(sp) WS.Cells(j, i + 3).NumberFormat = "@" WS.Cells(j, i + 3).Value = sp(i) Next i Next j With Application .ScreenUpdating = True: .Calculation = xlCalculationAutomatic .ErrorCheckingOptions.BackgroundChecking = False End With End Sub فصل كلمات وأرقام v2.xlsb

مجهود رائع أ. أبو عيد بارك الله لك ولكن هناك ملحوظتان إن سمحت لى 1- الاسم الأخير أو الرقم الأخير فى كل صف لايظهر 2- الأرقام التى هى أقل من الألف لاتظهر بها العلامة العشرية مثل 312 فالمراد أن تظهر 312.00 كما فى الصف 3 والصف 7

السطر الأخضر الموجود فيه الأرقام 1 2 3 4 ..... مهم جدا , لو تم تغيير الأرقام ستختلف النتائج اضغط على فصل2 ولاحظ النتيجة تفضل 3صل كلمات وأرقام.xlsb

تفضل استاذ @ابو هاله النبلسي المرفق . ووافني بالرد . DDNabulsi-1.rar

لا تبخل علينا في ملف مرفق يحتوي تقرير مماثل لما وصفته ( لا يشترط الجداول ولا اي نماذج )

السلام عليكم أخي مشكور جدا على الرد والاهتمام بموضوعي أخي أنا تقريري مصصم في حجم أكثر من A3 حوالي 50 سم

السلام عليكم أخي مشكور جدا على الرد والاهتمام بموضوعي بعد التجربة مزال نفس المشكل قائم أنا أريد أخي طباعة تقرير مصم في ورقة ذات حجم أكثر من A3 في ورقة A4

اخي عند الإلغاء يكون الوقت متاحا مباشرة .. الم تجرب ؟ يعني ان ان السجل الملغى يكون وجوده كعدمه .. ويبقى في السجلات لاحتمال ضرورة مالية 1- عندما تستعرض الحجوزات (القائمة) في تقرير او نموذج عليك استثناء من يحمل اشارة الإلغاء 2- يمكنك استعراض السجلات الملغية فقط ( من اجل الشؤون المالية ) تفضل تم التحويل اتمنى ان يعمل عندك مواعيد دخول وخروج.rar

اساذنا الغالى الملف الأصلى محرر بالطريقة المذكورة فى ورقة 2 أود تعديل الكود ليتعامل مع وضع الملف الحالى .. لو تكرمت

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

مشكور أ. أبوعيد ..وأقتراحك محل تقدير ولكن الملف به مئات ومئات الأسطر وتم تحريره على هذا الوضع وبه الكثير من المعادلات بالأوراق الأخرى وهو ملف ثقيل وهذه المعادلات التى طرحتها مشكورا موجوده لدى وهناك حل أخر من خلال (تبويب) بيانات وهو النص إلى أعمده , وهو حل سريع وخفيف ولكن مشكلته عدم تطابق التنسيق فأرجو تعديل الماكروا الموجود بالورقه الأولى إن أمكن ذلك

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

شكرا جزيلا لكم سوف اجرب الملف غدا صباحا تحياتي لكم

تم عمل المطلوب بالمعادلات مع وجود اقتراح منى داخل الملف تفضل 1فصل كلمات وأرقام.xlsb

شرحت لك طريقة بدون اكواد تستطيع من خلالها طباعة حجم A3 على ورقة A4 شاهد الفيديو https://www.mediafire.com/file/0mcf3xnnzpgxa59/WhatsApp_Video_2025-03-02_at_4.42.49_PM.mp4/file

مشكور علي المجهود والمشاركة ولكن بس للاسف الشيت ما ظبط بالكود يعني اذا ممكن نخلية يرسل رسالة ايميل فقط

جمع اقساط للاسماء المتشابهة.xlsm

اضغط على زر النتيجة الأحمر ولاحظ النتيجة تفضل جمع اقساط.xlsm