نجوم المشاركات

Private Sub Worksheet_Change(ByVal Target As Range) Dim A As Range, B As Range, j As Range, lr As Long lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row Application.ScreenUpdating = False Set A = Range("R2:R" & lr) Set B = Range("D2:F" & lr) For Each j In Union(A, B) With j 'Modify it to suit you '.NumberFormat = "mm/dd/yyyy" .NumberFormat = "yyyy/dd/mm" End With Next j Application.ScreenUpdating = True End Sub

1- اعمل الانبثاق =لا 2- اعمل ال tab order هكذا

جرب الكود التالى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$8" Or Target.Address = "$F$8" Then Dim LastRow As Long Dim FilterRange As Range Dim FilterColumn As Long If Target.Address = "$D$8" Then FilterColumn = 2 ElseIf Target.Address = "$F$8" Then FilterColumn = 4 End If LastRow = Me.Cells(Rows.Count, "D").End(xlUp).Row Set FilterRange = Range("C9:U" & LastRow) If Not IsEmpty(Target.Value) Then FilterRange.AutoFilter Field:=FilterColumn, Criteria1:=Target.Value Else FilterRange.AutoFilter Field:=FilterColumn End If End If End Sub

ادخل على خيارات الوظائف الاضافية وازل تاشيرات الادوات التي لا تريدها .

جرب هذ التعديل لا فائدة من السطر الاول في بداية الكود لقد قمت بازالته عند وضع احد الخلايا سيتم الفلترة وعند مسح الخلية سيتم عرض البيانات الكلية Private Sub Worksheet_Change(ByVal Target As Range) Dim LastRow As Long Dim FilterRange As Range LastRow = Me.Cells(Rows.Count, "D").End(xlUp).Row Set FilterRange = Range("C9:U" & LastRow) If Me.FilterMode Then Me.ShowAllData If Not IsEmpty(Range("D8")) Then FilterRange.AutoFilter Field:=2, Criteria1:=Range("D8").Value ElseIf Not IsEmpty(Range("E8")) Then FilterRange.AutoFilter Field:=4, Criteria1:=Range("E8").Value End If End Sub

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

السلام عليكم بارك الله لك و جزاك الله كل خير اخ @احمد عبدالحليم ارجو من احد الزملاء المساعدة في حل بما هو مطلوب

وعليكم السلام ورحمة الله وبركاته هذه ملفات addin قد قمت بتفعيلها في جهازك

وعليكم السلام ورحمة الله وبركاته .... تفضل .... Database3.accdb

استخدم مصمم الاستعلامات الخاص بالأكسس للحصول على جمل ال SQL .. صمم الاستعلام ثم إذهب إلى للحصول على جملة ال SQL سهل ومريح .. 🙂

يمكن عمل جدول لحركة قيمة المشروع بحيث يتم تسجيل جميع الحركات سواء تخفيض او زيادة

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

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

أخي @RaDwAn00 ضع عند حدث فتح التقرير هذا الأمر : DoCmd.Restore بدل ال DoCmd.Maximize