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

برنامج نقطه بيع مطعم - معجنات - وجبات اكسل يجب تنزيل اوفيس 2021 POS LIST 2024.xlsm

كما ذكر اخي @Foksh هناك ملاحظات :::: من ضمنها انك معتمد على الترقيم التلقائي وهذا خطأ المفروض تعتمد على رقم الطالب مثلا .... على العموم انا اجريت بعض التعديلات شوفها اذا ناسبتك اعتمدها - اختر التاريخ ( يظهر اليوم تلقائيا - ويكتب لجميع الطلاب حاضر ) - قم بتعديل الغائبين والمتاخرين في النموذج - اضغط على اعتماد غياب اليوم ( يتم نقل البيانات الى الجدول الثالث وهو بمثابة الجدول النهائي الذي يحغظ فيه غياب الطلاب خلال السنه برنامج تجريبي.accdb

أخي محمد ، دعني أرحب بك في عالمنا المتواضع ، أهلاً وسهلاً بك .. هناك عدة قواعد وأساسيات لنجاح الإستجابة لمواضيعك ( مستقبلاً ) أذكر لك منها للتذكير فقط لا غير الإهتمام بالعنوان بما يصف المطلوب في الموضوع . الإهتمام بالشرح الوافي للمشكلة وذكر المطلوب تفصيلاً واضحاً . لإرفاق ملف مصغر للمشكلة حتى يتم تطبيق الحلول عليه ؛ وفي نفس الوقت تكون الأمور واضحة للأساتذة والمعلمين والموهوبين الذين يحاولون المساعدة . وبشكل عام ، اقرأ هنا بعض القواعد لتساعدة في إيجاد الحل

أحسنت ،، فكرة جميلة جداً أيضاً لدعمك في فكرة أخرى لتعديل جميع السجلات باستبدال 0 في رقم الهاتف في الجدول بمفتاح الدولة Dim db As dao.Database Dim rs As dao.Recordset Dim strSQL As String strSQL = "SELECT * FROM Table1 WHERE Left(PhoneNumber, 1) = '0'" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Do Until rs.EOF rs.Edit rs!phoneNumber = "962" & Mid(rs!phoneNumber, 2) rs.Update rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing

انا عملت مربع نص مخفي في النموذج وسميته Key وجعلت القيمة الافتراضية له مفتاح الدولة وغيرت الحدث بهذا الشكل Dim phoneNumber As String Dim whatsappURL As String phoneNumber = Me.Key+txtPhoneNumber.Value If Len(Trim(phoneNumber)) = 0 Then MsgBox "يرجى إدخال رقم هاتف", , "" Exit Sub End If whatsappURL = "https://web.whatsapp.com/send?phone=" & phoneNumber Application.FollowHyperlink whatsappURL صحيح في شوية بطئ في فتح الواتساب لكن الحمدلله ضبط

ابددعت 🌹 الف تحيه وشكر لك ملاحظة اخيرة واتمنى ما اكون اثقلت عليك عندي قاعدة بيانات مليئة بأرقام الهواتف وصعب تعديلها واضافة مفتاح الدولة ماهو الحل الذكي برأيك في هذه الحالة؟

أخي العزيز @ابو البشر حفظك الله هذا هو المطلوب كفيت ووفيت تسلم أنامل يدك 🙂

تفضل أخي @agha4m طلبك ، رغم أن صاحب الموضوع @SAROOK لم يتابع بإغلاقه الموضوع (للأسف) عند حصوله على إجابته باختيار إجابة الأستاذ @محمد احمد لطفى أفضل إجابة . تنسيق شرطي.accdb

يفترض ذلك .. إن لم تجرب لن تعرف الإجابة لسؤالك ثم أن اختيار أفضل إجابة يكون عند إيجادك الحل

احسنتم كثيرا نعم هذا هو المطلوب والضغط والاصلاح ايضا حل المشكلة

المشكلة طلعت من عندى فى اعدادات referaces vba objects الكود الى حضرتك عملتة صح واشتغل

وعليكم السلام ورحمة الله وبركاته نعم، يوجد عدد من البرامج التي توفر حماية مماثلة لبرنامج Unviewable+ لمحرر أكواد VBA، ومنها: * **VBA Protector**: أداة لحماية أكواد VBA، وتتميز بواجهة مستخدم سهلة الاستخدام وخيارات تخصيص واسعة. * **VBA Code Protector**: برنامج يركز بشكل خاص على حماية أكواد VBA من التعديل أو العرض غير المصرح به. * **VBA Encrypter**: أداة لتشفير أكواد VBA باستخدام خوارزميات تشفير قوية. * **VBA Obfuscator**: أداة لتعويق أكواد VBA من خلال إعادة تسمية المتغيرات والوظائف. * **VBA Protector Plus**: برنامج يوفر مجموعة شاملة من ميزات الحماية لأكواد VBA، بما في ذلك التشفير وإخفاء التعليمات البرمجية.

اخي بعد معاينة ورقة العمل الخاص بك لاحظت ان الخلفية الزرقاء هي في الاصل اسم النطاق المسمى Name_Rang0 قم بحدفه وتنظيف ورقة العمل من النطاقات والتنسيقات الغير مستخدمة وستختفي معك الخلفية بادن الله اليك الملف بعد حدف جميع النطاقات الغير مستخدمة والخاطئة مع البقاء على التنسيق الشرطي كما كان من قبل New ورقة عمل Microsoft Excel.xlsb

سلام عليكم اشكركم جزيل الشكر على المساعدة ولو اني متاخر في الرد موضوع الاول الاسناذ محمد هشام كان الكود رائع وتمام لكن لي طلب في البرنامج الذي اعمل عليه لما طبقت عليه الكود يعمل تمام المشكلة عندما يجلب لي ارقام الفواتير يجلبها بشكل مختلف ا مثلا فاتورة رقمها 200130706401 يجلبها بهذ الشكل 2.00131E+11 اعرف انها تخص تنسيق الخلية فاضطر الي اعادة تنسيق الخلايا كلهم والضغط عليهم واحدة واحدة وهذا كثير فكيف افعل لكي تجلب لي ارقام الفواتير كما هي دون تغيير ارجو ان اجد الحل اما الموضوع الثاني فقد تم حله وتم استعادة الحساب القديم واشكر الاساتذة احمد يوسف وحسونة حسين على المساعدة و عموما اشكر كل اعضاء المنتدى على الاهتمام بعضهم البعض والله يديم المحبة بينهم والسلام عليكم ورحمة الله تعالى وبركاته

النتيجة V2.xlsm

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

وعليكم السلام ورحمة الله تعالى وبركاته تفضل جرب اظنه اسرع Sub TEST1() Dim WS As Worksheet, sh As Worksheet Set WS = Sheets("Feuil5"): Set sh = Sheets("Feuil6") LR = WS.Cells(Rows.Count, 3).End(xlUp).Row Application.ScreenUpdating = False sh.Range("A10:M" & sh.Rows.Count).ClearContents a = WS.Range("A10:K" & LR).Value Dim tmp(): ReDim tmp(1 To UBound(a)) For I = LBound(a) To UBound(a) On Error Resume Next If a(I, 2) = sh.[E3] And a(I, 11) = sh.[F3] Then n = n + 1: tmp(n) = I ' بما ان رموز الفواتير ثابثة بين 0 . و 1 اجعل الشرط بهده الطريقة ' If a(I, 2) = sh.[E3] And a(I, 11) >0 Then n = n + 1: tmp(n) = I Next ReDim Preserve tmp(1 To n) a = Application.Index(a, Application.Transpose(tmp), _ Application.Transpose(Evaluate("Row(1:" & UBound(a, 2) & ")"))) sh.[A10].Resize(UBound(a), UBound(a, 2)) = a Application.ErrorCheckingOptions.BackgroundChecking = False Application.ScreenUpdating = True End sub حساب العملاء 2024.xlsm