نزار سليمان عيد

اخي الكريم aah_aah2008 جزاك الله خيرا وما قصرت وحسب مافهمت من الاخ msa_2006 يبدو انه جديد على لغة VBA وعليه ارفقت الملف به شرح عن خاصية كلمة السر على كود VBA ليستفيد الجميع _____________________2_______________5.rar

اخي الكريم aah_aah2008 جزاك الله خيرا وما قصرت وحسب مافهمت من الاخ msa_2006 يبدو انه جديد على لغة VBA وعليه ارفقت الملف به شرح عن خاصية كلمة السر على كود VBA ليستفيد الجميع

اخواني جميعا السلام عليكم الشكر لله اولا ثم لتفاعلكم مما يعطي المنتدى حلاوته وتجدده اخي شرجاوي الكود هو السطر الثالث والشرط هو اي تغيير في الخلية A قم باضافة التاريخ في خلية B Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then If Range("A" & Target.Row) <> Now Then Range("B" & Target.Row) = Now End If End Sub

جميع الأخوة مشكرين على هذ المجهود وشكر للأستاذ نزار وعندي سؤلين له 1- من السهل الدخول على vba معرفة الباسورد فكيف أغلق الوصول إلى vba؟ 2- عند طلب الباسورد هناك أختياران لغلق شاشة الباسورد أولهم كتابة الباسور صحيح وثانيهم كتابته خطا ولكن لا أستطيع أستعمال زر cancel للخروج من الشاشة؟ اخي الكريم السلام عليكم 1- يمكنك وضع كلمة سر لشاشة VBA 2- نعم يااخي الكريم فلو عملت Cancell وقبل الامر يعني هذا ان اي شخص يلغي الباسوورد بواسطة Cancell وبالتالي يقوم بتعديل هذه الصفحة المحمية لذلك يتوجب عليك ادخال الرقم فاذا كان صحيح ذهبت الرسالة واذا خطأ اعطاك رسالة خطا وارجعك لصفحة 3 في المثال وهناك كما ذكرت لك طريقة بان تبقى في نفس الصفحة 3 عندما تطلب صفحة 2 ولايمكنك الخروج الا اذا كتبت الرقم السري الصحيح هل تريد هذه الطريقة ايضا

اخي الكريم السلام عليكم انظر للمرفق ______________________________.rar

نعم اخي ابو اسامة تشكر على الحل الآخر ولكن يبدو ان الاخ يريد التعديل بدون اكواد VBA اخي الكريم السلام عليكم ماقمت به هو نفس طريقة Replace all ولكن عن طريق VBA ولكن اليك هذه الطريقة مع الشرح بالملف المرفق في صفحة 2 الشرح CHANGE_1_TO_0_1_.rar

اخي الحبيب BU3MMAR السلام عليكم يتم ذلك بوضع الكود ادناه في الصفحة المراد كلمة السر لها وهي في المرفق صفحة 2 واي استفسار او تعديل اعلمني من فضلك فيوجد لي مشاركة ايضا مشابهة ولكن قبل ان تذهب للصفحة المطلوبة يتم سؤالك عن الرقم السري واذا اردت ارفقته لك Private Sub Worksheet_Activate() xx: Dim x x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena") If IsNull(x) Or x = "" Then GoTo xx If x = 5 Then MsgBox "welcome to sheet2" Else MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOKOnly Sheets("sheet3").Activate End If End Sub

اخي الكريم السلام عليكم شهادة استاذي هادي تكفي وجزاك الله خيرا

اخي الكريم السلام عليكم انظر للمرفق واي استفسار اعلمني من فضلك CHANGE_1_TO_0.rar

اخي salahsts السلام عليكم لاشكر على واجب وشكرا على مرورك للمشاركة

اخواني Rahekk و cleaver السلام عليكم لا شكر على واجب وآمل منكم التواصل

اخي الكريم السلام عليكم انظر المرفق 1.rar

اخي الكريم السلام عليكم انظر للمرفق New_Microsoft_Excel_Worksheet.rar

اخي الجزيرة السلام عليكم مشكور على مرورك

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

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

اخي الكريم السلام عليكم انظر للمرفق وكلمة السر رقم 5 هل هو ماتقصده ________________2__________5.rar

اخي الكريم السلام عليكم في الصيغة التي ذكرتها لايوجد فرق فأنت هنا تقوم بضرب خلية في عمود B بما يقابلها في عمود F فوضع علامة $ قبل حرف B او عدم وضعه لن يؤثر في النتيجة ولكن لو قمت بوضع العلامة قبل الرقم سترى الفرق وفي النهاية المقصود من العلامة هو تثبيت اما الخلية كاملة b$5 $ او تثبيت الصف باختلاف العمود وذلك B$5 او تثبيت العمود باختلاف رقم الخلية 5 B $ واي استفسار او توضيح اعلمني من فضلك

اخي الكريم السلام عليكم انظر للمعادلة والمرفق به التطبيق =IF(A1<=5000,0,IF((A1>5000)*OR(A1<=8000),3000*3%,IF((A1>8000)*OR(A1<12000),(3000*3%)+(3000*6%),IF((A1>12000)*OR(A1<15000),(3000*3%)+(3000*6%)+(3000*9%))))) _______________.rar

اخي BU3MMAR السلام عليكم اعتقد المقصود بمعدل دوران المدينين هو تستخدم هذه النسبة كمؤشر للحكم على كفاءة ادارة الائتمان في المشروع على تحصيل الديون ، ويرتبط ذلك بعدد المرات التي يمكن فيها تحصيل الديون خلال السنة. كلما ارتفع المعدل عن السنوات السابقة او المعدلات المعيارية فهو يشير على تحسن اداء الادارة المختصة في تحصيل ديونها ونجاح سياستها الائتمانية. يعني عندما يكون معدل دوران المدينين سنة 2006 هو 6 مرات ، هذا يعني ان الشركة تقوم بتحصيل ديونها 6 مرات بالسنة المالية الواحدة اي بمعدل مرة واحدة كل شهرين او 60 يوم ، يعني انها تمنح عملائها مهلة لتسديد الديون تصل بحدها الاقصى الى 60 يوم . ولو فرضنا ان معدل دوران المدينين سنة 2007 هو 8 مرات ، هذا يعني ان الشركة تقوم بتحصيل ديونها 8 مرات بالسنة المالية الواحدة اي بمعدل مرة واحدة كل شهر ونصف او 45 يوم . من الافتراضين السابقين نرى ان سياسة الادارة بالنسبة للمبيعات الآجلة وتحصيل الذمم المدينة قد تحسنت في عام 2007 بالمقارنة مع سياستها في عام 2006 ، مما يعطينا مؤشر بان الشركة بدأت تحول عمليات المبيعات الى نقدية بدلا من الآجلة وهذا بحد ذاته يعطينا مؤشر على قوتها في السوق ، والعكس صحيح. معدل دوران المدينين = صافي المبيعات الآجلة / متوسط رصيد المدينين = ......مرة متوسط فترة التحصيل = 365 يوم بالسنة / معدل دوران المدينين = .....يوم مثال : المبيعات الآجلة 450000 متوسط رصيد المدينين 30000 معدل دوران المدينين = 450000 / 30000 = 15 مرة متوسط فترة التحصيل = 365 يوم بالسنة / 15 مرة = 24 يوم تقريبا

اخي الكريم السلام عليكم بخصوص الاستفسار الاول عن القائمة المنسدلة انظر للمرفق واي استفسار اعلمني من فضلك بخصوص الطلب الثاني يتم ذلك من عمل كود بلغة VBA بخصوص الطلب الثالث يوجد معادلات ولكن قمت باخفائها عن طريق الحماية عموما انظر للمرفقين وهم شرح عن القائمة المنسدلة بالاضافة الى شرح عن المدى وذلك لاستخدامهم في ملف عمر الدين واي استفسار بعد ذلك اعلمني حتى بامكانك ارسال الملف لعمل المطلوب اخي الكريم BU3MMAR السلام عليكم بالنسبة لشرح ملف عمر الدين كما ذكرت بالاعلى واذا اردت استفسار محدد اعلمني من فضلك يمكنك اضافة الملف الخاص بعدل دوران الائتمان مع الشرح عليه ليتم تنفيذه My__Range.rar ____________.rar

اخواني جميعا السلام عليكم مرفق ملف يقوم بحساب عمر الدين للعميل اترككم مع الملف واي استفسار انا جاهز ______________________________________.rar

جزاك الله خيرا

اخي الكريم السلام عليكم غير الفاصلة من , الى ; وجرب

اخي الكريم السلام عليكم الصيغة هي =IF(K11&J11&I11&H11&G11&F11&E11&D11&C11=B11,IF(K11&J11&I11&H11&G11&F11&E11&D11=C11,IF(K11&J11&I11&H11&G11&F11&E11=D11,IF(K11&J11&I11&H11&G11&F11=E11,IF(K11&J11&I11&H11&G11=F11,IF(K11&J11&I11&H11=G11,IF(K11&J11&I11=H11,IF(K11&J11=I11,(K11=J11:K11))))))))) ولكن مالمقصود بها ولماذا لم افهم حاولت تتبع الشرط ولكن لم اجد المقصود اي استفسار اعلمني من فضلك