abouelhassan

اعزك الله اخى البحث فوق الممتاز بس حضرتك جرب ابحث ببحث مستخدم واختار معيار واخد وهو حالة الصرف نعم هيظهر لك سجل واحد بتاريخ 1/3/2024 وعندما اختار نفس المعيار حالة الصرف نعم بس المستخدم المدير ظهر لى 3 سجلات الاول بتاريخ 1/3/2024 الثانى بتاريخ 16/3/2024 الثالث بتاريخ4/2/2024 بكده يكون السجل بتاريخ 1/3/2024 والسجل بتاريخ16/3/2024 المفروض يظهروا ل المستخدم صح كده وما يختفى هو ما بتاريخ4/2/2024 جرب اخى أما كل شئ فوق فوق الممتاز تسلم ايدك وعينك يارب ويديك الصحة والعافية ويبارك لك في اسرتك الكريمة حبيبي واخويا ربنا يحفظك

الكود يعمل عندى اخى وللتأكيد جرب التحديث Dim cellState As New Collection Private Sub Workbook_Open() Dim ws As Worksheet Dim cell As Range For Each ws In ThisWorkbook.Worksheets For Each cell In ws.UsedRange If Not IsEmpty(cell.Value) Then cellState.Add cell.Value, cell.Address End If Next cell Next ws End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) cellState.Clear End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim cell As Range For Each cell In Target If Not Intersect(cell, Sh.UsedRange) Is Nothing Then If Not IsEmpty(cell.Value) And cell.Value <> cell.Text Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color If cellState.Contains(cell.Address) Then cellState.Remove cell.Address End If cellState.Add cell.Text, cell.Address End If End If Next cell End Sub أعتذر عن ذلك. دعوني أوضح الكود بشكل أدق. يمكنك استخدام هذا الكوديرجى وضع هذا الكود في وحدة VBA جديدة كما ذكرت سابقًا، ثم قم بحفظ الملف وأعد فتحه وجرب تغيير القيم في الخلايا. إذا لم يعمل، فقد يكون هناك مشكلة في الإعدادات الخاصة بالملف. يمكنك محاولة إعادة الكود بعد حفظ الملف باسم جديد وفتحه للتحقق من عمل الكود.

تسلم ايدك وعينك ورأسك اخى فكرة ممتازة بس فى شئ اختارت بحث مستخدم واخترت تم الصرف نعم عرض سجل بتاريخ1/3/2024 وعندما اختارت نفس البيانات كمدير عرض 3 المفروض واحد 1/3/2024 والثانى6/3/2024 والثالث4/2/2024 والمفروض ان المخفى عن المستخدم هيكون هنا سجل واحد هو4/2/2024 يعنى كده فى سجلين مخفيين عن المستخدم من ضمنهم واحد المفروض يظهر الظاهر أن الكود يعمل على التاريخ الشهر الماضى والحاضر يحتاج تعديل أن الشهر الحالى يعرض وفكرة روعة الروعة بصراحة كذلك حذف السجل يعمل تمام التمام كمان عندما رأيت الفورم1 تحفة به الاعداد ممتازة بس ناقص الربط بالجدول تسلم ايدك والله من كل قلبى ربى يسعد قلبك ويبارك فى عمرك ويحفظك اللهم امين يارب العالمين

يبدو أن هناك خلط في الاستخدام. يجب وضع الكود في وحدة VBA للمصنف (Module) بدلاً من وضعه في حدث الملف أو حدث الورقة. قم باتباع الخطوات التالية: 1. افتح المصنف واذهب إلى عارض المشروع (عن طريق الضغط على ALT + F11). 2. في عارض المشروع، انقر بزر الماوس الأيمن على أحد الأوراق في الجزء الأيسر، ثم اختر "Insert" > "Module" لإضافة وحدة جديدة. 3. انسخ والصق الكود في الوحدة الجديدة. 4. أغلق نافذة VBA واحفظ التغييرات. 5. أعد فتح الملف وجرب تغيير قيم في الخلايا لرؤية التأثير.

تمام اخى الكريم كلامك صحيح الحذف سجل فقط غلط الحذف بالجمله رمضان كريم كل عام وانتم بخير وصحه وسلامه

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

تسلم ايدك اخى تحفة التصميم الرئيسى بالقوائم تحفة جداا قمت بعمل DoCmd.Maximize النموذج ملئ الشاشة بس كل الكائنات تجاه اليمين عايز النموذج كما هو بس ملئ الشاشة كان عندى كود بيعمل ده مش لقيه احتاج الى كود الضبط التلقائى للشاشة كان عندى بس مش لقيه قمت بعمل شيك اختيار فى نموذج البحث بحيث اعمل اختيار وعملت زر بالاعلى لعمل اختيار للكل وزر اسمه حذف المحدد شاكر فضلك FinancialPrg1.accdb بالنسبة للحماية اطلعت على موضوعك السابق بهذا الخصوص وعلمت ما تريد بالضبط . هل تريد اعتماد تاريخ الانترنت ؟ لأن طريقة تنفيذ الحماية سهلة ويسيرة ، ولكن تفشل عند التلاعب بتاريخ الجهاز على اعتبار المدير له الصلاحية الكاملة في التعديل على القديم والجديد تمام اخى

سامحنى اخى احاول المساعدة قدر الامكان والله جرب هذا الكود يستخدم مجموعة من الخلايا لتخزين حالتها قبل وبعد التغييرات. عند فتح الملف، يتم تسجيل قيم الخلايا غير الفارغة. عندما تُغلق الملف، يتم مسح حالة الخلايا. وعند تغيير القيم في الخلايا، يتم التحقق مما إذا كانت القيمة الجديدة غير فارغة ومختلفة عن القيمة السابقة، حيث يتم تغيير لون الخلفية إلى الأسود ولون النص إلى الأبيض وتحديث حالة الخلية Dim cellState As New Collection Private Sub Workbook_Open() Dim ws As Worksheet Dim cell As Range For Each ws In ThisWorkbook.Worksheets For Each cell In ws.UsedRange If Not IsEmpty(cell.Value) Then cellState.Add cell.Value, cell.Address End If Next cell Next ws End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) cellState.Clear End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Target If Not Intersect(cell, Me.UsedRange) Is Nothing Then If Not IsEmpty(cell.Value) And cell.Value <> cell.Text Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color If cellState.Contains(cell.Address) Then cellState.Remove cell.Address End If cellState.Add cell.Text, cell.Address End If End If Next cell End Sub

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

بارك الله فيك اخي الكريم

اسف اخى ممكن تجرب هذا الكود أن شاء الله يضبط Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range Dim rng As Range Set rng = Me.Range("E:H,J:K") For Each cell In Target If Not Intersect(cell, rng) Is Nothing Then If cell.Value <> cell.Text Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color Else cell.Interior.ColorIndex = xlNone ' No color cell.Font.ColorIndex = xlAutomatic ' Automatic font color End If End If Next cell End Sub للاختبار اخى الكريم هذا الكود يقوم بتحديد نطاق الخلايا المراد مراقبتها (E:H و J:K)، وعند تغيير أي قيمة في هذه الخلايا، يتم تغيير لون الخلفية إلى الأسود ولون النص إلى الأبيض. إذا لم يحدث أي تغيير في القيمة، ستظل الخلية كما هي. ويمكنك تعديل النطاق كما تحب إذا نجح الكود تحياتي

روائع الروائع أكرمك الله عز وجل

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

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

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

فهمت ان شاء الله يكون طلبك Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Target If Not Intersect(cell, Me.UsedRange) Is Nothing Then If cell.Value <> cell.Text Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color End If End If Next cell End Sub

ممتاز يمتاز بالبساطة والقوة والله تسلم ايدك اخى حاولت اضافة جملة .FilterOn = False فى نموذج البحث بحيث تخفى البيانات لم تنجح احتاج شرح كيف عملها اخى التقرير رائع مكنتش متخيل ان كل الى احتاجه يوجد فى تقرير واحد من امبارح عمال اتخيل ازى هيتم فى ظل وجود كمية الحسابات وانواعها الكتير تسلم ايدك اخى الكريم بصراحة جميل جدا ويمتاز بالسهولة فى الفهم وتطبيق كل جزئ احتاج شرح لماذا نوع الحساب يظهر بالجدو الرئيسى رقم وليس اسم وما هو السبيل لتعديله ليكون اسم شكرا من القلب

اسف رمضان كريم Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Target If Not Intersect(cell, Me.UsedRange) Is Nothing Then If cell.Value <> "" Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color End If End If Next cell End Sub

مؤسسة العدل إدارة الحسابات تم بواسطة اسم المستخدم والجانب الآخر التاريخ فى اعلى يمين التقرير خالص تحياتي وتقديري لحضرتك

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

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

تفضل أن شاء الله طلبك Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Target If Not Intersect(cell, Me.UsedRange) Is Nothing Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color End If Next cell End Sub

السلام عليكم اخى تم اضافة جدول النوع وبه الانواع كما تم اضافة كائن بنموذج الادخال للنوع ومحاولة ضبط الكود بس كتب رقم النوع مش اسمه فى جدو البيانات الاساسية تم اضافة كائن للبحث بالنوع فى نموذج البحث والتعديل وكذلك كائن البحث بالتاريخ ارجو الاطلاع شاكر فضلك Financial_db2.accdb

جرب اخى الكريم Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Target If Not Intersect(cell, Me.UsedRange) Is Nothing Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color End If Next cell End Sub كل عام وانتم بخير وصحه وسلامه

اسف اخى الملف لم يفتح اكتب المعادلة المراد تحويلها لكود مشكور