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

بالظبط هذا هو المطلوب ربنا يبارك فيك ويكرمك ويجزيك خير اشكرك من قلبى اخى الحبيب ادام الله عطاؤكم ============== وباقى كود التعديل ثم يدعو لك صاحب الملف بكل خير وفى كل وقت

السلام عليكم الشكر موصول للاخ ابوعيد و الاخ الصقر تفضل اخي هذا الحل ان شاء الله يفي بالغرض وان يستفيد منه الجميع اولا تم برمجة كود يدرج شيت جديد باسم رمز الشركة اوتوماتيكيا في حالة زيادة عدد اسماء الشركات مع تنسيق رؤس الاعمدة كما هو في الشيت الرئيسي Sub AddWs() Dim ws As Worksheet Dim sh As Worksheet: Set sh = ThisWorkbook.Sheets("ÇáÑÆíÓíÉ") Dim lrw As Long: lrw = sh.Cells(Rows.Count, 1).End(xlUp).Row Dim sNam As String Dim i As Integer, c As Integer Dim Err For i = 2 To lrw sNam = sh.Range("A" & i).Value On Error GoTo Err Set ws = ThisWorkbook.Sheets(sNam) 0 Next Exit Sub Err: ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count) ThisWorkbook.Sheets(Sheets.Count).Name = sNam Set ws = ThisWorkbook.Sheets(sNam) Application.CutCopyMode = False sh.Range("C1:S1").Copy ws.Select ws.Range("A1").Select ws.Paste Application.CutCopyMode = True Feuil1.Activate GoTo 0 End Sub ثانيا تم برمجة كود ينقل التغيرات الحاصلة في كل شركة الى الشيت الخاص بها اوتوماتيكيا ويومايا مع العلم ان البيانات تتحدث تلقائيا في حالت اي تغير في بيانات شركة ما ولا يتوقف التحديث الا في حالت تغير التاريخ في هذه الحالة يتم ادراج البيانات في قاعدة البيانات الخاصة بتلك الشركة لاكن بتاريخ مختلف ملاحظة تم برمجة الكود على اساس ان الشيت الرئيسة مرتبط باحد برامج البورصة (المضاربات) مثل مستشاري Sub Rénover() Dim ws As Worksheet Dim sh As Worksheet: Set sh = ThisWorkbook.Sheets("ÇáÑÆíÓíÉ") Dim lrw As Long: lrw = sh.Cells(Rows.Count, 1).End(xlUp).Row Dim lrw2 As Long Dim MyDat As Date Dim sNam As String Dim i As Integer, c As Integer Call AddWs For i = 2 To lrw MyDat = CDate(sh.Range("C" & i).Value) sNam = sh.Range("A" & i).Value Set ws = ThisWorkbook.Sheets(sNam) lrw2 = ws.Cells(Rows.Count, 1).End(xlUp).Row Dim Rw As Long: Rw = lrw2 + 1 If lrw2 = 1 Then ws.Range("A" & Rw & ":Q" & Rw).Value = sh.Range("C" & i & ":S" & i).Value GoTo 1 ElseIf MyDat = CDate(ws.Range("A" & lrw2)) Then ws.Range("A" & lrw2 & ":Q" & lrw2).Value = sh.Range("C" & i & ":S" & i).Value Else ws.Range("A" & Rw & ":Q" & Rw).Value = sh.Range("C" & i & ":S" & i).Value End If 1 Next End Sub ثالثا تم برمجة كود يقوم بملئ كمبوبكس الخاص بالرمز و اسم الشركة ايضا يعمل اتوماتيكيا Sub ListCmb() Set wsh = ThisWorkbook.Sheets("ÇáÑÆíÓíÉ") lLrw = wsh.Cells(Rows.Count, 1).End(xlUp).Row Feuil1.CobName.Clear Feuil1.CobID.Clear Feuil1.CobName.List = wsh.Range("B2:B" & lLrw).Value Feuil1.CobID.List = wsh.Range("A2:A" & lLrw).Value End Sub رابعا تم برمجة كود خاص بملئ التواريخ المسجلة في قاعدة البيانات ايضا يعمل اتوماتيكا حسب اسم او رمز الشركة المختارة Sub ListCmbDate(wsNam As String) If wsNam = "" Then Exit Sub Set wsh = ThisWorkbook.Sheets(wsNam) lLrw = wsh.Cells(Rows.Count, 1).End(xlUp).Row Feuil1.CmbDat1.Clear Feuil1.CmbDat2.Clear If lLrw = 2 Then Feuil1.CmbDat1.AddItem wsh.Range("A2").Value Feuil1.CmbDat2.AddItem wsh.Range("A2").Value Exit Sub Else Valeurs = wsh.Range("A2:A" & lLrw).Value Feuil1.CmbDat1.List = Valeurs Feuil1.CmbDat2.List = Valeurs End If End Sub خامسا واخير تم برمجة كود يجلب البيانات حسب اختيار المستعمل للفترة التي يريد من شيت محدث Sub RowWs(wsNam As String, MyDate1 As Date, MyDate2 As Date) If wsNam = "" Then Exit Sub CalearWs Set ws = ThisWorkbook.Sheets("ãÍÏË") Set wsh = ThisWorkbook.Sheets(wsNam) lLrw = wsh.Cells(Rows.Count, 1).End(xlUp).Row Dim Rw As Long, Rw1 As Long, Rw2 As Long For i = 2 To lLrw If MyDate1 = CDate(wsh.Range("A" & i)) Then Rw1 = wsh.Range("A" & i).Row If MyDate2 = CDate(wsh.Range("A" & i)) Then Rw2 = wsh.Range("A" & i).Row: Exit For Next If Rw1 = 0 Then MsgBox "íÌÈ Çä íßæä íæã ÇáÈÏÇíÉ ÇÞá ãä Çæ íÓÇæí íæã ÇáäåÇíÉ": Exit Sub Rw = Rw2 - Rw1 + 1 ws.Range("A4").Resize(Rw, 15).Value = wsh.Range("A" & Rw1).Resize(Rw, 15).Value End Sub صورة توضيحية ملاحضة هامة الرجاء عدم التغيير في تسميات الشيتات لكي لا يتأثر عمل الاكواد (الكود يعطي خطاء) تحياتي للجميع بيانات شركة.rar

اخى الغالى محمد الريفى تم عمل زر الطباعه جرب المرفق Transfer Data.zip

اخى الحبيب محمد الريفى تم تنفيذ عملية الاستدعاء جرب المرفق لو هو تمام نكمل عملية التعديل والطباعه تقبل تحياتى Transfer Data.zip

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

السلام عليكم ورحمة الله اخي العزيز حسام شكرا وجزاك الله خير إذا فيه عزومة بندعي لك ولايمهمك اخي منها العيال ومنك المال....ههههههاي بخصوص الملف وحسب مانت واضع رقم الموظف 3 وتاريخ 2015/08/08 اضغط ترحيل تم الترحيل اضغط للمرة الثانية تأتي رساله نأسف تم الترحيل مسبقا إلي هنا تمام لكن لما اغير التاريخ واضغط ترحيل 20 مره يرحل

أعتذر عن التأخير حيث أنني منشغل قليلا جرب الكود Sub TransferData() Dim WS As Worksheet, SH As Worksheet, Cell As Range, Cel As Range, X Set WS = Sheets("الادخال"): Set SH = Sheets("الشهور") For Each Cell In WS.Range("A5:A" & WS.Cells(Rows.Count, 1).End(xlUp).Row) If IsNumeric(Cell.Value) Then On Error Resume Next X = Application.WorksheetFunction.VLookup(Cell.Value, SH.Range("A5:A" & SH.Cells(Rows.Count, 1).End(xlUp).Row), 1, 0) If Cell.Value <> X Then Cell.Resize(1, 11).Copy SH.Range("A" & SH.Cells(Rows.Count, 1).End(xlUp).Row + 1) End If Next Cell End Sub

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخوتي / اخواتي لي الشرف ان انظم الى هذا الصرح العلمي ، سائلاً المولى جل وعلا ان يوفقني لما فيه الخير للجميع 🙂 في اول مشاركة لي ، اضع بين يديكم برنامج مسقط التقارير (مسمى صانع التقارير متداول كثيرا ، لذا احببت ان اسمي برنامجي بإسم مميز ، إسم مسقطنا الحبيبة 🙂 ). البرنامج في نسخته الاولى ، لذا ، فلا تتوقعوا الكثير منه 🙂 في احد المشاريع التي عملت عليها قريبا ، كان العمل لسجلات شؤون الموظفين ، ولم يكن بالامكان عمل تقرير محدد ، حيث كانت التقارير المطلوبة من الادارة بشتى انواع البيانات ، طولا وعرضا. لذا اضطررت العمل على صانع للتقارير (في الواقع مسقط التقارير يعتبر برنامجا بحد ذاته ، فالعمل كان ، برنامج في برنامج 🙂 ). مع ان البرنامج بسيط في طريقة عمله (وطبعا عندي الكثير من الاشياء الاخرى التي اود ان اضيفها ، لكن في وقتها ان شاء الله ، وبما ان البرنامج مفتوح المصدر ، فانا ارحب بمن يضيف عليه خصائص جديدة 🙂 ) ، فمع بساطة البرنامج ، إلا ان نتائجه مرضية 🙂 العمل على البرنامج ابسط بكثير من شرحه 🙂 يمكنك نقل هذه الكائنات السته الى برنامجك الخاص ، ومسقط التقارير سيعمل بدون الحاجة الى اي تغيير او كود: مسقط التقارير يعمل على الجداول والاستعلامات فقط ، واليكم طريقة العمل: جدول او استعلام: اختر من ايهم تريد ان تعمل تقريرك ، جدول او استعلام ، الاسم: على اساس الاختيار السابق ، ستظهر لك قائمة بجداولك او استعلاماتك ، وعندما تختار اسم جدول او استعلام ، فان النموذج الفرعي الذي اسفل الاسم سوف يمتلئ باسماء الحقول من الجدول او الاستعلام ، وكلها عليها اشارة اخفي (اي كلها ستكون مخفية من الظهور في النموذج الفرعي الذي بالاسفل) ، احذف اشارة الاخفاء عن الحقول/الخانات التي تريدها ، وستظهر لك في النموذج الفرعي الذي في اسفل النموذج. هذا النموذج هو شكل مبسط من التقرير ، فكما ترى الحقول وعرضها ، وعدد السجلات ، ستراها في التقرير. هناك خطان فوق النموذج الفرعي ، باللون الاصفر والاخضر ، اذا كانت بياناتك اقل من الخط الاصفر ، سيكون التقرير بالطول ، وإلا فانه سيكون بالعرض ، وهناك خطان صفر ، فالمسافة بينهم ستكون للترقيم التلقائي للتقرير (لاحظ ان التقرير لبيانات النموذج ادناه سيكون بالعرض ، لأننا تخطينا الخط الاصفر 🙂 يمكننا ان نمسك الحقول/الخانات بالزر الايسر من الفأرة ونغير ترتيبها يمينا ويسارا ، كما ان البرنامج يحترم عرض الحقل الذي تقوم بتعديله ، (لاحظ ان التقرير لبيانات النموذج سيكون بالطول ، لأننا في حدود الخط الاصفر 🙂 وهذا هو التقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يقوم بتغيير ارتفاع الصف تلقائيا ، حتى يمكن مشاهدة جميع بيانات الحقل. اذا قررت ان تتعدى الخط الاصفر ، فنفس شروط الخط الاصفر تنطبق على الخط الاخضر ، وهنا نرى باننا اضفنا عنوان لراس صفحة التقرير ، واضفنا معلومات عن موضوع التقرير ، بالاضافة الى معلومات في ذيل التقرير: وهذا هو تقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يوسع عمود الترقيم التلقائي ليسد المسافة: بعد اختيار الحقول التي نريدها في التقرير ، نستطيع ان نفرز الحقول بالطريقة التي نريد: وكذلك تصفية البيانات حسب الحاجة: وهذا هو تقرير لبيانات النموذج السابق ، لاحظ عدد السجلات قد تغير ، لأني طلبت ان ارى السجلات التي مبالغها اكبر من 500: البرنامج لا يحفظ التقارير (نعم ، عمل طريقة لحفظ اسم لكل تقرير ، على قمة قائمة التحديثات ان شاء الله 🙂 ) ارجوا ان تتقبلوا مني هذا العمل المتواضع 🙂 اسئلة/اقتراحات ، سأحاول الرد على قدر استطاعتي ان شاء الله 🙂 جعفر ملاحظة1: عمود المجموع لا يعمل ، وكان يجب ان اخفيه 😞 ملاحظة2: في الاساس كان عندي كمية كبيرة من صور الشرح ، إلا ان المنتدى لا يسمح بأكثر من 10 مرفقات ، فاختزلت الموضوع 🙂 ملاحظة3: ادراج فيديو لطريقة عمل التقرير: Muscat_Reports.zip

عزيزي الرائع ابوعبدالله اعتذر بشدة على تاخيري في الرد على كلامك الاكثر من رائع بخصوص محاسبة المطاعم وذلك لظروف مرضي ولكن ان شاء الله يمكننا سويا وضع نواة حسنة لمشروع محاسبة الفنادق والذي كما سبق واوضحت انه يشمل المطاعم بداخله واامل ان نبدا سويا من الالف الى الياء حتى يخرج مشروع فريد لمحاسبة الفنادق والتي اعتقد انها شاملة لاهم ومعظم مجالات المحاسبة. ولكن دائما سيبقى الوقت هو العدو الاوحد لي وساضع امامك اطار عام لمجال المحاسبة داخل المنشآت السياحية ولكن بكل بساطة او بمعنى ادق بالمفهوم العامي وقبل البدء ارجو ان يتسع صدرك لكلام محاسبة وبس اى بدون برمجة حتى تصلك الفكرة الاساسية والتي من خلالها يمكنك معرفة كافة مدخلات الاطار المحاسبي ( البيانات التي سيتم معالجتها او تبويبها )داخل الفندق وكذلك العمليات التي تتم فيه ثم المخرجات والتي ستكون في شكل تقارير اساسية واخرى مكملة - هناك اقسام داخل قسم المحاسبة والتي تقوم بتجميع البيانات كل حسب تخصصه. وهي كالتالي : قسم مراقبة التكاليف :Cost Control ويتراسه Cost controller وهو القسم المسئول عن مراقبة المخزون ومخرجه الاساسي هو ( تكلفة البضاعة المباعة )Cost Of Salesوبالطبع كي نصل الى رقم تكلفة البضاعة المباعة فنحن بحاجة لمعرفة رصيد اول الفترة المحاسبية وصافي المشتروات واخيرا رصيد بضاعة آخر الفترة (كل هذه البنود بسعر التكلفة وليس البيع) والمخزون في غالبية الفنادق يصنف على 4 محاور رئيسية 1- مخزون اغذية Food Store 2- مخزون مشروبات Beverage Store 3-مخزون عام General store 4-مخزون الصيانة Maintenance Store وساقوم برفع ملف به هذه التصنيفات بمحتوياتها من اصناف لان كل من هذه المخازن بداخلها تصنيف فرعي آخر وهنا يجب الاشارة الى معيار هام في التفرقة بين ماهو Food وما هو Beverage وهو اذا لم تتم اضافة اى تكاليف للصنف بعد شراؤه فهو Beverage وللتوضيح الشاى نضيف اليه سكر اذا فهو Food وليس مشروب Beverageاما الكولا فهي مشروب عزيزي ابو عبدالله اعلم اني اطيل عليك ولكن انت قلت ان الفكرة اعجبتك واذا اردت مني اكمال الموضوع فانا معك حتى تصل الفكرة للاذهان واذا قلت توقف وارسل ملفات فانا ايضا معك واتمنى ان لا تمل مني وفي المرة القادمة ساقوم بشرح باقي الاقسام والتعريف بمهامها الاساسية ومدخلاتها ومخرجاتها وهي على النحو التالي قسم مراقبة الايرادات Income و يتراسه Income Auditor ويليه Night Auditor ويليه Restaurant Auditor ويليه General Cashier ثم F&B Cashier وكل له تخصصه وله مدخلات بيانات ومخرجات مكملة لبعضها البعض قسم المدفوعات Payable قسم المقبوضات Receivable وكل هذه الاقسام تصب بياناتها في جعبة رئيس الحسابات والذي بدوره يصب بياناته بعد المعالجات والتسويات المطلوبة للمدير المالي تحياتي للجميع وتحياتي الخاصة جدا لك عزيزي المبدع على الدوام ابوعبدالله هاني بدر

دعوة لبدء قاعدة بيانات شئون موظفيين شاملة لما لاحظت كثرة التساءل بالمنتدي من استفسارات وطلبات كثيرة حول موضوع شئون الموظفيين وادارة الوثائق بمختلف انواعها وبالبحث بالمنتدي وجد الكثير من اعمال اخواني ومعلميني الأقاضل وعلي رأسهم اخينا المبدع ومعلمنا الجليل الأستاذ / عبدالله باقشير واخي الفاضل الأستاذ/ أحمد فضيلة (صاحب الافكار الجميلة) وأخي ومعلمي الأستاذ / عبدالله المجرب واكواد لاخي الاستاذ / عباد نصار واخي بن علية واستمسحهم واستسمح من استخدمت عمله وارجوا السماحة فالهدف المصلحة العامة ----------------------- نبذة عن قاعدة البيانات اولا: معالجة البيانات الخام من ادخال بيان موظف جديد او البحث عن موظف مع خيارات الحذف والتعديل. وخيارات بحث (بحث بالرقم الوظيفي ) او بحث برقم الهوية / الاقامة- لضمان عدم تكرار الرقم او تشابه ثانيا اعداد تقرير تفصيلي عن حالة موظف معيين بامكانية الطباعة من الفورم وايضا طباعة بي دي اف لارسالها بالبريد وعمل باركود للموظف يحتوي علي رقم الهوية حتي لا يتكررواستخدامه في ملف الموظف ثالثا الصلاحية وتتم فيها معالجة البيانات المدخلة وتحتوي علي - جلب البيانات من صفحة الادخال ومعالجتها واظهار الوثائق المنتهية بالفترة واليوم مع بيان للحالة امكانية الطباعة وعمل تقرير شامل حسب الصلاحية - التصفية مع تقرير بالوثائق المنتهية والسارية علي حدة - التصفية والفرز حسب الجنسية مع تقرير عن كل جنسية - التصفية والفرز حسب المهنة مع تقرير علي كل مهنة - التصفية والفرز حسب الفترة انتهاء الصلاحية (30-60-90 يوم) التعامل مع التاريخيين الهجري والميلادي جاري ان شاء الله تحديث القاعدة لتشمل - امكانية استيراد البيانات من برنامج مقيم بالسعودية - بيان بالاجازات التي حصل علي الموظف واحقيته ف اجازاته السنوية ( جاري العمل عليها) - تقرير عن الراتب الاساسي والبدلات التي يستحقها الموظف شاشات سهلة التعامل وارجوا من الاخوة الكرام لا يبخلوا علينا بافكارهم للتطوير القاعدة بما يتناسب معظم احتياجات الموارد البشرية كلمة مرور القاعدة الدخـول = 2300 حماية الصفحات (2300) DataBase Sheet = 1948 VB Password= Dahy تغيير كلمة المرور للدخول ولحمايــة الصفحات في Sheet8.[zz19760] sheet8.[zz19761] بدون الدخول لمحرر الاكواد مرفق مع الملف ملف الخطوط (حتي يظهر الباركود) ويوضع بالمسار C:\Windows\Fonts توضع صور الموظفيين في نفس مسار ملف قاعدة البيانات ( اذا اردت ارفاق صورة الموظف مع التقرير) وما التوفيق الا من عند الله وهذ بعض الشاشات وان شاء الله ان تكون فيها الفائدة ولو بالقليل لاخواني بالمنتدي officena.rar

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

اخي جعفر معلومات ومرجع قيم كقيمة وجودك بيننا . هذه العملية هي باستخدام third party وهو البرنامج المذكور وهذا ماكنت وعدت به الأخ عبدالله ولكن باستخدام برنامج جهازه ومشغلاته . ولكن يبدو انك المحت بان هذه الطريقة ليست منطقية فليس من المنطقي ان اعرف جهاز كل عميل وتعديل برنامجي ليناسب جهاز العميل بل الاعقد هو عند تغيير العميل للأجهزة . انا اوافقك تماما ولكنني كنت اريده حلا سريعا لاخينا عبدالله . وانا هنا أقول بانه من الصعب ان احمل برنامج كطرف ثالث مع برنامجي عند كل عميل وتقيد استمرار برنامجي باستمرار ونجاح البرنامج المرافق ! واتوقع بان مؤلف البرنامج استخدم ال api في مخاطبة الأجهزة مما قد نتوصل لها باذن الله ويكون الاكسس هو من يخاطب الأجهزة وعن طريق api . والى هنا سنرى تجربة الأخ عبدالله والرجوع بالفيدباك ! كما لدي استفسار اخي جعفر حول توافقه مع أنظمة التشغيل وخاصة 64 bit .؟! اخي soft.sample ماسالت عنه وإمكانية وضع المسار بالاكسس هي عملية سهلة وشغلة vba ! الأهم الان هو سحب وحفظ ك pdf ! تحياتي

اما انا ، فاجعل البرنامج يقوم بالعمل قدر الامكان ، تفاديا لأخطاء المستخدمين ، ولا ادرج الرابط داخل السجلات في اكسس (طبعا هذا اذا في رابط) ، وانما اربط السجل بالكود ولكن اعتقد بأن سؤالك موجه للأخ عبدالله جعفر

السلام عليكم ورحمة الله وبركاته اسمحوا لي ان اعرض فكرتي لكل جهاز طريقته الخاصة لمخاطبة الكمبيوتر بالكود ، وهذا يجعل العمل على كل الاجهزة عملية صعبة للغاية لذا ، اذا كان هناك برنامج محترف وسيط (مثل ما ذكراخي soft.Sample مثلا) ، فهو سيقوم بالعمل القذر (يعني ربط الجهاز بالكمبيوتر وDrivers و... ) ، والمطلوب من هذا البرنامج الوسيط ان يكون في امكانية التحكم به من برنامج الاكسس (وإلا فاننا نستطيع العمل مباشرة عن طريق برنامج الجهاز). برنامج IrfanView بالاضافة الى Plug-ins التابعة له: http://www.irfanview.com/ من البرامج التي لا استطيع ان استغنى عنها ، فاول ما يكون عندي كمبيوتر جديد ، فعلى طول انزل وانصب هذا البرنامج المجاني الأكثر من رائع احد الخصائص التي في البرنامج ، انك ممكن تتحكم فيه عن طريق CommandLine ، وفيه العديد من الاوامر ، وهذا الشئ مهم اذا كنا نريد استعماله مع الاكسس. البرنامج كذلك يستطيع التعرف على جميع اجهزة السكانر المرتبطة بالكمبيوتر: فلما تريد ان تقوم بعملية مسح مستندات من الاسكانر ، فما عليك إلا ان تقوم باختيار الماسح من القائمة (مرة واحدة فقط) ، وبعدها تستخدم هذا الامر من الكود في VBA عن طريق الامر Shell او ShellWait: "c:\program files\irfanview\i_view32.exe" /batchscan=(scanfile,1,1,2,0,c:\temp,tif,1) /scanhidden "c:\program files\irfanview\i_view32.exe" /multipdf=(c:\temp\test.pdf,c:\temp\scanfile01.tif) /killmesoftly والذي يقوم بمسح المستندات وحفظها بصيغة tif ، ويقوم السطر التالي بتحويل المستند الى pdf. وبما ان الكود في VBA ، فيمكنك التحكم في اسم المجلد اسم الملف وترقيمه و.... جعفر

اخى الفاضل شاهد المرفق لعله المطلوب ayman.rar

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

الف مبروووووووووووك ان شاء الله فى تقدم مستمر

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

بارك الله فيك اخى الحبيب شوقى ربيع اكود اكثر من رائعه كنوز جديده يتم اضافتها للمكتبه عندى زادك الله علما وتقبل تحياتى

تفضل يا غالى انت بس تأمر جرب المرفق فى خيارين استدعاء بالموظف واستدعاء بالفترة جرب وعلمنى تقبل تحياتى Transfer Data.zip

تفضل يا غالى جرب المرفق الاستدعاء حسب الفترة المطلوبه Transfer Data.zip

تفضل اخى الكريم المرفق ان شاء الله به طلبك Transfer Data.zip

اخى الحبيب جرب المرفق هل هو طلبك طالما بقى فيها زوجه تانية فأنا اولى بها ههههههههههههههههههه مش كل حاجه ابوالبراء حرام كدا تقبل تحياتى Transfer Data.zip

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

الجهاز يسحب حالياً بصيغة pdf ولكن عن طريق الضغط على الزر في الجهاز أو من قائمة الأداة Scan Snap في شريط المهام كما في الصورة في أول مشاركة ===================== تفضل http://www.fujitsu.com/emea/products/scanners/wgd/fi-7160.html بالنسبة لروابط الاستاذ رضوان فهي لا تعمل على PDF اما رابط الاستاذ ابو ادم فالموقع يطلب إشتراك مدفوع ولم أجربه ================= وشكراً

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

الف مبروك ودائما فى تقدم

الف مليون مبروك للجميع

اخي محمد خلينا نرسم السيناريو كامل حتى نوصل لما تريد بحفظ الوقت قدر الإمكان وعدم هدم ما تم بناؤه . لان موضوعك على فكرة لم يحدد به اطار العمل كاملا . فتابع : استفسار : انا فهمت انه الخيار انشاء المجلد والملفات يتم مرة واحدة فقط واثناء ادخال المعاملة لأول مرة . ولا اعلم ماذا لو حذفت المعاملة ؟ اليس يحذف المجلد والملفات ؟؟ام ان الحذف لايمكن لمعاملات أدخلت ! كذلك هل هناك الحاق نوع ملفات فيما بعد كان مثلا انشات ملفي وورد واكسل عند انشاء المعاملة ولاحقا حبيت اضع صح على ال pdf لانشاء هذا الملف ملحقا بالملفات السابقة وفي نفس الفولدر ! كما انه هناك امر خطير وهو هل الحقول الثلاثة رقم الوارد والتاريخ ونوع المعاملة قابلة للتعديل لانها أصلا هي اسم المجلد ؟؟ ملاحظة : حل ما طلبت سهل جدا ولكن حبيت ان نضع اطار عمل كامل ينجح به نظامك اخي محمد وخاصة انني لمست انه تجاري ولعملاء وليس للتعلم !! تحياتي

الف مبروك ابواحمد

جزيل الشكر لك اخى الكريم ياسر عمل رائع فعلا

شكرا لكم جزاكم الله خير

أستاذنا الغالي شكرا على ثناءك على اقتراحي وهذا ووما تعلمنه هنا ويمكننا التحايل للوصول إلى ما نريد حتى نصل إلى ما نريد

أخي الفاضل مرفق لك الحل بطريقتين فرز الكمية 001.rar

مطلوب كلمة السر الخاصة بالدخول

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

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

السلام عليكم ورحمة الله وبركاته اشكركم يا شباب على حسن ترحيبكم اشكرك اخي ابو الآء 1. التقرير عبارة عن تقرير عادي ، يمكنك عمل ما شئت به من طباعة وحفظ بالصيغ التي يسمح بها الاكسس 2. فكرة ممتازة ، لانه في بعض الاشياء اللي لها علاقة بالكود ، وقد يستفيد منها الآخرون ، فمثلا: الكود يعمل قاعدة بيانات خارجية ، ويلصق بها البيانات التي طلبتها ، ثم يمسح هذه القاعدة ، والسبب اني عملت هذا ، لأني لا احبذ ان تكون الجداول المؤقته في البرنامج ، حيث ادخال البيانات فيها ثم حذفها ، يؤثر على حجم البرنامج ، ويجب عليك عمل Com[act and Repair بين الحين والآخر ، بينما عمل جدول مؤقت في قاعدة بيانات مؤقته خارج البرنامج ، لا يكلف إلا كود في عملها ، وكود آخر في حذفها ، وَكَفَى اللَّهُ الْمُؤْمِنِينَ الْقِتَالَ جعفر

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

السلام عليكم ورحمة الله وبركاته ... افتح النموذج في عرض التصميم حدد حقل التاريخ واضغط على خصائص من خصائص اختر بيانات من بيانات اختر القيمة الإفتراضية وضع هذا الكود = DMax("date_sequence";"student")+1 ملاحظة : عند تسجيل اول سجل يجب ان تقم بتسجيله يدويا وبعدها سيتم التسجيل تلقائي . وإليك المرفق .. اتمنى ان يكون ماطلبت . بالتوفيق ان شاء الله . New تطبيق Microsoft Office Access.rar

استاذى العزيز / ياسر خليل و الاخ الكبير MEZO1975 لا يسعنى الا الدعاء لكم بالخير و التوفيق فى الدنيا و الاخرة جمعنا الله دائما على كل خير و زادكم الله من علمة مع الشكر

اسف جدا جدا جدا انى حاولت المساعده ولكن لم اوفق فى ذلك ولم افهم طلبك جيدا وعلى كل انا بحثت فى هذا الموضوع مرار وتكرار وهذا ما توصلت اليه وللعلم لن تجد مثل هذا المثال فى المنتديات لا العربية ولا الاجنبية الا هنا فقط الا إذا قام احدهم بنقله ونسبته لنفسه لاننى بفضل الله وبفضل اساتذتنا الكرام فى هذا المنتدى سواء بطريق مباشر او بغير مباشر قمت بالتعديل عليه للخروج على تلك الهيئة التى لم ترضى ما تتوق اليه نفسك اممممممم اتمنى ان تجد ضالتك واتمنى لو وفقت ووجدتها لا تحرمنا من ارفاق مثال يوضح مالم نستطع فهمه او لم نوفق فى الوصول اليه وعلى كل اليك تعديل بإضافة نموذج اخر للبحث كما ورد فى المثال الاجنبى اعتقد قد يلبى طلبك وان لم اوفق هذا اقصى ما استطع فعله انظر النموذج الجديد بأسم frmSearchHighlight انظر النموذج الجديد بأسم tblCustmers-Search Search-up.rar

. وضع صورة داخل خلية حسب رقم الصورة khezzani-photos.rar

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

إذا كنت قد فهمت الملف المرفق (هذا فهمي !!) فإليك الملف المرفق به حل باستخدام الدالة Sumproduct ... تراخيــص.rar

الحلقة الرابعة عشر ***************** السلام عليكم ورحمة الله وبركاته وحشتكم !! أكيد لا .. لأني لو وحشتكم كنتو فتحتوا الباب وسألتوا عليا .. عموما إنتو وحشتوني ، وعشان وحشتوني هاقدم لكم حلقة جديدة يمكن تفتكروني. النهاردة هتكلم عن حاجة ناس كتير شرحوها ، وشرحوها بشكل ممتاز ، ودا خلاني مش عارف أشرح إزاي ، لأن اللي شرحوها وفوا شرحها صراحة .. هنتكلم عن الحلقات (بس مش حلقات افتح الباب) الحلقات اللي هنتكلم عنها الحلقات التكرارية ، ومن اسمها هي عبارة عن حلقات بتتكرر (إضافة عظيمة!) اسمها بالإنجليزي Loops ودي مهمة جداً في عالم الأكواد ، محدش يقدر يستغنى عنها تقريباً .. نفترض إني دخلت الفصل (بما إني معلم) ولسه دي أول مرة أتعرف على الطلبة اللي في الفصل ..يا ترى أنا عندي استعداد أخلى طالب طالب يقوم وأنا أقوله قول اسمك والطالب اللي بعديه قول اسمك .. أعتقد إن ريقي هينشف ودماغي هتصدع ودا طبعا مش يرضيكم (مش كدا ولا ايه) ..أنا من النوع الكسول فكل اللي هعمله هعمل تكرار من أول طالب في الفصل لآخر طالب ، وأعطي الأمر مرة واحدة .. من أول طالب إلى آخر طالب قووووول اسمك يا حبيبي الطالب التالي هو دا شكل الحلقة التكرارية .. نبرمجها بلغة الـ VBA ... هنقول إن الفصل فيه 60 طالب (معلش دا واقع الفصول في مصر) .. نقطة مهمة مننساش إن الطالب متغير مش ثابت ، فنرمز للطالب المتغير بالرمز X مثلاً ... Sub Loops() Dim X As Long For X = 1 To 60 'Say your name Next X End Sub طبعاً الكود دا شوية له علاقة بالبرمجة وشوية هتش .. ايه اللي هنعمله ..زي ما اتعودنا (دايما) إننا نعرف المتغير .. ونركز في السطر الثاني بدأ بكلمة For متبوعة باسم المتغير اللي هو X وبعدين علامة يساوي عشان نحدد قيمة X المتغيرة (أو الطالب المتغير) وهنا القيمة ليها بداية وليها نهاية (كل شيء له بداية ونهاية) وبيفصل بين البداية والنهاية حرف الجر To وفي آخر الحلقة التكرارية جملة Next X وممكن نقول Next ونسكت ، ومحرر الأكواد هيفهم لوحده .. بس أنا تقليدي شويتين فخلينا نكتب المتغير ، عشان الكود ممكن يكون فيه أكتر من حلقة تكرارية .. الجزء المهم هو الجزء اللي بين السطرين ، وهو دا الأمر المطلوب تكراره ، السطر اللي هنا مجرد تعليق وهتش وملوش علاقة بالبرمجة .. بس حبيت أقرب لكم الفكرة بأسلوب جديد.. كدا لما أنفذ الكود اللي فات ، كل اللي عملته إني أعطيت الأمر مرة واحدة وبس (وأنا حاطط رجل على رجل ... الدورة تلف على طالب طالب ، ويقول اسمه ، ولما يخلص ، الدورة تنتقل للطالب اللي بعديه وهكذا إلى أن ينتهي الطلاب ، ولما الـ 60 طالب يخلصوا ..يتم إيقاف تنفيذ الكود... ناخد أول مثال بجد عشان نقدر نتعلم إزاي نستفيد من الحلقات التكرارية :: لنفترض أننا عايزين نرقم النطاق A1:A10 بالأرقام من 1 إلى 10يعني الخلية A1 = 1 والخلية A2=2 وهكذا ..طبعا الموضوع بسيط جدا Sub NumberRange() Range("A1").Value = 1 Range("A2").Value = 2 Range("A3").Value = 3 Range("A4").Value = 4 Range("A5").Value = 5 Range("A6").Value = 6 Range("A7").Value = 7 Range("A8").Value = 8 Range("A9").Value = 9 Range("A10").Value = 10 End Sub كود في منتهى الروعة .. شايف حسام بيضحك ويقولي عايزك ترقم النطاق من A1:A100 (وابتسم ابتسامة فيها شماته !!) نفكر شوية .. بقول نفكر شوية (بلاش تكمل الحلقة غير لما تبص في الكود وتفكر شوية .. فكر شوية واكسب التوفير في الوقت والجهد) ايه المشترك في أسطر الكود .. وايه المختلف .. المتشابه في كل الأسطر Range("A ").Value = والمختلف هو الرقم بعد حرف الـ A ، والقيمة اللي بعد علامة يساوي .. في السطر الأول الرقم اللي بعد حرف الـ A هو 1 ، والقيمة بعد علامة يساوي بردو 1 ، ونفس الكلام مع السطر رقم 2 ، ورقم 3 وهكذا يبقا أول حاجة تفكر فيها إنك المختلف أو المتغير أو الشيء الغير ثابت تضعه في متغير ، ودا لأنه مش ثابت ومتغير .. فنضع متغير باسم X مثلاً ونعمل حلقة تكرارية من 1 إلى 10 (دي القيم اللي هيحملها المتغير) Sub NumberRange() Dim X As Long For X = 1 To 10 Range("A" & X).Value = X Next X End Sub نفس الكود اللي شرحناه من شوية ، الاختلاف في السطر اللي بين سطري التكرار .. الحلقة هتدور 10 مرات ، وفي كل مرة المتغير X بيحمل قيمة مختلفة (نرررررركز في الجزئية اللي جاية لأنها مهمة جداً جداً ) مش هنفذ الكود مرة واحدة .. سنقوم بعملية التنفيذ واحدة واحدة ، اللي مستعجل يروح ينفذ الكود مرة واحدة ، واللي مش مستعجل أنا معاه ..عشان يعرف حاجة مش هيعرفها الأخ المستعجل ... ضع مؤشر الماوس في أي مكان في الكود .. جميل >> اضغط F8 من لوحة المفاتيح ، وجمد قلبك وقول يا رب .. لاحظت ايه يا عبد المحسن؟ عبد المحسن ناااااااام مني (الله يسامحك) ..عبد المحسن : شايف الدنيا صفرا ليه ، هو فيه عاصفة النهاردة كمان؟ .. رديت عليه : لا يا عبد المحسن كمل نومك ، السطر الأصفر اللي ظهر ده سببه إننا ضغطنا F8 .. ودا فايدته إننا هنقوم بعملية التنفيذ واحدة واحدة .. سطر سطر .. السطر الأصفر على أول سطر في الكود Sub NumberRange() اضغط F8 مرة تانية ، ايه اللي حصل انتقل السطر الأصفر للسطر التالت ، طيب والسطر التاني يا معلم .. ملوش لازمة !!! أكبر خطأ إنك تعتقد إنه ملوش لازمة ، لما ضغطنا F8 للمرة التانية ، محرر الأكواد خزن في الذاكرة كل المتغيرات الموجودة في الكود عايز تتأكد من كلامي ، حرك مؤشر الماوس اللي على شكل حرف I (فيه شرطة فوق وشرطة تحت) حرك الماوس من غير ما تدوس كليك .. واقف على المتغير X هتلاقي تلميح في مستطيل صغير بيقولك المتغير X=0 ، دي كدا القيمة المبدئية للمتغير ... لما تضغط F8 للمرة التالتة ، روح شوف قيمة X مرة تانية هتلاقي قيمة X=1 (ايه اللي خلاها 1 مش كانت صفر من لحظة ) اللي حصل إننا انتقلنا من السطر For X = 1 To 10 والسطر دا هيبدأ في عمل الحلقة التكرارية اللي بنقول عليها ، والحلقة بدايتها 1 زي ما حددنا (وطبعاً ممكن نغير نقطة البداية يا شباب .. مش شرط 1) حرك مؤشر الماوس من غير ما تدوس على المتغير X في السطر المظلل بالأصفر Range("A" & X).Value = X هنلاقي زي ما قلت إن X =1 يعني محرر الأكواد هيعمل ايه دلوقتي ، هيشيل كل X ويحط مكانه القيمة 1 ، فيصبح السطر في الذاكرة بهذا الشكل Range("A1").Value = 1 لحد كدا تمام التمام ، صغر محرر الأكواد بحيث تكون ورقة العمل ظاهرة بالنسبة لك واتأكد إن النطاق A1:A10 فارغ ليس به أي بيانات ، وركز في ورقة العمل ، واضغط F8 عشان تنقل السطر الأصفر إلى هذا السطر ، ولاحظ ورقة العمل Next X لاحظت يا منصور الخلية A1 وضعت فيها القيمة 1 ، نخلي بالنا إن السطر الأصفر بيتم تنفيذه بعد الخروج منه ، فلما خرجنا من السطر تم تنفيذ الأمر وأعطى القيمة 1 للخلية A1 .. اضغط F8 مرة أخرى ، ونلاحظ إن السطر الأصفر انتقل للسطر اللي قبليه ، مش لبداية الحلقة التكرارية ، يعني ببساطة السطر اللي بيحدد بداية الحلقة ونهايتها بيعدي عليه مرة واحدة فقط .. أما سطر الأمر والسطر اللي فيه كلمة Next بيبدل السطر الأصفر عليهم... نبص دلوقتي على قيمة المتغير X هنلاقيها بقت 2 فيتم تنفيذ السطر بمجرد الضغط على F8 ويضع القيمة 2 في الخلية A2 وهكذا ..جرب واضغط F8 وفي كل مرة شوف قيمة المتغير X وشوف النطاق A1:A10 في كل مرة أول ما توصل قيمة المتغير X إلى الرقم 10 تتوقف الحلقة التكرارية ، وينتقل السطر الأصفر لجملة End Sub .. وينتهي عمل الكود .. عارف إني طولت في النقطة اللي فاتت ، بس كان لازم أطول فيها ، عشان أنا فاضي ومفيش ورايا شغل ، فقلت أصدعكم شوية!! ننتقل لمثال آخر --------------- عشان نقدر نفهم إزاي نستفيد من الحلقات التكرارية .. عايزين نعد الاسم (أحمد) في النطاق A1:A10 نفترض إني عندي الأسماء دي في النطاق A1:A10 أحمد ياسر سليم حسام عيسى أحمد أحمد خليل عبد الله أحمد المطلوب : نشوف الاسم (أحمد) كم مرة تم تكراره .. المعطيات : استعن بالله ثم بالحلقة التكرارية .. الفكرة : هنعمل اختبار صغير بقاعدة IF وهنقول لو قيمة الخلية بتساوي "أحمد" .. زود المتغير Counter بقيمة واحد Sub CountName() Dim X As Long Dim Counter As Long For X = 1 To 10 If Range("A" & X).Value = "أحمد" Then Counter = Counter + 1 Next X MsgBox Counter End Sub عملنا متغير جديد باسم Counter عشان لما يتحقق الشرط ويلاقي الاسم "أحمد" يقوم يخلي المتغير Counter يساوي نفسه + 1 طيب ليه يساوي نفسه ، عشان في كل مرة يلاقي أحمد قيمته هتتغير فلازم نضيف واحد لكل Counter جديد النتيجة في الآخر هتظهر في رسالة ، وهي 4 .. طيب نجرب نشيل الواحد في هذا السطر Counter = Counter + 1 لو شيلنا الواحد هتكون النتيجة 0 ، لأن المتغير قيمته المبدئية صفر ، فلما يتحقق الشرط مش هيزيد المتغير إلا لما نضيف واحد في كل مرة يتحقق الشرط. هناخد مثال آخر ---------------- عندنا درجات في النطاق A6:A15 ، عايزين نكتب ناجح أوراسب في الخلية المجاورة للدرجة ، لو الدرجة أكبر من أو يساوي 50 يبقا ناجح ، مكانش يكون راسب ... نخلي بالنا أنا غيرت بداية النطاق عشان الحلقة التكرارية بردو هتتغير بدايتها ونهايتها طبقاً للصفوف الجديدة 58 41 88 40 50 40 98 94 60 35 نجرب الكود التالي .. Sub LoopsTest() Dim X As Long For X = 6 To 15 If Cells(X, 1).Value >= 50 Then Cells(X, 2).Value = "ناجح" Else Cells(X, 2).Value = "راسب" End If Next X End Sub نلاحظ الحلقة التكرارية بدأت من 6 إلى 15 (ودا متغير للصفوف من الصف رقم 6 إلى الصف رقم 15) ووضعنا الشرط بين سطري الحلقة التكرارية ، لو الخلية اللي في الصف X والعمود الأول أكبر من أو يساوي 50 يقوم يعمل ايه؟ يضع القيمة النصية "ناجح" في الخلية اللي في العمود الثاني والصف X (نفس الصف بالطبع لأن قيمة X في الحالة دي هي هي نفس القيمة لأننا في نفس اللفة) .. إذا لم يتحقق الشرط قام بتنفيذ الجزء الثاني بأن يكتب النص "راسب" ثم إغلاق جملة IF بالجملة End IF ومننساش القفلة زي ما اتعودنا.. ننتقل لآخر مثال في الحلقة دي (عشان أنا تعبت وإنتو كمان أكيد تعبتو) في الأمثلة اللي فاتت عملنا حلقات تكرارية للصفوف .. واحد بيقولي طيب والأعمدة ملهاش نصيب في الدوخة اللي إحنا فيها دي .. أقوله أكيد ليها نصيب .. المطلوب إننا في الصف الرابع ، نكتب معادلة =COLUMN() بس في الأعمدة من العمود رقم 1 إلى العمود رقم 15 (A To O) نعقدها شوية ونقول في الأعمدة اللي رقمها فردي بس (الأعمدة اللي رقمها زوجي مش محتاجينها) يعني ببساطة عايزين نحط المعادلة في الأعمدة A C E G I K M O Sub ColumnsLoop() Dim X As Long For X = 1 To 15 Step 2 Cells(4, X).Formula = "=COLUMN()" Next X End Sub الحلقة التكرارية بدأت من العمود الأول حتى العمود رقم 15 (البداية والنهاية) معلومة جديدة Step 2 (دي معناها إننا هنقفز ..والقفز هيكون بمقدار 2 أي خطوتين) بدأنا بـ 1 فلما نقفز بمقدار 2 ، هنروح لرقم 3 ، أي أن المتغير سيكون رقم فردي في كل مرة 1 ، 3 ، 5 ، 7 ، 9 ، 11 ، 13 ، 15 (وهو دا المطلوب بالضبط) سطر الأمر فيه الخاصية Formula ودي عشان نقدر نضع معادلة من خلالها .. والمعادلة ببساطة زي ما شفناها من شوية بس بتكون بين أقواس تنصيص .. طيب الجزء الأول من السطر نلاحظ إننا استخدمنا Cells ودي بتكون متبوعة بقوسين ، وبين القوسين رقم الصف ثم فاصلة ثم رقم العمود ، وبما إن رقم الصف ثابت اللي هو رقم 4 ، فكتبناه زي ما هو .. اما رقم العمود فمتغير فوضعنا رقم العمود X ... جرب الكود وشوف النتيجة بنفسك أرجو أن أكون قد وفقت في توصيل المعلومة بأسلوب مبسط كان معكم أخوكم أبو البراء من تراك أوفيسنا (لف على الحلقات من الحلقة رقم 1 إلى الحلقة رقم 14 .. لو عايز تتعلم الـ VBA) ويا رب ميكونش فيه حد جاله دووووووووخة من كتر اللف .. والله أنا اللي دوخت أستودعكم الله .. دمتم في رعاية الله تقبلوا تحياتي .. دمتم بود

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

بارك الله فيك وجعله في ميزان حسناتك

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

لسلام عليكم حسب فهمي لطلبك جرب هذا الملف (قم تغيير قيم الخلية المتغيرة ولاحط) aa.rar