كل الانشطه

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

الاستاذ الفاضل على .. ما شاءالله كود جميل ورائع إلا انه لايقوم بتنفيذ المطلوب بالشكل الموجود بصفحة التقسيم وقام بعمل كشوف 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

الكود خاص بالاستاذ حسونة Book1.xlsm

شكرا استاذنا الفاضل ابو خليل اخذنا من وقتك الكثير - جزاك الله خير

حدسي يقول أنهم يريدون التاريخ بدون الفاصلة "سلاش" لو فكرة الأستاذ عبدالله ما صلحت جرب نفس الفكرة مع تعديل بسيط: =TEXT(D7;"'dd/mm/yyyy")

الرجاء اذا فيه تعديل البرنامج انا في الانتظار ولكم جزيل الشكر

اخوي عندي الاشهر السنوية من 1 حتي 12 اريد في خانة الاشهر يدخل شهرين مثلا 2025/01/01 وانتهت المهمة في 2025/01/15 هذا في الشهر الاول واخذ اجازة في 2025/01/17 يدخل التاريخ هذا في الشهر الاول ثم اخذ اجازة في تاريخ 2025/01/19 وتنتهي في 2025/02/19 دخلت الاجازة في شهر الثاني مع تلوين الخانات في النموذج والتقرير

هذا طلبك في المشاركه الرئيسيه كده طلبك انتهي فيما يخص اخفاء السطور ام لم ينتهى يرجى فتح موضوع جديد بالطلب الجديد

هذه النتيجة ؟؟ الرقم الوطني الاسم الجنسيه الجنس نوع الهويه عدد البلاغات رقم البلاغ السنه التهمه الجهه الطالبه الحكم تاريخ الوارد الاجراء المتخذ تاريخ الاجراء ملاحظات تاريخ الحكم 12345678910 محمد علي ي ذكر 4 88 2024 جنائي العاصمه غير محدد 2025-08-11 2352 2025 شيكات الشرق غير محدد 2025-08-11 3252 2022 شيكات الجنوب غير محدد 2025-08-11 32525 2024 انتحال الغرب غير محدد 2025-08-11 25432526222 جاسم عبدالله ا ذكر 2 35 2025 تزوير الشرق غير محدد 2025-08-11 60 2022 مشاجره الجنوب غير محدد 2025-08-11 SELECT IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[id], Null) AS [الرقم الوطني], IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[ename], "") AS الاسم, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[natio], "") AS الجنسيه, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[gins], "") AS الجنس, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[nid], "") AS [نوع الهويه], IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), DCount("*","tabe2","id=" & [tabe1].[id] & " AND ([not] Is Null OR [not]='')"), Null) AS [عدد البلاغات], tabe2.blagh AS [رقم البلاغ], tabe2.sanh AS السنه, tabe2.thmh AS التهمه, tabe2.wanted AS [الجهه الطالبه], tabe2.hkm AS الحكم, tabe2.edate1 AS [تاريخ الوارد], tabe2.[not] AS [الاجراء المتخذ], tabe2.edateegra AS [تاريخ الاجراء], tabe2.mlaha AS ملاحظات, tabe2.edathkm AS [تاريخ الحكم] FROM tabe1 INNER JOIN tabe2 ON tabe1.id = tabe2.id WHERE (tabe2.[not] Is Null Or tabe2.[not]='') ORDER BY tabe1.id, tabe2.blagh;

[الجديد في التحديث 10.60]: 1- في خدمة (فهرسة الآيات القرآنية من خلال الإشارات المرجعية ومن خلال الحقول)، تم إضافة زر (اعتماد وإيقاف عملية الفهرسة) في نافذة (يوجد أكثر من تخريج للآية)، والذي يُمكِّنك من إيقاف عملية الفهرسة نهائياً. 2- في خدمة (إنشاء جدول المحتويات)، تم إضافة خاصية (بدءاً من المستوى)، والتي تسمح لك باختيار مستوى العنوان الذي تود أن تبدأ البادئة من عنده.