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

بسم الله الرحمن الرحيم رد على المشاركه مرفق ملف برنامج تكاليف سريع السلام عليكم Cost_01.rar

السلام عليكم شاهد المرفقات هذه كودك بعد الاختصار والتعديل Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, ActiveSheet.Rows(2)) Is Nothing Then If ActiveSheet.AutoFilterMode Then Target.Interior.Color = RGB(255, 153, 0) Target.ClearContents ActiveSheet.Cells.AutoFilter End If Cancel = True End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A2:I2]) Is Nothing Then Cc = Target.Column If Target.Value = "" Then ActiveSheet.Range("$A$3:$i$2500").AutoFilter Field:=Cc Else Tr = Target If IsDate(Tr) Then D_a = DateSerial(Year(Tr), Month(Tr), Day(Tr)) Id = D_a Tr = Format$(Id, "yyyy/mm") End If ActiveSheet.Range("$A$3:$i$2500").AutoFilter Field:=Cc, Criteria1:=Tr List_Ali Feuil2.Range("$A$3") Exit Sub End If End If End Sub Private Sub List_Ali(Rng As Range) Dim Ri As Range Dim Ar& Application.EnableEvents = 0 Application.ScreenUpdating = 0 With Sheets("Feuil3") .UsedRange.Clear Set Ri = Rng.CurrentRegion.SpecialCells(xlCellTypeVisible) A = Cells(Rows.Count, 1).End(xlUp).Row Set Ri = Range(Ri.Offset(2, 0), Cells(A, 9)) Ri.Copy .Range("A1") Set Ri = .Range("A1").CurrentRegion With UserForm1.ListBox1 .ColumnCount = 9 .List = Ri.Value End With UserForm1.Show .UsedRange.Clear End With Application.EnableEvents = 1 Application.ScreenUpdating = 1 End Sub شرح_2.rar rrr_2.rar

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

السلام عليكم ورحمة الله أخي الكريم، تم في الملف المرفق بإضافة كود للترتيب في Module1 أسميته hben مع تعديل كود حدث الشيت Sheet1 المسمى "Data"... أرجو أن تفي هذه الإضافات بالمطلوب... أخوك بن علية الملف المرفق: الصف الثانى.rar

جمع الاثنتين صحيح بمعنى انه يكون جدول للاقسام وكذلك حقل للقسم في جدول الموظفين حقل القسم في جدول الموظفين : النوع = رقم جدول الاقسام يشتمل على حقلين رقمي ونصي بعد هذا يمكنك الربط بين الرقمين كما ذكرت ويمكنك الاستغناء عن الربط بوجود الضوابط ، مثلا ان يكون حقل القسم في النموذج مربع تحرير غير قابل للزيادة

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

بعد الاطلاع على المرفقات اتضح التالي : عند تغير مكان قاعدة الجداول فمن الصعب على الواجهات الارتباط بالقاعدة لذا يلزم تحديث ربط الجداول حينما يتغير مكان قاعدة البيانات ولتحديث الربط اتبع من شريط الادوات : بيانات خارجية / الجداول المرتبطة سيخرج مربع حوار اذهب الى مكان القاعدة ثم ارتبط بها مرة اخرى ملحوظة : النموذج في مثالك غير منضم لذا فهو يفتح بشكل سليم ولهذا اختفى سبب ومكان المشكلة للتجربة :لو جعلت الجدول مصدرا للنموذج فستظهر لك رسالة عند بدء التشغيل تخبرك بعدم وجود الجدول حينها ستنتبه الى مشكلة الربط تم التعديل على المثال يمكنك فحصه على القرص C Net.rar