Ali Mohamed Ali

أحسنت استاذ سليم بارك الله فيك وجعل الله هذا العمل فى ميزان حسناتك

اهلا بك اخ كريم فى المنتدى جرب هذا اسم المستخدم : Mrhb كلمة السر : 1111 الصادر والوارد.mdb

جرب هذا الموضوع لستاذنا الكبير محمد طاهر https://www.officena.net/ib/files/file/100-مثال-بالاكسيل-على-عمل-التحليل-النوعي-لمخاطر-المشاريع/

تفضل انظر الى الصورة حتى تقوم بوضح الكود فى حدث الورقة وهذا هو الكود الذى سيتم وضعه: Dim tt As Variant Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("PRot_range")) Is Nothing And Target.Address <> "$A$1" Then m = Target.Count c = [AA1] k = tt If IsEmpty(k) Then GoTo 1 If m * c >= 1 Then Application.EnableEvents = False my_pass = Application.InputBox(" áÇ íãßä ÇáÊÚÏíá Ýí åÐå ÇáÎáíÉ.... " _ & Chr(10) & "ÇáÇ ÈÍÇáÇÊ ÎÇÕÉ ÊÊØáÈ ßáãÉ ãÑæÑ", "password") If my_pass = "pass" Then GoTo 1 Application.Undo Application.EnableEvents = True End If End If 1: Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) tt = Selection.Value End Sub

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

أخى الكريم لماذا لا تستخدم خاصية البحث فى المنتدى قبل رفع المشاركة فهناك موضوع مهم جدا عن ذلك الغرض لأستاذنا الكريم سليم حاصبيا وبه ملف ممتاز -وموجود هنا : https://www.officena.net/ib/topic/84508-حماية-الخلايا-غير-الفارغة-بواسطة-باسوورد/?tab=comments#comment-536608

اهلا بك اخ كريم فى المنتدى تفضل 10101g0101.xlsx

اهلا بك اخ كريم فى المنتدى لو ممكن رفع ملف للعمل عليه حتى تتمكن الأساتذة من المساعدة بارك الله فيك

احسنت استاذى الكريم بارك الله فيك

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

تفضل اقساط2.xlsx

تفضل استاذ محمد اقساط معدل.xlsm

تفضل اخى الكريم بعد اذن الأستاذ عماد,لك ما طلبت العمال وغيره مهنى2.xlsx

بعد اذن استاذى سليم هناك اربعة طرق داخل الملف لهذا الغرض كتابة ارقام التليفون بالصفر من اليسار.xlsx

احسنت استاذ سليم بارك الله فيك وزادك من فضله

اهلا بك اخ كريم فى المنتدى كان عليك القيام برفع ملف لكنى قمت بعمل هذا الملف لك للترتيب العشوائى ,ورقة بالكود وورقة بالمعادلة تفضل ترتيب عشوائى للأرقام.xlsm

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

تفضل اخى الكريم هذه معادلة اخرى معرفة Payout استخراج ناتج معادلة مكونة من عدة شرائح.xlsm

اهلا بك اخى الكريم فى المنتدى لماذا لا تستخدم خاصية البحث فى المنتدى -يمكنك هذا بعد اضافة أداة Solver وطالما انك لا تقوم برفع ملف فيمكنك متابعة ومشاهدة هذه المشاركة بها رد لما تحتاجه https://www.officena.net/ib/topic/85879-معادلة-جمع-بعض-الارقم-التى-تحقق-ناتج-معين/?tab=comments#comment-544482 بارك الله فيك

بارك الله فيك استاذ طارق ,ولإثراء الموضوع هذه دالة معرفة My_Customesion تفضل My_Customesion.xlsm

أخى الكريم تمت الإجابة من قبل الأستاذ طارق محمود فى قسم الإكسيل

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

احسنت استاذى الكريم بارك الله فيك

اهلا بك اخ كريم فى المنتدى تفضل هذا الفيديو سيكون فيه الإفادة ان شاء الله https://www.youtube.com/watch?v=aOf9rMVejGI وهذا الفيديو ايضا به ملف البيانات وملف البحث بارك الله فيك https://www.youtube.com/watch?v=Fh6vEmFAXOk

تفضل اخى الكريم والطباعة مضبوطة على الصفحة بدون اية اكواد أجندة محامى.xlsm