كل الانشطه

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

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

السلام عليكم لدي برنامج لتحميل الصور اريد اضافة طريقة لعدم عرض الصور في التقرير حتى يتم تحميل أسماء الصور عند فتح البرنامج تظهر لك ايقونة - الملف - فيها أسماء الصور بارك الله فيكم تحميل الوثائق.rar

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

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

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

ولكم منه النصيب الأكبر 😇

تمام كده .. والكشف الثالث نفس الشكل ويبدأ من مسلسل181 وينتهى ب مسلسل270

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

استاذي Foksh دائما سباق الى حل مشاكلنا ويعجز حرفنا ان يوفي فيك من شكر لكن لا نملك لك الا الدعاء بظهر الغيب دمت وادامك الله بالستر والعافية تقديري

كود الذي قدمه استاذنا حسونة حسين كافٍ وأسرع ، لأنه: يمرّ على النطاق مرة واحدة فقط لتحديد الصفوف التي يجب إخفاؤها. يستخدم Union لتجميع الصفوف وإخفائها دفعة واحدة بدل إخفاء كل صف على حدة. يعيد أولًا إظهار جميع الصفوف ثم تخفي فقط الصفوف التي فيها صفر. بالنسبة للارقام العشرية هذا ملفك وهذا التنسيق كما قدمته انت وان كان لديك نتسيق معين ارجو توضيحه

سبب هذا الطلب : المطلوب طباعة هذه الارقام وبالتالى لو تم الطباعة بالشكل فى الشيت الاول سيتم استهلاك كمية ورق اكبر مع وجود فراغ كبير فى الورقة تقبل تحياتى

الكود ده فيه حاجة غلط