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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

السلام عليكم ورحمة الله وبركاته من المعروف ان اغلب ماكينات الصراف الالى ATM لا تصرف الكسور التى تقل عن 10 جنيها مثلا لو كان المبلغ 2798 تقوم بصرف 2790 جنيها فقط ويتبقى 7 جنيها لاتصرفهم . وبافتراض انه مطلوب منك اعداد كشف الرواتب لتحويلها الى البنك مع تقريب المبالغ الى اقرب عشره تقبلوا تحياتى التقريب الى ادنى 10.rar

السادة الخبراء هذه فكرة قد طرحت من قبل فى هذا المنتدى العظيم الذى تعلمت منه كثيراً و وجدت هذا الحل لتخصيص شريط ادوات خاص بك فى اوفس 2007 ارجو ان ينال اعجبكم وهذا من فضل الخبراء العظماء فى المنتدى شكراً Test RRibon.rar

فيه مستطيل للبحث تحت كلمة تسجيل خروج

أخي الكريم أحمد ستجد في التوقيع الخاص بي فهرس موضوعات قدمتها تصفح موضوع الفهرس ستجد فيه ما تريد وموضوعات البحث ستجد كثير فيما يخص هذه الموضوع تقبل تحياتي

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

الأخ الفاضل أبو حسنين إليك الملف التالي عله يفي بالغرض Sub TestRun() Const PI As Double = 3.14159265358979 Const D2R As Double = PI / 180# Const CtrX As Double = 300 Const CtrY As Double = 300 Dim A As Double Dim RadBig As Double Dim RadSml As Double Dim ICol As Long Dim SHP As Shape Dim AvdInp As Variant For Each SHP In ActiveSheet.Shapes If SHP.Type = msoAutoShape Or SHP.Type = msoTextBox Then SHP.Delete Next SHP AvdInp = Range("B2:C4").Value2 For ICol = 1 To UBound(AvdInp, 2) RadBig = CDbl(AvdInp(1, ICol)) DrawCircle CtrX, CtrY, RadBig RadSml = AvdInp(2, ICol) For A = 0 To 359.99 Step 360 / AvdInp(3, ICol) DrawCircle CtrX + RadBig * Sin(A * D2R), CtrY - RadBig * Cos(A * D2R), RadSml Next A Next ICol End Sub Sub DrawCircle(CtrX As Double, CtrY As Double, rad As Double) Dim SHP As Shape Set SHP = ActiveSheet.Shapes.AddShape(msoShapeOval, CtrX - rad, CtrY - rad, 2 * rad, 2 * rad) With SHP.Fill .Visible = msoTrue .ForeColor.RGB = vbWhite .Transparency = 0 .Solid End With End Sub يتم كتابة المعطيات في النطاق D2:E4 ثم تنفيذ الكود لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي .. كما لا تنسى أن تضغط على كلمة "أعجبني هذا" ولا تضغط عليها إذا لم ينل الملف إعجابك Draw Circles By Code.rar

أعتقد المشاركة رقم 33 فيها حل لمسألتك الأولى

أخي الحبيب أبو حنين حاول مرة أخرى .. شووف المعادلة والخلايا المرتبطة بها وحاول لأكثر من 20 أو 30 مرة .. ولو فشلت إن شاء الله أحاول أساعدك Come easy Go easy مش كدا ولا ايه يا عزيزي تقبل تحياتي

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

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

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

جزانا الله واياكم خيرا اشكرك بارك الله فيك

اخى الحبيب الاستاذ خالد الرشيدى جزاكم الله خيرا على مروركم اشكرك تقبل تحياتى

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه السلام عليكم ورحمة الله وبركاته أخي الحبيب أبو البراء المتألق المتميّز جزاكم الله خيراً ....ما شاء الله بارك الله

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

اعتقد انه فيه مواضيع سابقة فيها برامج كسر الحماية

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

أخي الحبيب أحمد الرشيدي ماذا تقصد بفك الحماية ؟ هل تقصد فك حماية أوراق العمل أم فك حماية محرر الأكواد؟ ارفق ملفك

بالنسبة لطلبك الاول تم تعديل المرفق في مشاركتي السابقة واليك الشرح حسب ما مكنني منه وقتي : بداية الشرح هو للدالة الشرطية iif وهي بابسط صورة تأخذ شرط وقيمتين اذا تحقق الشرط تظهر لنا القيمة اللاولى وان لم يتحقق تظهر لنا القيمة الثانية الحقل الأول والمطلوب : كل 250 تعوض بـ 0.25 وما زاد يرحل للحقل الثاني شرط الا تزيد القيمة الاساسية للحقل عن 1000 والا سوف يرحل كامل العدد الى الحقل الثالث وتكون قيمته =0 الحقل الثاني: ما زاد على 250 الى 1000 تعوض بـ 0.35 ولو زاد العدد عن 1000 يرحل الى الحقل الثالث وتكون قيمته =0 الحقل الثالث منفرد بالقيم التي تزيد عن 1000 فتعوض بـ 0.5 نبدأ بالحقل الأول : IIf([nmb]>1000;0;IIf(([nmb])<=250;[nmb]*0.25;250*0.25)) لاحظ ان اكسس يقرأ الشرط بالترتيب الشرط الاول : اذا كانت القيمة اكبر من الف فالناتج = صفر IIf([nmb]>1000;0 ثم : الشرط الثاني : اذا كانت القيمة تساوي او اصغر من 250 فالناتج = ضرب القيمة في 0.25 IIf(([nmb])<=250;[nmb]*0.25 وإلا : اي : اذا كانت القيمة اكبر من 250 الناتج يساوي ضرب 250 في 0.25 250*0.25 الحقل الثاني : IIf([nmb]>1000;0;IIf([nmb]>250 And [nmb]<=1000;([nmb]-250)*0.35;0)) الشرط الأول سبق شرحه الشرط الثاني اذا كان الحقل اكبر من 250 واصغر من او يساوي 1000 فالناتج يكون : قيمة الحقل ناقص 250 مضروب في النسبة التي هي 0.35 وطرحنا 250 لانه تم تعويضها في الحقل الاول الحقل الثالث اعتقد انه واضح فاذاكانت القيمة اكبر من الف يتم التعويض ( القيمة مضروبة في النسبة ) والا يكون الناتج صفر IIf([nmb]>1000;[nmb]*0.5;0)

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

اخى ابا اسماعيل جرب حزف هذه السطر Option Explicit تقبل تحياتى

شكلها هتولع .. :yes: اجتماع الكبار والعمالقة ... أ / محمد صالح ، و أ / أسامة البراوي يلا عايزين نشوف حاجة جديدة ومميزة .. نريد خطوة على طريق التقدم فيما يخص هذا الموضوع ؛ ليكون بصمة كبيرة في المنتدى

السلام عليكم ورحمة الله تعالى وبركاته انا النهاردة حابب اتكلم عن دالة مهمة جدا من وجهة نظرى المتواضعة دالة من دوال التكرار دالة Do While....loop طبعا بما انى مليش فى الشرح اوى فاسمحولى اتكلم كدا بالبلدى ههههههه اول سؤال احنا بنستخدم الدالة دى امتى ؟؟؟ الاجابة اننا بنستخدم الدالة دى لما نكون عاوزين نكرر كود محدد بس اكتر من مرة ومش عارفين عدد محدد لتكرار والحدث او الكود اللى هنكرره دا هيتكرر بناء على شرط معين يعنى لو الشرط اتحقق كرر الكود وهكذا ... قشطة لحد كدا ؟؟؟ شكل الدالة دى بيبقى عامل ازاى Do While الشرط الكود Loop Do While condition code Loop يعنى ايه بقى الكلام دا المقصود ب Do While هو تنفيذ code طالما التعبير الشرطى True قشطة لحد كدا تمام ؟؟ علشان المعلومة تثبت لازم نعمل تدريب عملى هنعمل تدريب عملى بسيط جدا تعالو نشوف انا عاوز اعمل نموذج فى قلبه ليست بوكس اقوم عن طريق الدالة Do While اقوم عن طريقها بادخال الاسماء داخل الليست بوكس نفتح الاكسس ونعمل نمذج فارغ ونسميه Form1 ونعمل زر لااضافة الاسماء ونسميه Button1 ونضيف الليست بوكس ونسميها Listbox1 ايه المطلوب بقى منى ؟؟ المطلوب عن الضغط على زر Button1 يظهر صندوق InputBox لا ادخال الاسماء يبقى احنا هنستخدم دالة InputBox فى ادخال الاسماء تمام كدا يعنى لما اضغط على الزر المفروض يظهر InputBox علشان ادخل الاسم الاول ويظهر مرة تانيه علشان ادخل الاسم الثانى وهكذا لحد ما قيمة الشرط فى دالة Do While تبقى false كدا ينهى الحدث هنخلى الشرط بتاعنا هو عند ادخال كلمة انهاء يقوم بانهاء ادخال الاسماء وهنلاحظ كدا وجود حلقة تكرارية مش عارفين عدد مرات التكرار قد ايه وينتهى التكرار بمجرد ادخال كلمة " انهاء" يلا بينا على الكود طبعا دا هيتحط فى حدث عند النقر للزر 'هنفرض متغير x من نوع نص Dim x As string 'الشرط هنا بيقول انه طالما المتغير x لا يساوى انهاء كرر الكود Do while x<>"انهاء" x=InputBox("ادخال اسماء الطلاب") Me.Listbox1.AddItem (x) Loop شكرا ليكم تحياتى اخوكم مارد عارف انكم كلكم عارفين الدالة دى :mad: بس رخامة وخلا ص Do While .... Loop.rar

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

منور استاذ علي تفضل هذا مثال Database5.rar

أليك أخى ماطلبت عن طريق معادلة ولكن هناك ملحوظة هامة أن هذه المعادلة تعتمد على الفراغ بين الكلمات ( SPACE ) ولابد أن تكون مسافة واحدة (1) لاأكثر من ذلك كما كنت عاملها حتى تعمل المعادلة بصورة جيدة FOLOW UP.rar