كل الانشطه

وعليكم السلام ورحمة الله وبركاته .. وجهة نظرك جميلة ، ولكننا هنا سنحذف المكررات ؛ فما حاجتك بالمقارنة اذا كان الأصل موجود في نفس الجدول !!!!!

السلام عليكم تعديل كود الاستراد والتصدير الى الاكسيل اريد تعديل كود استراد الاكسيل الى الاستعلام وكود تصدير من الاستعلام الى الاكسيل الكود.rar

السلام عليكم ورحمة الله وبركاته أحتاج رقم المهندس لو تكرمت

الأستاذ @salahawwad90 ما فهمت مشاركتك . هل المشاركة كإعلان عن منتج أم اقتراح؟ المنتدي للمساعدة و الحلول بقدر الامكان و ذلك واضح من خلال مشاركاتك السابقة و مشاركات باقي الأعضاء. برجاء التوضيح

تفضل الملف و جرب كتابة اسماء بها عبد في العمود الثالث و طبق عليها ما تريد حذف المسافات(1).xlsm

Up

السلام عليكم بارك الله بجهوك استاذي الكريم الملف يعمل بشكل جيد وسريعة طريقة الحذف. لكن هناك اقتراح لماذا لا تكون السجلات المتشابهة ان لايتم حذفها وانما ترحل وتحفظ في جدول مستقل بعد تسميت الجدول من نموذج الحذف لعله يستفاد منها للرجوع اليها للمقارنة او البحث وغيرها. مع فائق الشكر والتقدير

السلام عليكم بارك الله بجهودك استاذي الفاضل . ومنكم نستفيد

وعليكم السلام ورحمة الله وبركاته ,, اخي بلال ، في الواقع طلبك غير مفهوم أبداً ، و بناءً على رسالتك الخاصة ، حاولت فهم المطلوب ولم انجح للأسف . أعانك الله على الشرح المفصل ، فحالي حال الكثيرين ممن مر بموضوعك ولكنه لم يستدل على المطلوب .

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

الاستاذ الفاضل حسونة حسين .. اشكرك من اعماق قلبى على الاهتمام وكود جميل وبسيط الاستاذ الفاضل حجازى .. ما شاء الله عليك تسلم ايدك ما اريد وازيد بارك الله لك وفيك .. ممكن تطبيق الكودين على الملف لانى عند نسخهم التعليقات العربى تتحول معى ؟؟؟؟؟ علامات استفهام وجزاك الله كل خير

جزاك الله اخوي بس المشكلة بالتقرير ممكن يتم التعديل عليها

شكرا جزيلا للتوضيح

: 📊 برنامج محاسبي ذكي… مصمم بالكامل على الإكسيل! 📊 💡 إذا كنت تبحث عن برنامج سهل، عملي، وبدون تعقيدات لإدارة حساباتك، فبرنامجنا المصمم على الإكسيل هو الحل الأمثل لك! ✨ مميزات البرنامج: ✅ يعمل على جميع نسخ Microsoft Excel بدون أي إضافات. 📦 إدارة المبيعات، المشتريات، والمخزون بسهولة. 💰 حساب الأرباح والخسائر تلقائيًا. 📑 تقارير جاهزة ومرتبة لعرض النتائج المالية. 🧾 إنشاء وطباعة الفواتير مباشرة من الإكسيل. 🔍 سهولة البحث والوصول لأي معلومة بسرعة. 🔒 حماية البيانات بكلمة مرور. 🚀 بدون تثبيت برامج إضافية – واجهة عربية سهلة – قابل للتعديل حسب احتياجاتك ExcelBooks.pdf

اخي العزيز يبدو لي أنك ممارس للعمل بإستخدام الأكسل وتريد تطبيق ما تقوم به في أكسل في الأكسس المشكلة هنا ليست في الحل بل في الطلب نفسه فأنت هنا تتعامل مع قاعدة بيانات يكون لكل حقل في الجدول نوع بيانات مخصص فعندما تقول هذا حقل تاريخ فيمكنك عندها إدخال قيمة تاريخ واحدة في الحقل يمكنني أن أجيب عليك بحل سريع وأقول لك غير نوع الحقل إلى نص عندها ستتمكن من إدخال التاريخين في نفس المكان وبإمكانك مشاهدة النتيجة في المرفقات ولكن هذا لا يعتبر حلاً صحيحاً فأنت لن تستطيع التعامل معهما كتاريخين بل كنص الاكسس قاعدة بيانات علائقية والاكسل قاعدة بيانات مسطحة فإذا أردت العمل مع قواعد البيانات العلائقية فيجب عليك الإطلاع على موضوع مهم وهو التطبيع أو ما يسمى بـ(Normalize) والذي ستتمكن من خلاله فهم طريقة تحويل الجداول المسطحة إلى جداول علائقية ومن أهم نماذج التطبيع هو تحويل الأعمدة المتشابهة إلى سجلات بمعنى أنه من الخطأ أن تنشئ عمود لكل شهر بل عليك إنشاء جدول جديد للإحتفاظ بقيم التواريخ وربط الجدول الجديد مع الجدول الأصلي بعلاقة عن طريق أحد الحقول الأخرى الموضوع كبير ولن أستطيع شرحه في رد بسيط ولكني أنصحك أن تقوم بالبحث والإطلاع عن الطرق العلمية الصحيحة لإنشاء قواعد البيانات والجداول وأنواع بيانات الحقول عندها ستعرف لماذا قلت لك أن المشكلة ليست في الإجابة على طلبك ولكنها في طريقة تصميم الجدول نفسه تحياتي test.rar

اعرض الملف أداة تصفية النماذج والتقارير المخصصة {سلسلة الأدوات المساعدة المخصصة} نواصل سلسلة الأدوات المخصصة بهذه الأداة الجميلة التي ستوفر عليك الكثير من الوقت والجهد في كتابة الأوامر الخاصة بعملية تصفية النماذج والتقارير قمت بإرفاق ملف وورد يوضح طريقة الإستفادة من الأداة بالإضافة إلى التعليقات التوضيحية مع الأكواد أرجو أن يستفيد الأعضاء من هذه الأداة مع تحياتي صاحب الملف منتصر الانسي تمت الاضافه 08/15/25 الاقسام قسم الأكسيس  

شكرا اخي لكن اريد دمج الصفة 13-2 في صفحة واحدة a3 مثل ميزانية 2022 وهكذا حتى تصبح صفحتين A4 في ضفحة واحدة A3مثل ميزانية 2022 اخي نرجو منكم جعلها مثل ميزانية 2022 وشكرا مع المحافظة على المعادلات ان امكن الصفحة 13-2 و12-3 وهكذا

ممكن مساعدة يا اخواني

السلام عليكم ورحمة الله وبركات اخواني اعضاء ومشرفي المنتدي الكرام جمعة مباركة عليكم وكل عام وانتم بخير واجهتني مشكلة في طابعة ايبسون LQ350 طبعا انا عندي برنامج لشركة فحص فني سيارات وهو عباره عن ادخال بيانات السياره والمالك وبيانات الفحص وطباعة التقرير علي فواتير A4 جاهزة الي هيا مخرمه بالجوانب وبها مربعات طبعا انا مظبط التقرير انه يطبع علي المربعات الي في الفاتورة بس واجهتني مشكلة مثلا لو انا ما ضغتش علي زرا رجوع الورق في الطابعة لخلف حتي تصل للبداية الطباعة تيجي الطباعة في نص الورقه بمعني انا دلول ركبت الورق وطبعت يطلع مظبوط وجيت اطبع مره تاني ومار جعتش الورق للبداية مايظبش نفسه اتوماتيك علشان يطبع من بداية الورقه لازم اضغط علي زز الرجوع لولا ما تظبط فهل يوجد حل وما هو الحل واسف علي الاطالة وجزاكم الله خير الجزاء

مرفق جدول يمثل حساب ضريبة المرتبات بقانون ٧ لسنة ٢٠٢٤ تم انشائي علي الاكسيل ما أود عمله هو انشاء من الألف للياء باستخدام VBA مع إضافة وهي عرض الأرقام عشرية عندما تكون عشرية اما غير ذلك فيتم عرضها صحيحة اذا كان هناك تعديلات افضل للمعادلات فيفضل تغييرها1.xlsx

جميل جدا يسلمو

الموضوع قديم يعود لــــ 2011 وقد عرض اخوي الاستاذ فادي الرابط بالامس في احدى مشاركاته .. وحين دخلت الموضوع .. ونزلت المرفق وجدت فيه مشكلة عند الفتح لذا قمت بتجديد المرفق Reserved words in Access.rar

وعليكم السلام ورحمة الله و بركاته بعد إذن أستاذنا / حسونه الكود التالي يقوم بعمل اللازم و ضع مسافة بين عبد و أسماء الله الحسنى مثل عبد الله كلمتان و سيكون بعده كود آخر بدون مسافة أي عبدالله مثلا ستكون كلمة واحدة الكود الأول ( عبد الله) Sub CleanSpaces() Dim ws As Worksheet Dim lastRow As Long Dim cell As Range Dim t As String Dim reAbd As Object Dim scr As Boolean, calc As Long Set ws = ActiveSheet lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row scr = Application.ScreenUpdating calc = Application.Calculation Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set reAbd = CreateObject("VBScript.RegExp") With reAbd .Global = True .IgnoreCase = False .Pattern = "عبد(?=[اأإآء-يؤئبةتى])" End With For Each cell In ws.Range("C1:C" & lastRow) If Not cell.HasFormula Then If VarType(cell.Value) = vbString Then t = CStr(cell.Value) t = Replace(t, Chr(160), " ") t = Replace(t, vbTab, " ") t = Replace(t, ChrW(8206), "") t = Replace(t, ChrW(8207), "") t = Application.WorksheetFunction.Trim(t) t = reAbd.Replace(t, "عبد ") t = Application.WorksheetFunction.Trim(t) If cell.Value <> t Then cell.Value = t End If End If Next cell Application.ScreenUpdating = scr Application.Calculation = calc MsgBox "تم تنظيف العمود C ومعالجة 'عبد' .", vbInformation End Sub الود الثاني بدون مسافة: عبدالله Sub CleanSpaces() Dim ws As Worksheet Dim lastRow As Long Dim cell As Range Dim t As String Dim reAbd As Object Dim scr As Boolean, calc As Long Set ws = ActiveSheet lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row scr = Application.ScreenUpdating calc = Application.Calculation Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set reAbd = CreateObject("VBScript.RegExp") With reAbd .Global = True .IgnoreCase = False .Pattern = "عبد\s+(?=[اأإآء-يؤئبةتى])" End With For Each cell In ws.Range("C1:C" & lastRow) If Not cell.HasFormula Then If VarType(cell.Value) = vbString Then t = CStr(cell.Value) t = Replace(t, Chr(160), " ") t = Replace(t, vbTab, " ") t = Replace(t, ChrW(8206), "") t = Replace(t, ChrW(8207), "") t = Trim(t) Do While InStr(t, " ") > 0 t = Replace(t, " ", " ") Loop t = reAbd.Replace(t, "عبد") t = Trim(t) If cell.Value <> t Then cell.Value = t End If End If Next cell ' استرجاع الإعدادات Application.ScreenUpdating = scr Application.Calculation = calc MsgBox "تم تنظيف العمود C بالكامل وإزالة المسافات المكررة والمسافة بعد 'عبد'.", vbInformation End Sub