احمد الشافعي

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

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

القانون متواجد ولكن مع اضافة هذا الشرط الي الشروط عند المقارنة ايهما اكبر بدون النظر الي الاشارات وعند تواجد ان الـ 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

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

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

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

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

لقد تم تغيير الاسم من GROW_WITH الي احمد الشافعي وشكر خاص لاخي حماده عمر

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

بسم الله الرحمن الرحيم اخوتي في الله لقد تعبت كثيرا للبحث عن حل لهذه المشكلة التي تواجهني وارجو من الله ثم حضراتكم الكرام مساعدتي ابحث عن حل لاضافة المبيعات لكل شخص علي حده حيث قمت بعمل قائمة منسدلة يظهر بها اسماء البائعين وتم تسمية اسماء الـ sheet باسماء البائعين والمطلوب عند الاختيار من القائمة المنسدلة اسم البائع ان تنتقل تلقائيا كلا من خانتي التاريخ والقيمة الي الــsheet الخاص به ملحوظة الملف اكسل 2007 Sales.rar