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

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

بسم الله الرحمن الرحيم برنامج صلاحيات المستخدمين فى الاكسيل الاصدار -2 السلام عليكم ورحمه الله وبركاته اقدم لكم اليوم برنامج صلاحيات المستخدمين الاصدار الثاني بدايه تذكرة بحفظ الحقوق هذا البرنامج قد بدائه الاستاذ الفاضل / عبد الله المجرب واتم هذا البرنامج من اكواد الاستاذ العبقري / عباد وتم الاستعانه ببعض اكواد الاستاذ / عبد الله باقشير وايضا الاستاذ / رجب جاويش تم الاستعانه باحد اكوادة فى اظهار اسماءا لمستخدمين وكلمات السر فى احد الكومبوبوبكس واخيرا العبد الفقير الى الله قمت بالتنسيق بينهم ووضع بعض اللمسات التكميليه فقط ثانيا : نماذج البرنامج : نموذج الدخول الرئيسي : وفيه لامكانيات التاليه 1. اسم المستخدم وكلمه السر 2. تعديل صلاحيات المستخدمين 3. اضافه مستخدمين جدد وتحديد صلاحياتهم 4. تعديل اسماء المستخدمين 5. حذف المستخدمين 6. الاطلاع على كلمات السر واسماءا لمستخدمين ضمن صلاحيه خاصه كل هذة الامكانيات قبل الدخول الى البرنامج فقط تكون متاحه مع المستخدم الدعم الفنى وعند كتابه كلمه السر الصحيحه له نموذج اعطاء الصلاحيات وتعديلها يظهر فى الاعلى اسم المستخدم المحدد له الصلاحيات وفى الجزء الاوسط تظهر جميع صفحات المستند باسماءها وبجوارها كومبوبوكس يحتوى على 3 خيارات ( مشاهدة فقط – مشاهدة وتعديل – مخفى ) ولسهوله ملىء هذة الصلاحيات وتسهيلا فى ملىء البينات تم وضع 4 خيارات بالاسفل وهى ( الجميع مخفى – الجميع خالى – الجميع مشاهدة وتعديل – الجميع مشاهدة فقط ) تعمل هذة الخيارات على ملىء الكومبوبوكس الخاص بالصفحات الظاهرة جميعا ومن ثم تقوم انت بالتعديل فقط على الصفحات التى تخص المستخدم ويكون له حق التعديل عليها وثم تضغط حفظ فيتم حفظ صلاحياته نموذج تعديل كلمه السر ويتم الوصول لهذا النموذج من مكانين الاول من النموذج الرئيسي من خلال المستخدم الدعم الفنى الثاني من الورقه الاولى حيث يتمكن كل مستخدم من تعديل كلمه السر الخاصه به نموذج تعديل وحذف اسماء المستخدمين ( جديد ) ويتم من خلاله عمل التالى • اختيار اسم المستخدم المراد حذفه او تعديل اسمه من الكومبوبوكس • سوف تنشط ازرارالاختيار وتحدد هل ترغب الحذف او التعديل • يوجد زر اختيار فى الاسفل مكتوب عليه username & password وعند تنشيطه يظهر نموذج لطلب كلمه سر وهى 1234 ومن ثم يظهر كومبوبوكس فى النموذج عند فتحها تجد جميع اسماءا لمستخدمين وبجوارها كلمات السر الخاصه بهم يمكنك التصفح فى البرنامج بمجرد ادخال اسم المستخدم الدعم الفنى وكلمه السر 111 وقبل الضغط على زر دخول جرب الضغط على جميع الازرار الاخرى فى تعديل الصلاحيات وتغيير كلمه السر وتعديل وحذف اسماء المستخدمين واضافه مستخدمين جدد ومن الداخل سوف تجد انه تم اخفاء قوائم اكسل وظهورها يتطلب كلمه سر وهى 1234 ملحوظه : المستند عليه حمايه بكلمه سر هى 1234 الصفحات الرئيسيه للبرنامج هى ورقه 1 و mydate وما دون ذلك يمكن الاستغناء عنه فيمكنك ازاله باقى الصفحات بعد ازاله حمايه المستند ( بعد اظهار القوائم ) وادراج الصفحات التى ترغبها من مستنداتك فيه ومن ثم تقوم بتحديد الصلاحيات عليها ويعمل معك البرنامج تلقائيا ويستطيع ان يستوعب اكثر من 200 صفحه يمكنك اعطاء صلاحيات عليها وعدد مستخدمين يصل الى 1000 مستخدم ( حسب امكانيات الجهاز) هذا واتمنى ان اكون قد استطعت شرح امكانيات البرنامج وان يكون ذا فائدة للجميع باذن الله والسلام عليكم ورحمه الله وبركاته تم ارفاق هذا الشرح فى ملف وورد فى المرفقات مع البرنامج برنامج صلاحيات المستخدمين الاصدار 2.rar

السلام عليكم لعبة تخمين الارقام قمت بتصميمها على الاكسل وهي لعبة معمولة بالويب لاخي محمد صالح وقد اضفت اليها اختيار الارقام بشكل عشوائي وطبقت عليها معلومة اخفاء نافذة الاكسل ولهذا الغرض تم تامينها كلمة السر : 1 المرفق 2003-2010 لعبة تخمين الارقام.rar

الاخ الكريم تفضل هذه الخدعة وهى تعمل بشكل جيد وفكرتها بسيطه Private Sub txt_Change() If txt.Value < 0 Or txt.Value >= 1E+21 Then txt.Value = "" End Sub

هذا حل بالمعادلات =MID(A2;1;1)&" "&MID(A2;2;1)&" "&MID(A2;3;1)&" "&TEXT(MID(A2;4;10);"0000") تحياتي

السلام عليكم في المرفق في الخان الحمراء اكتب اي رقم غير 1 - 2 - 3 ثم اكتب 1 او 2 او 3 ولاحظ النتيجة اشارة سالب.rar

السلام عليكم ورحمة الله وبركاته قمت بتصميم برنامج للتقسيط حسب احتياجاتي لكن احتاج المساعدة لانهائه 1- النسخ الاحتياطي للبرنامج 2- حاولت عمل نموذج يستند لاستعلام لحساب المتبقي للمستثمر من جدول الصرفيات جدول الاقساط ولم استطع . 3 - ووضع للمسات الاخيرة للبرنامج شاكر لكم حسن تجاوبكم 644.rar

جرب هذه الطريقة في محرر الاكواد من قائمة Tools ثم Option من تاب Editor Format ثم Font اختر نوع الخط هذا Courier New (Arabic)

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

السلام عليكم بداية نرجو الالتزام بقواعد المشاركة 1. العنوان غير مناسب 2. توجيه السوال لمجموعة محددة (يفهم منه التحدي وصعوبة السؤال) ============ هذه دالة معرفة لما تريد Function SplitNim(Cel As Range) As String Dim Tt As String, RR As String, i As Integer, MyNum As String For i = 1 To InStr(Cel, " ") - 1 Tt = Tt & RR & Mid$(Cel, i, 1) RR = " " Next MyNum = Mid$(Cel, InStr(Cel, " ") + 1, Len(Cel) - InStr(Cel, " ")) SplitNim = Tt & RR & String(4 - Len(MyNum), "0") & MyNum End Function شاهد المرفق (لابد من وجود مسافة بين الحروف والارقام) ارقام سيارات.rar

أخى الفاضل جرب المرفق hide.rar

لماذا مكتوب في صفحتي الشخصية حالة الانذار وكذلك التنبيهات تظهر s% ولاتعمل

أخى الكريم / جمال عبد السميع أبو محمود تهديدكم مرفوض .. غصب عنكم موجود .. لا تتعلل لتتحلل من التزاماتك قِبل المنتدى عليك ضريبة ادفعها أولا وهى حب الأخوة لكم .. وهو مالم تقدر على سداده إلا بالتواصل هذا امر بالعدول وليس بطلب تحياتى

السلام عليكم جرب المرفق ملاحظة : مع وجود بيانات كثيرة الافضل جعل عملية البحث بزر , و الله اعلم تحياتي ابداء رائي ومساعدة في كود بحث للاسم الثلاثي+.rar

السلام عليكم أخي العزيز / إسلام الشيمي لنفرض أنك تريد فقط تشغيل الكود في المدي F6:L8 بالورقة: التقرير اليومى أي (Sheet2) سيقوم الكود بنسخ معادلات الصف الأول من المدي (أي الصف السادس) لباقي الصفوف ثم يغير قيمة الخلايا لتكون قيم وليست معادلات إذن كل ماعليك هو تغيير مجال عمل الكود من الأسطر الأولي في أول الكود لتكون كالتالي Option Explicit Sub kh_Copy_Formula() On Error GoTo kh_Err kh_Application False '============================================= 'kh_cFormula Range("الاخطاء!$I$1:$I$1"), 3, 3900 kh_cFormula Sheet2.Range("$F$6:$K$6"), 6, 8 'kh_cFormula Range("ورقة3!$D$5:$G$5"), 11, 20 '=============================================

وهذا هو الطلب الثانى تنفيذ الكود بدون زر استخراج الاسماء الجديده3.rar

تفضل أخى ابراهيم الطلب الاول البيانات موجودة فى شيت والزر موجود فى شيت آخر استخراج الاسماء الجديده2.rar

السام عليكم تفضل أخى ابراهيم حل بالأكواد استخراج الاسماء الجديده.rar

هذا برنامج من أعداد الأخ الفهد لعله ينفع معك كلمة المرور 1234 Acc2003.rar