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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون 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 المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

السلام عليكم ورحمة الله اكتب هذه المعادلة =A5*1.2^7)

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

السلام عليكم ورحمة الله تفضل أخي الملف المرفق وفيه المطلوب... بن علية حاجي الصف الاول ب - قائمة فصول.rar الملف المرفق يخص قائمة الفصل الموجود في شيت --إضافة أسماء الطلاب-- (أي الفصل 1/4) أما إذا وُجدت فصول غيرها تحت بعض فهنا يجب تعديل المعادلات لتتناسب مع الحالة حسب الفصل... ربما تكون هناك إضافة أعمدة مساعدة... بن علية حاجي

السلام عليكم هل هذا ما تريده ؟؟ اطلع على المرفق .. Sample.rar

بالنسبة للسؤال الأول هذه المعلومات لا تكفي لتعيين المجهول والطول المطلوب إلا إذا كنت تعرف الزاوية بين الخطين ولو كانا متعامدين فهي أسهل في الحل أخبرني لأحلها لك بالنسبة للسؤال الثاني كما فال لك الأخ أبوعيد حدد الإحداثيات وإن شاء الله أبشر بالذي يسرك وستحل بالميل أو بالظل كما ذكرت أنت

وعليكم السلام ورجمة الله وبركاته أهلا أخي الغالي ابوسليمان اسمح لي أن أدلو بدلوي في محاولة لحل المشكلة بالنسبة للرسمة الثانية لا بد من معرفة أحداثي النقطتين 1 و 2 (الإحداثي السيني والصادي) وبعد ذلك ابشر بالذي يسرك إن شاء الله هل تستطيع تحديد احداثي النقطتين ؟

بسيطة غير القيمة 0 داخل المعادلة الى القيمة التى تريد هكذا ولكن مع الأخذ فى الاعتبار ملحظة أستاذنا محمد صالح فيصبح التعديل هكذا =IIf(Month(Date())=7,[Année]*50+[Forms]![Employé_en_arabe]![PreD],[Année]*50)

السلام عليكم ورحمة الله أخي الكريم ابراهيم مرسي، الطريقة التي وضعتها في الملف 10.rar صالحة فقط لثلاث مجموعات (ثلاثة مجاهيل) وأنت تريد تطبيقها على 5 مجموعات لأنه وكما ذكرت سابقا إنه يجب أن يكون عدد المجاهيل مساويا على الأقل عدد المعادلات، وفي المسألة لديك فقط معادلتين (المبلغ الموزع وعدد الطلبة) والطريقة المعتمدة في الملف 10.rar باعتبار أن عدد المعادلات هو 2 وعدد المجاهيل هو 3 هي أن نثبت قيم أحد المجاهيل (من 0 أو من 1 إلى عدد الطلبة) ونعين المجهولين الآخرين باستعمال المعادلتين... أما إذا زاد عدد المجاهيل إلى أكثر من ثلاثة فيجب ترك اثنين منها (يتم تعينهما بالمعادلتين) وتثبيت كل الباقي... مثلا إذا كان عدد المجاهيل 4 فنقوم بتثبيت اثنين منها (وعدد الاحتمالات في هذه الحالة يساوي "مربع عدد الطلبة"، عموما يكون عدد الاحتمالات مساويا "عدد الطلبة أس عدد المجاهيل ناقص 2" إذا فرضنا أن عدد الطلبة هو n وعدد المجاهيل هو k فإن عدد الاحتمالات هو nk-2) ونعين المجهولين الآخرين باستعمال المعادلتين... وهكذا وأقترح أن يكون الحل باستعمال الأكواد غير أني أعتقد أن الأكواد يكون عملها بطيئا أكثر فأكثر كلما زاد عدد المجاهيل... والله أعلم ليس لي طريقة أخرى للحل... بن علية حاجي

أخي الكريم إبراهيم جرب الكود التالي عله يفي بالغرض Option Explicit Sub PossibleCombinations() Dim r As Variant Dim v As Double Dim i As Long Dim a As Long Dim b As Long Dim c As Long Dim d As Long Dim e As Long Dim f As Long Const x As Long = 20 ReDim r(1 To 1048576, 1 To 13) Application.ScreenUpdating = False For a = 1 To x For b = 1 To x For c = 1 To x For d = 1 To x For e = 1 To x For f = 1 To x v = Application.WorksheetFunction.Sum(a * 49, b * 99, c * 149, d * 199, e * 224, f * 249) If v = 14221 Then i = i + 1 r(i, 1) = a r(i, 2) = b r(i, 3) = c r(i, 4) = d r(i, 5) = e r(i, 6) = f r(i, 7) = a * 49 r(i, 8) = b * 99 r(i, 9) = c * 149 r(i, 10) = d * 199 r(i, 11) = e * 224 r(i, 12) = f * 249 r(i, 13) = Application.WorksheetFunction.Sum(r(i, 7), r(i, 8), r(i, 9), r(i, 10), r(i, 11), r(i, 12)) If i >= Rows.Count Then GoTo Skipper End If Next f Next e Next d Next c Next b Next a Skipper: Range("A1").Resize(i, UBound(r, 2)).Value = r Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub الكود سيستغرق وقت طويل بعض الشيء لربما يصل لأكثر من 5 دقائق لذا لا تقلق .. عدد النتائج كبير جداً .. لأن الاحتمالات كثيرة جداً جداً

بارك الله لك أخي الكريم فعلا دالة iif تفي بالغرض ولكن لا يوجد لديك حقل يسمى date حتى تضع حوله القوسين المربعين [date] فقط يبزمك تغيير هذه المعادلة إلى =IIf(Month(Date())=7,[Année]*50+[Forms]![Employé_en_arabe]![PreD],0) لاحظ الأقواس الجديدة وفقنا الله وإياكم لكل ما يحب ويرضى

هناك العديد من الامثلة على الانترنت ، واليك بعضها: كود: http://www.utteraccess.com/wiki/AddTrustedLocation http://www.tek-tips.com/viewthread.cfm?qid=1718392 https://www.devhut.net/2010/06/23/vbscript-createset-trusted-location-using-vbscript/ معلومات عن كود وبرامج خارجية تقوم بالعمل: http://www.hitechcoach.com/index.php?option=com_content&view=article&id=51:trust-center-in-access-2007-and-2010&catid=61:access-2010 وبرنامج بالمجان: http://www.accessribbon.de/en/?Trust_Center:Trusted_Locations جعفر

الاخ عبد الله الاخ ابو حنين الاخ ابو ردينه بارك الله فيكم ولكن توجد مشكله فى الكود هى ان اسم الشهر رغم اننا فى شهر يوليو الا ان اسم الشهر يظهر على اننا فى شهر يناير خزينه.rar

إستخدم هذا الكود لحذف مكرر عمود G Public Sub DE_TQRAR() ActiveSheet.Range("G4:G" & Range("G" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes End Sub

المرفق السابق يالمعادلات وهذا الكود لنفس الغرض Sub Abu_Ahmed() [F4:F300].ClearContents Dim cl As Range For Each cl In Range("G4:G" & [G15000].End(xlUp).Row) x = cl.Row Set myrng = Range("G4:G" & x) If Application.WorksheetFunction.CountIf(myrng, cl.Value) = 1 Then Cells([F15000].End(xlUp).Row + 1, 6).Value = cl.Value End If Next End Sub