احمد عبد الناصر

السلام عليكم أخي حمادة عمر حياك الله . مجهود رائع تمنياتي لك بالتوفيق . تحياتي

السلام عليكم هذا تعديل للملف في المشااركة رقم 19# . تحياتي ملف 1++.rar

السلام عليكم تحياتي للجميع هذا حل باستخدام Access+ Excel بالطبع عامل السرعة هو المهم (يستغرق 5 ثوان تقريبا ) . ملحوظة : يجب ان تكون الملفات في نفس المجلد . ارجو اعلامي بالنتائج . تحياتي db2+-+-.rar

السلام عليكم جرب المرفق هذا تقرير مجمع بدلالة فترتين . ملاحظة : باستخدام ملف اكسيل , يجب ان يكون في نفس المجلد مع ملف الاكسيس . تحياتي Waleed DB 06-02+.rar

جزاك الله خيرا استاذ هادي تحياتي

السلام عليكم هذه محاولة في المرفق تحياتي Book111+.rar

السلام عليكم اخي الخالدي حياك الله اكواد متقنة و وفكرة ذكية . تحياتي

السلام عليكم هذا استخدام لدالة vlookup بداخل معادلة sum باستخدام array function . {=SUM(VLOOKUP(G4;A:D;{2;3;4};FALSE))} مميزاتها : تأتي بنتيجة مجمعة لاكثر من عمود . و لكن تعمل بفاعلية فقط ان كانت القيمة المراد البحث عنها غير مكررة . الفكرة منقولة بالطبع . تحياتي Vlookup+Arr.rar

جرب هذا على حسب ما فهمت If Not Me.ComboBox7.Value = "" Then ws.Cells(iRow + 1, 2).Value = Me.TextBox4.Value ws.Cells(iRow + 1, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value)) ws.Cells(iRow + 1, 4).Value = Me.ComboBox4.Value ws.Cells(iRow + 1, 8).Value = Me.ComboBox3.Value ws.Cells(iRow + 1, 13).Value = Me.ComboBox5.Value Else TextBox5.Text = 0 TextBox6.Text = 0 End If If Not Me.ComboBox8.Value = "" Then ws.Cells(iRow + 2, 2).Value = Me.TextBox4.Value ws.Cells(iRow + 2, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value)) ws.Cells(iRow + 2, 4).Value = Me.ComboBox4.Value ws.Cells(iRow + 2, 8).Value = Me.ComboBox3.Value ws.Cells(iRow + 2, 13).Value = Me.ComboBox5.Value Else TextBox7.Text = 0 TextBox8.Text = 0 End If تحياتي

السلام عليكم جرب هذا الكود For Each cell In Range("B6:B17") If cell.Value + Range("b3").Value <= 50 Then cell.Value = cell.Value + Range("b3").Value Else cell.Value = "" Next تحياتي

السلام عليكم جرب هذا الكود If not Me.ComboBox7.text ="" Then ws.Cells(iRow + 1, 2).Value = Me.TextBox4.Value ws.Cells(iRow + 1, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value)) ws.Cells(iRow + 1, 4).Value = Me.ComboBox4.Value ws.Cells(iRow + 1, 8).Value = Me.ComboBox3.Value ws.Cells(iRow + 1, 13).Value = Me.ComboBox5.Value End If If not Me.ComboBox8.text= "" Then ws.Cells(iRow + 2, 2).Value = Me.TextBox4.Value ws.Cells(iRow + 2, 3).Value = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value)) ws.Cells(iRow + 2, 4).Value = Me.ComboBox4.Value ws.Cells(iRow + 2, 8).Value = Me.ComboBox3.Value ws.Cells(iRow + 2, 13).Value = Me.ComboBox5.Value End If تحياتي

X1 القيمة المراد البحث عنها X10:Z18 النطاق الذي سوف يبحث فيه (يبحث في اول عمود في النطاق) 3 رقم العمود الذي سوف يخرج منه النتيجة (العمود Z) TRUE تقرب نتيجة البحث بحيث ان كان البحث عن 4 فلم يجدها يقربها للقيمة السابقة لها في هذه الحالة 1 فيأتي بنتيجة الصناعات الميكانيكية ( أ ) تخصص: تشغيل المعادن . ولو كانت false فلكانت النتيجة #N/A . تحياتي

إنا لله و إنا اليه راجعون اللـهـم عاملة بما انت اهله ولا تعامله بما هو اهله . اللـهـم اجزه عن الاحسان إحسانا وعن الأساءة عفواً وغفراناً. اللـهـم ادخله الجنة من غير مناقشة حساب ولا سابقة عذاب . اللـهـم اّنسه في وحدته وفي وحشته وفي غربته. اللـهـم انظر اليه نظرة رضا فإن من تنظر إليه نظرة رضا لا تعذبه ابداً. اللـهـم أسكنه فسيح الجنان واغفر له يارحمن وارحم يارحيم وتجاوز عما تعلم ياعليم . اللـهـم اعفو عنه فإنك القائل "ويعفو عن كثير".

السلام عليكم هذه محاولة حسب ما فهمت باستخدام =VLOOKUP(X1,X10:Z18,3,TRUE) تحياتي قوائم 1+.rar

حياك الله اخي تحياتي

فكرة الكود انه ياخذ قيمة اي خلية بمجرد الوقوف عليها بداية من العمود الثالث و الصف الخامس و ان تكون خلية واحدة . Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 2 Then If Target.Row > 4 Then If Target.Cells.Count = 1 Then x = Target.Value End If End If End If End Sub ثم عند مسح قيمة اي خلية بداية من العمود الثالث و الصف الخامس و ان تكون خلية واحدة يقوم القود بوضع القيمة المحتجزة(X من الكود الاول) في الصفحة الاخرى ويغير لون الخلية الاصلية . If Target.Column > 2 Then If Target.Row > 4 Then If Target.Cells.Count = 1 Then If IsEmpty(Target) Then Target.Interior.ColorIndex = 16 Sheet2.Cells(Target.Row, Target.Column) = x End If End If End If End If بالفعل يمكن تعديل الكود ليشمل اكثر من خلية دفعة و احدة باسخدام Array . وخبراء المنتدي ممكن يفيدونا في ذلك. تحياتي

السلام عليكم جرب هذا الكود TextBox1.Value = Now() تحياتي

جرب المرفق استعملت Dateserial تحياتي +فورم ادخال البيانات.rar

السلام عليكم جرب المرفق تحياتي الجمع عن طريق لون الخلية+.rar

السلام عليكم جرب المرفق تحياتي تحصيل الديون+.rar

السلام عليكم جرب المرفق لي ملاحظة هل يرحل التاريخ معك بطريقة صحيحة ؟ تحياتي +فورم ادخال البيانات.rar

السلام عليكم اخي هذه صفحة التقارير مبنية علي المعادلات فقط . كل التقارير علي اساس التاريخين . ملاحظة تم الاستعانة بدالة من هذا الموضوع : http://www.officena.net/ib/index.php?showtopic=45197&hl= تحياتي تعديلات +-+-+.rar

السلام عليكم اولا ابدي اعجابي بكود الاستاذ خبور خير . هذه محاولة اتمنا ان تفي بالغرض . تحياتي +كشف حسااااب.rar

هذا السطر يضبط خلايا التاريخ بامكانك تغيرهما كيما تريد MyDat1 = Mysh.[E5]: MyDat2 = Mysh.[F5] تحياتي

استاذ mahmoud-lee حياك الله معادلة ممتازة و تعمل علي النوعين سواء (ارقام او نص) . تحياتي