احمد الشافعي

اجل اخي اريد تجاهل الاشارة في المقارنة ايهما اكبر

تم ارفاق مثال بعد تعديل المشاركة السابقة

القانون متواجد ولكن مع اضافة هذا الشرط الي الشروط عند المقارنة ايهما اكبر بدون النظر الي الاشارات وعند تواجد ان الـ cyl اقل من الـ sph يتم عمل القانون بشكل عادي

اشكرك استاذي الكريم عبد الله بولنوار علي وقتك وعلي مجهودك وان كنت اريد من حضرتك ازيد شرط اخر بسيط واعتذر عن عدم ادراكي لشروط القانون ولكن بذلك الشرط ستكون اكتملت شروطه عندما تكون خانة الــ cyl اكبر من خانة الـ sph وعدم النظارة الي الاشارة ايهما في حالة المقارنة ايهما اكبر كالمثال التالي التمس لي اخي العذر لتأخري في طلب الاستفسار لعدم وجود انترنت لدي في المنزل وشكرا مرة اخري لك Test.rar

اعتذر اخي الكريم عبد الله بلنوار عن اغفالي ذكر هذا الامر ولكن لسرعة انزال الموضوع اغفلت تذكر هذا الشرط وجزاك الله خيرا وزادك من علمه

شكرا اخوتي الكرام ولكم مني التحية واعتذر عن خطأ بالمثال الرابع تم تنفيذ القانون بشكل جيد ولكن يشوبه احدي الشروط وهي عندما يكون خانة الــ cyl اكبر من الــ sph دون النظر الي الاشارات لا يتم التحوير وتظل القيم كما هي دون اي تغيير حتي في خانة الـ axis

في حالة 90 يتم زيادة 90 لتصبح 180

مرفق لحضراتكم امثلة للتوضيح TEST 1.rar

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

تسلم يدك اخي الكريم وجزاك الله خيرا وزادك الله من علمه

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

اشكرك استاذ YasserKhalil واشكر مساعدتك الكريمة في الشرح الوافي وجزاك الله خيرا وشكرا لك استاذي ibn_egypt أذادكم الله من خيره وأدام عليكم بكامل الصحة والعافية

اخي الكريم ibn_egypt شكرا لك هذا هو المطلوب ولكن ارجو من حضرتك محاولة شرح الكود لسهولة استخدامه لاكثر من شيت اخر وجزاك الله خيرا

السلام عليكم اساتذتي الكرام اشكركم جميعا لمساندتكم لنا في الرد عن استفسارتنا ولن اطيل علي حضراتكم لقد بحثت مرارا عن طريقة عمل زر لاخفاء السطور الفارغة بالجدول ولقد وجدت ما اريده في موضوع هنا وهذا الرابط الخاص به http://www.officena.net/ib/index.php?showtopic=37374 ولكني كنتي أمل من حضراتكم افادتي بالجزئية الموجودة بالكود التالي Private Sub CommandButton1_Click() Application.ScreenUpdating = False If CommandButton1.Caption = "اخفاء الفارغ" Then For D = 5 To 13 If Cells(i, 33) = "" Then Cells(i, 33).EntireRow.Hidden = True End If Next CommandButton1.Caption = "اظهار الفارغ" Else CommandButton1.Caption = "اظهار الفارغ" For D = 5 To 13 If Cells(i, 33) = "" Then Cells(i, 33).EntireRow.Hidden = False End If Next CommandButton1.Caption = "اخفاء الفارغ" Application.ScreenUpdating = True End If End Sub وخاصة الجزئية If Cells(i, 33) = "" Then Cells(i, 33).EntireRow.Hidden = False واريد معرفة كيفية تطبيقها علي المثال التالي وشكرا لكم HIDE EMPETY CELLS.rar

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