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

أترككم مع التجربـة منتظر رأيك يا دكتور @حلبي ولى عودة بعد التجربة text Reader.mdb

السلام عليكم ورحمة الله وبركاته دكتور @حلبي شوف دى فكرة انك تسجل كل شئ وتشغله بالطريقة دى sound files.rar

الدالة الغبية والدالة العبقرية الدالة () DLookup والدالة () ELookup هل تصدق ان هناك دالة غبيه قد تستغرب ان اقول لك انها دالة () DLookup والكل منا يعرفها ويعرف استخداماتها فهي ببساطة تعيد او تسترجع قيمه واحدة من الجدول . عيوبها : 1. تعيد اول قيمة فقط تم وضعها في الدالة في عملية البحث . 2. لا تستطيع بإي حال من الاحوال اعادة الحقل المفهرس . 3. قد تحصل على نتائج متناقضة ومتقلبة حتى من نفس نوع البيانات التي تبحث عنها اذا كان لا يوجد مفتاح اساسي في الجدول وقمت بعملية ضغط قاعدة البيانات . ( جرب بنفسك وأنظر النتائج الغبية التي تعطيك هذه الدالة ) . 4. اداء هذه الدالة سيئ للغاية فهو لا يقوم بمسح ما تم البحث عنه سابقا ويفترض ان تكون القيم خالية بعد عملية كل بحث . 5. ظهور العديد من الاخطاء والرسائل من الاكسيس عندما تكون القيم خاليه . الدالة () ELookup العبقرية هل احد منكم سمع عن هذه الدالة ( دالة جديده تم اختراعها ) لنرى إمكانات هذه الدالة 1. قمة في الاداء والابهار والقوة والمتانة والمرونه . 2. تسمح لك بتحديد اي نوع من البيانات ولا تتقيد يحقول معينه . 3. تسمح لك بإستخدام الاقل MIN والاعلى MAX من القيم . 4. بعد عملية البحث والبدء بعملية استخدام جديده تجد القيم خالية وجاهزة لتقبل اي امر . 5. اسرع من الدالة () DLookup بعشر مرات . 6. قد ترغب في تعديل مسار البحث قبل استعمال الدالة فتستطيع ذلك بدون ظهور رسائل MsgBox لكل صف . 7. تقوم هذه الدالة بتمييز وتحسس ومعرفة ان هذا الحقل Zzero-length( طول صفري ) او خالي من البيانات Null . 8. اذا استخدمت في الاستعلامات فأنظر الى النتائج الباهره حتى لو استخدمت معها اربعة معايير مختلفه . قد يكون عيبها الوحيد انها تحتاج الى مكتبة DAO وهذا ليس بعيب ولكن لانها ليست من دوال برنامج الاكسيس . امثلة على طريقة استخدامها 1. ايجاد القيمة الاخيرة متضمنة الـ DESC ELookup("[Surname] & [FirstName]", "tblClient", , "ClientID DESC") اذا رغبت في اضافة حقول اضافية قم بالاضافة فهي تقبل جميع الحقول ولا تقتصر على حقل معين 2. ايجاد القيم الاقل الغير خالية Null بإستعمال المعايير ELookup("ClientID", "tblClient", "Surname Is Not Null" , "Surname") واليكم الدالة الجباره بكل معنى الكلمة ويفضل مقارنة نفس النتائج مع الدالة السابقة لتروا الفرق كل ما عليك هو وضعها في وحدة نمطية ومن ثم استخدامها سواء في النماذج او الاستعلامات او التقارير او الماكرو . Function ELookup(Expr As String, Domain As String, Optional Criteria, Optional OrderClause) On Error GoTo Err_ELookup ' DAO ملاحظة: تحتاج الى مرجع مكتبة Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSql As String 'بناء جملة الاستعلام strSql = "SELECT TOP 1 " & Expr & " FROM " & Domain If Not IsMissing(Criteria) Then strSql = strSql & " WHERE " & Criteria End If If Not IsMissing(OrderClause) Then strSql = strSql & " ORDER BY " & OrderClause End If strSql = strSql & ";" 'البحث عن القيم Set db = DBEngine(0)(0) Set rs = db.OpenRecordset(strSql, dbOpenForwardOnly) If rs.RecordCount = 0 Then ELookup = Null Else ELookup = rs(0) End If rs.Close Exit_ELookup: Set rs = Nothing Set db = Nothing Exit Function 'zahrah Err_ELookup: MsgBox Err.Description, vbExclamation, "ELookup Error " & Err.Number Resume Exit_ELookup End Function

مميزات الفورم السحرى 1-الفورم يستكشف جميع الجداول المصممة فى اى ملف اكسل 2- التعامل مع تلك الجداول من حذف واضافة وبحث وترحيل 4- ضبط عرض أعمدة اليست بوكس من خلال ضبط أعمدة الجدول 3- الفورم يكتشف المعادلات ويحميها تلقائيا 5- الفورم السحرى يكتشف اعمدة التواريخ تلقائيا 6- الفورم يقبل تدعيم الجداول بالصور تلقائيا 7- الفورم يحدد اوتوماتيكيا المكان الجغرافى للجداول داخل ملف الاكسل وهناك كثير للميزات ستكتشفها بنفسك عند العمل على الفورم السحرى هذا شرح مصور الاخ الرائع عماد الغازي بالمناسبة أشكره من كل قلبي على هذا الشرح جزاه الله خيرا الفورم_السحرى.rar

صور بداخل الرسم البيانى بالاكسل الفيديو الصور رابط الملف http://www.mediafire.com/file/abefpdt2r7hvg4v/ادراج+صورة+داخل+الرسم+البيانى.rar

بحث بالفورم فى سبع عواميد بالاكسل الفيديو الصور بحث بالمسلسل تكبير الصورة معاينة الأبعاد الأصلية. بحث بالاسم تكبير الصورة معاينة الأبعاد الأصلية. بحث بتاريخ الميلاد تكبير الصورة معاينة الأبعاد الأصلية. باقى البحث فى الفيديو بحث بالكود وبحث فى المحافظة وبحث فى الديانة وبحث فى النوع ملف البحث ب7 طرق http://www.mediafire.com/file/b88sbcnad9bs8g1/فورم+بحث++فى+7+عواميدبيانات+الطلاب.rar

فورم اكسل لاستدعاء ملفات pdf الفيديو الصور http://www.mediafire.com/file/6qk8jjv5jj2mlyg/pdf++فورم+استدعاء.rar

الرسم البيانى بالاكسل 3d الفيديو الصور رابط الملف http://www.mediafire.com/file/e328ajfnetadd14/3D+الرسم+البيانى.rar

العغو استاذ @محمد احمد لطفى انا اقل طالب علم فى هذا الصرح الشامخ ولكن من وجهة نظرى لها عيوب - يجب اتصال الجهاز بالانترنت لا تعمل اوف لاين -هناك خلل ايضا فى القراءة وان كان يمكن التغلب على هذا الخلل بالكتابة بالعربية الفصحى بالقواعد النحوية والتشكيل لازلت اؤيد ان كان ولابد حتما تسجيل الاصوات وتشغيلها افضل

السلام عليكم ورحمة الله جرب الفكرة التي وضعتها في الملف... تم إضافة شيت جديد نضع فيه الأسماء في العمود A وصورة كل اسم في العمود B (صورة بحجم الخلية تقريبا 2.3 سم × 3.3 سم) وباستعمال المعادلات والتسميات تم عمل المطلوب... بن علية حاجي جلب الصورة على اساس الأسم.xlsx

السلام عليكم جرب المرفق... بن علية حاجي حصص الاحتياط.xlsm

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

Database8.accdb

طبعا يجب الانتباه لمسار الاكس تبعا للاصدار يعنى مثلا انا استخدم اوقيس 2019 يجب ان اقوم بتغيير السطر الاتى C:\Program Files\Microsoft Office\Office14\msaccess.exe ليصبح C:\Program Files (x86)\Microsoft Office\root\Office16\MSACCESS.EXE

السلام عليكم 🙂 جرب هذه الطريقة: جعفر

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

- المعاملة الواحدة تأخذ رقما من بدء العمل على هذا الكتاب وهتى الانتهاء منه ويتم الحفظ هتى لو تم تحويلها 100 مره -ولكن الكتاب الصادر رقم غير الكتاب الوارد كل منها له تسلسل يختلف عن الاخر ولكن قد يرتبط كتابان صادر واخر ووارد بعد ان يأخذ كل منهما رقمه الطبيعى مثال الوارد رقم : 2019/27 الموضوع : مناقشة مشروع برنامج الارشيف الالكترونى برجاء الرد على نقاط النقاش الجهة الوارد منها : منتديات اوفيسنا ---------------------------------------------------- الصادر رقم : 2019/106 الموضوع : بخصوص موضوع الرد على موضوع النقاش الوارد الينا برقم 2019/27 الجه الصادر اليها : منتديات اوفيسنا الموضع مرتبط : نعم مرتبط بـ : وارد رقم الواردالمرتبط به الموضوع : 2019/27 ------------------------------------------------------------------------------------------------------------------------- اما بخصوص السنوات سبق ووضعت قاعدة بينات هنا فى المنتدى فى قسم الملفات الخاصة بالاكسس اعتقد انها سوف تكون حل لموضوع السنوات حيث يمكن بكل بساطة وسهولة التغيير والتنقل بين القواعد المختلفة بسهولة وبدون تعقيدات

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

انا متفق معاك ، لابد ان يكون للصادر او الوارد رقم واحد موحد على جميع الاجراءات ، ولكن كلامي كان عن الاجراءات ، فبالاضافة الى تاريخ المعامله ، فقد تم طلب اعطاء رقم فرعي لهذه المعاملة ، لسهولة التخاطب برقمها ، مثلا : مثلا قدمت على طلب اجازة وتم تقييدها في صادر القسم برقم 25 في 1-1 الساعة 10.5 وردت لمكتب المدير بنفس الرقم وتاريخ 1-1 وردت لمكتب الموظف مرة ثانية لأن المدير عنده استفسار ، بنفس الرقم وتاريخ 1-1 وردت لمكتب المدير بنفس الرقم وتاريخ 1-1 احيلت للموارد البشرية قسم الوارد بتاريخ 1-1 (طبعا نتكلم عن موظف عنده واسطة 🙂 ) فبدل ان يُشار للمعامله بإسم فلان اللي بعد فلان .... ، فيُشار اليها برقم فرعي ، كالتالي: 25.0 مثلا قدمت على طلب اجازة وتم تقييدها في صادر القسم برقم 25.0 في 1-1 الساعة 10.5 25.1 وردت لمكتب المدير بنفس الرقم وتاريخ 1-1 25.2 وردت لمكتب الموظف مرة ثانية لأن المدير عنده استفسار ، بنفس الرقم وتاريخ 1-1 25.3 وردت لمكتب المدير بنفس الرقم وتاريخ 1-1 25.4 احيلت للموارد البشرية قسم الوارد بتاريخ 1-1 (طبعا نتكلم عن موظف عنده واسطة 🙂 ) جعفر

السلام عليكم ورحمة الله وبركاتة هذا المثال / للأستاذة زهرة العبدالله عن الدالة DLookup_ELookup وأضعه هنا بناء على طلب احد الاعضاء لأن طلبه كان في موضوع قديم جدا للاستاذة ::بالتوفيق للجميع :: za_DLookup_ELookup.rar

جزاكم الله خيرا اخى الحبيب واستاذى الكريم استاذ @kaser906

السلام عليكم 🙂 فكرة عمل جدول واحد للصادر والوارد نابع من تشابه الحقول ، ومثل ما قال الاخ kha9009lid : . ولكن وحسب علمي في احد المؤسسات ، فكان كتاب الوارد له رقمه الخاص ، ولكن تم طلب اعطاء المعامله رقم فرعي لكل خطوة تمر بها (يعني تحويل المعامله من الموظف الى رئيس القسم لإبداء رأيه ، ثم الى مدير الدائرة للموافقة ، ثم قد يكون عند المدير استفسار فيُرجع المعامله الى رئيس القسم). فصحيح ممكن استيعاب هذا كجزء من جدول واحد ، ولكن قد تحتاج الى جدولين او حتى ثلاث جداول لهذه الحركات 🙂 جعفر

مو على قولك ، ما كنت ادري نوع البكتيريا ، فقلت يالله نتعامل مع الاثنين 🙂 جعفر

والآن مادامت الوحدة النمطية Isolate تقوم بالعمل على طول ، جربها على البكتيريا حياك الله 🙂 جعفر

شكرا للصديق العزيز والاخ الغالى الاستاذ @محمد سلامة

الافضل ان تجعل جدول منفصل للوارد وجدول الصادر .. وذلك لم سيتم بعد ذلك من استعلامات وبحث ومتابعة علي كل نوع 🌹🌹 تحياتي

استاذ @SEMO.Pa3x استأذن حضرتك اقتبس واستخدم من الاكواد ما يناسب حاجتى من هذا المرفق

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

السلام عليكم لمن يريد الاستفادة من الملف فقد عدلته جيدا شكرا consolider.rar

هممم طريقة غير متعودين عليها ، ولكن هذا حال قواعد البيانات ، وخصوصا اذا جابوا البيانات من الاكسل ، حيث يخلطون البيانات 🙂 بيانات الجدول ، الاستعلام qry_1 ، ولاحظ كيف ننادي الوحدة النمطية Isolate ونخبرها شو التصفية اللي نريدها (عربي ، انجليزي ، ارقام ، علامات) ، ونرسل لها قيمة الحقل ، وبما اننا عملنا حقل لكل لغة ، فتعطينا كل قيمة في حقلها ، بينما الاستعلام qry_2 ، يأخذ تصفيتة من الحقل cmb_Lang من النموذج Form1 ، ويعطينا فقط تصفية الحقل Name . والتجربة . الطريقة اللي جاءت على بالي ، هي استعمال Ascii كل حرف من حروف الخط ، وهو رقم الحرف ، وهي ارقام ثابته بغض النظر عن نوع الخط المستعمل ، هذا الجدول الاصل لجميع حروف وحركات اللاتينية/الانجليزي، وهنا قيمة Asc موجودة في العمود Dec . وهذا جدول الحروف العربية ، من https://www.aivosto.com/articles/stringopt3.html . الوحدة النمطية Isolate : تقوم الوحدة النمطية ، وعلى اساس اللغة المطلوبة (والتي يتم ارسالها من الاستعلام ، مع القيمة) ، بقراءة كل حرف من القيمة ، وعلى اساس اللفة و الحرف ، يتم اخذ قيمته الـ Asc للحرف (وقد يكون من الافضل استعمال AscW ، كون القيمة تحتوي على حروف UTF-8 او Unicode) ، ويقوم بجمعها ، ورد القيمة الى الاستعلام: Public Function Isolate(Lang As String, str As String) As String 'Lang = "E" = "English" 'Lang = "N" = "Numbers" 'Lang = "C" = "Characters" 'Lang = "A" = "Arabic" Dim i As Integer Dim curAsc As Integer Dim curChr As String Dim con As String For i = 1 To Len(str) curChr = Mid(str, i, 1) 'one character at a time curAsc = Asc(curChr) 'Asc of that character If Lang = "E" And ((curAsc > 64 And curAsc < 91) Or (curAsc > 96 And curAsc < 123)) Then '65 to 90 capital letters, 97 to 122 small letters con = con & curChr ElseIf Lang = "N" And (curAsc > 47 And curAsc < 58) Then '48 to 57 capital letters con = con & curChr ElseIf Lang = "C" And ((curAsc > 31 And curAsc < 48) Or _ (curAsc > 57 And curAsc < 65) Or _ (curAsc > 90 And curAsc < 97) Or _ (curAsc > 122 And curAsc < 127)) Then '32 to 47, 58 to 64, 91 to 96, 123 to 126 con = con & curChr ElseIf Lang = "A" And curAsc > 127 Then 'Extended Ascii , > 127 con = con & curChr End If Next i Isolate = con End Function جعفر 1034.Filter.accdb.zip

بارك الله فيك أستاذنا الفاضل ولكن هناك ملحوظة في السطر Or C.Offset(0, -3).Value Or C.Offset(0, -3).Value = "" Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then سهوًا لم تكتب شرط = "غ" فيصبح Or C.Offset(0, -3).Value = "غ" Or C.Offset(0, -3).Value = "" Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then حتى يعمل الكود بشكل سليم فالكود بعد التصويب وجزاك الله خيرًا وجعله في ميزان حسناتك Sub Circles1() Dim C As Range Dim MyRng As Range, V As Shape Dim X As Integer, G As Integer, R As Integer, D As Integer '================================================ G = 2 ' عمود رقم الجلوس R = 13 ' صف الدرجات Set MyRng = Range("W14:W1013,AF14:AF1013,AO14:AO1013,BA14:BA1013,BM14:BM1013,BQ14:BQ1013,BU14:BU1013,CF14:CF1013,CO14:CO1013,DA14:DA1013") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 1 If C.Value = "" Then GoTo 1 On Error Resume Next If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) _ Or C.Offset(0, -1).Value < Cells(R, C.Column - 1) Or C.Offset(0, -3).Value < Cells(R, C.Column - 3) _ Or C.Offset(0, -3).Value = "غ" Or C.Offset(0, -3).Value = "" Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 2, C.Top + 2, C.Width - 4, C.Height - 4) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.5 D = D + 1 End If 1 Next Set MyRng = Range("BV14:BV1013") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 2 If C.Value = "" Then GoTo 2 If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Offset(0, -1).Value < Cells(R, C.Column - 1) Or C.Offset(0, -2).Value < Cells(R, C.Column - 2) Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 2, C.Top + 2, C.Width - 4, C.Height - 4) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.5 D = D + 1 End If 2 Next Set MyRng = Range("AX14:AX1013,bj14:bj1013,CX14:CX1013") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 3 If C.Value = "" Then GoTo 3 If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 2, C.Top + 2, C.Width - 4, C.Height - 4) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.5 D = D + 1 End If 3 Next ActiveWindow.Zoom = X Application.ScreenUpdating = True MsgBox "تم إضافة " & D & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub

السلام عليكم ورحمة الله اجعل الكود هكذا Sub Circles1() Dim C As Range Dim MyRng As Range, V As Shape Dim X As Integer, G As Integer, R As Integer, D As Integer '================================================ G = 2 ' عمود رقم الجلوس R = 13 ' صف الدرجات Set MyRng = Range("W14:W1013,AF14:AF1013,AO14:AO1013,BA14:BA1013,BM14:BM1013,BQ14:BQ1013,BU14:BU1013,CF14:CF1013,CO14:CO1013,DA14:DA1013") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 1 If C.Value = "" Then GoTo 1 On Error Resume Next If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) _ Or C.Offset(0, -1).Value < Cells(R, C.Column - 1) Or C.Offset(0, -3).Value < Cells(R, C.Column - 3) _ Or C.Offset(0, -3).Value Or C.Offset(0, -3).Value = "" Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 2, C.Top + 2, C.Width - 4, C.Height - 4) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.5 D = D + 1 End If 1 Next Set MyRng = Range("BV14:BV1013") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 2 If C.Value = "" Then GoTo 2 If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Offset(0, -1).Value < Cells(R, C.Column - 1) Or C.Offset(0, -2).Value < Cells(R, C.Column - 2) Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 2, C.Top + 2, C.Width - 4, C.Height - 4) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.5 D = D + 1 End If 2 Next Set MyRng = Range("AX14:AX1013,bj14:bj1013,CX14:CX1013") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 3 If C.Value = "" Then GoTo 3 If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Value = "غ" Or C.Value = "غـ" Or C.Value = "صفر") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 2, C.Top + 2, C.Width - 4, C.Height - 4) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.5 D = D + 1 End If 3 Next ActiveWindow.Zoom = X Application.ScreenUpdating = True MsgBox "تم إضافة " & D & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub

السلام عليكم 🙂 اخوي ابو عبدالله 🙂 تفضل المرفق ، ان شاء الله يكون هو المطلوب 🙂 لما افضى شوي ، ان شاء الله اشرح طريقة العمل 🙂 بس لوسمحت تخبرنا اذا هذا هو طلبك ، وان النتيجة صحيحة 🙂 جعفر 1033.stu.accdb.zip

بعد النظر في الملف ، عندك مجلد خارجي فيه ملفات PDF وتريد تعرض الملف حسب رقمه ، بعد النقر على List1 🙂 النتيجة ، وبدون الاكروبات ومكتباتها 🙂 . نستخدم IE WebBrowser ، والموجود على كل كمبيوتر ، وبدون اضافة ملفات 🙂 وهذا كود العرض: Option Compare Database Dim web As Object Private Sub Form_Load() 'On Error GoTo err_Form_Load DoCmd.Maximize 'specify that the browser is an object in the Form Set web = Me.WebBrowser_PDF.Object 'give the initial web page name web.Navigate "about:blank" 'don't show web page errors web.Silent = True Exit Sub Err_Form_Load: If Err.Number = 2447 Then MsgBox "Please Enter a Site Name for starting this Page" Exit Sub End If Resume Next End Sub Private Sub List1_Click() 'تحديد مسار الملف StrFileParh = CurrentProject.Path & "\booksindex\" web.Navigate StrFileParh & Me.List1 & ".pdf" web.Visible = True End Sub جعفر 1032.db2.zip

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

بارك الله فيك وجزاك الله كل خير نعم دائما وابدا نتعلم منه الكثير

IIf([حالة الموظف]="متوفي";[الراتب الاسمي];IIf([حالة الموظف]="متقاعد";[الراتب الاسمي];[الراتب الاسمي]*0.6)) اخي العزيز ممكن تستخدم الدالة IIF والتعديل عليها لحل المشكلة IIf([حالة الموظف]="متوفي";[الراتب الاسمي];IIf([حالة الموظف]="متقاعد";[الراتب الاسمي];[الراتب الاسمي]*0.6))

مع تحياتى الأيبانات(elshabory)_02.xlsx

بسم الله الرحمن الرحيم اقدم لكم اليوم اضافة جديدة وجميلة جدا للمبدع الاستاذ شوقى ربيع الاضافة عبارة عن فورم سحرى يقوم بالتعامل مع كل الجداول الموجودة فى اى ملف اكسل مميزات الفورم السحرى للمبدع الاستاذ شوقى ربيع 1-الفورم يستكشف جميع الجداول المصممة فى اى ملف اكسل 2- التعامل مع تلك الجداول من حذف واضافة وبحث وترحيل 3- الفورم يكتشف المعادلات ويحميها تلقائيا 4- الفورم السحرى يكتشف اعمدة التواريخ تلقائيا 5- الفورم يقبل تدعيم الجداول بالصور تلقائيا 6- الفورم يحدد اوتوماتيكيا المكان الجغرافى للجداول داخل ملف الاكسل وهناك كثير للميزات ستكتشفها بنفسك عند العمل على الفورم السحرى الفورم السحرى اضافة حذف تعديل ترحيل تحميل الصور بدون اكواد كل ما تحتاجة فى يوزرفورم واحد لمعرفة اكثر عن هذة الاداة الرائعة اسيبكم مع الشرح https://www.youtube.com/watch?v=dLMxILQVki4 Magic Dynamic Form1.rar

جرب هذه المعادلة ///تضع في الحلية F1 الرقم الذي تريده (10000 مثلاً)/// وتسحب نزولاُ =IF(H2>$F$1,(INT(H2/1000))*1000,$F$1) اما الشق الثاني من السؤال لم استطع فهمه الملف مرفق ضرب ارقام salim.xlsx

السلام عليكم اخوتي الكرام بعد اذن استاذي انس دروبي قمت برفع البرنامج على ميديا فاير ارجو أن يكون فيه الفائدة للجميع http://www.mediafire.com/file/qj43tqkzxyazmqu/برنامج_شؤون_وإدارة_الموظفين_بحلته_وشكله_الجديد_(مفتوح_المصدر).zip

بسم الله الرحمن الرحيم اخى ايثم : الكود صحيح لكن يوجد مسافه بعد workbook لذلك لم يعمل معى و يمكن اضافه حفظ قبل الخروج من الملف Sub Close_File() ThisWorkbook.Save ThisWorkbook.Close End Sub و يمكن أغلاق الاكسيل باكمله بالكود التالى Sub Close_Excel() ThisWorkbook.Save Application.Quit End Sub مرفق ملف السلام عليكم Close.rar