kinggraphic

لو سمحتم عاوز اكون كاتب بيانات فى شيت1 ويكون فيه الرصد درجات للطلبة مثلا وعلى اساس انها ناجحه يتم نقل الطالبة الى شيت 2 للناجحين ولو راسبة يتم نقلها فى شيت اخر شيت 3 مثلا للراسبين انا عملت ميكرو كده لكن مش عارف ازاى اخليه يتطبق على الشيت ككل مش سطر واحد حولت اعمله بقاعدة for منفعش ارجو منكم المساعدة ضرورى Sub sc() Dim koko As Integer ' ' sc Macro ' ' If Sheets("Sheet1").Range("H2") = "pass" Then Sheets("Sheet1").Select Rows("2:2").Select Selection.Copy Sheets("Sheet2").Select Rows("2:2").Select ActiveSheet.Paste End If

جزاكم الله خير واشكركم كثيرا على الجهد الرائع

اريد تحويل من اول 1.4 الى 1.6 الى 1.5 من اول 1.7 الى 1.9 الى 2 وينطبق تلك المعادلة على اى عدد اشكرك جزيلا

اشكرك جزيل اخى العزيز طب هو طلب كمان سخيف معلش اريد تحويل من اول 1.4 الى 1.6 الى 1.5 من اول 1.7 الى 1.9 الى 2 وينطبق تلك المعادلة على اى عدد اشكرك جزيلا

ارجو عمل تقريب عشرى بحيث يكون 1.1 الى 1.5 يكون 1.5 1.6 الى 1.9 يكون 2 ويطبق على كل الارقام يعنى على 50.1 و 90.6 وهكذا اى عدد لو سمحت وارجو عمل تقريب تانى بحيث حذف 1.1 و 1.2 وتحويل 1.3 الى 1.6 الى 1.5 وتحويل 1.7 الى 1.9 الى 2 فى ورقة اكسل لو سمحتم ويكون عبر كود وليس ميكرو

شكرا جزيل لك الاساتذه على المعادلات البسيطه منها والمعقده

احبائى الافاضل لفد طرحت فى السابق موضوع تقريب خاص وتفاعلتم وافدوتنى جدا المره دى عاوز تقريب مختلف عاوز اى جزء عشرى اقل من النصف يتحول الى نصف مثال ( 1.1 الى 1.4 تتحول الى 1.5 ) واى جزء عشرى بعد النصف يصبح واحد صحيح مثال (1.6 الى 1.9 تتحول الى 2 ) مع الاستفسار لو تم جمع تلك القيم هل ستعتبر انها القيم القديمه ام الجديده يعنى هيجمعها على انها 1.1 وله 1.5 وهناك ملف مرفق ملف التقريب.rar

بصراحه مش عارف اقول لكم ايه على هذا الجهد والتفكير العظيم وانا عارف انى ارهقتكم

بالاضافه الى شيت الاستاذ محمود هناك مشكله فيه ان القيم 3.1 مثلا تتحول الى 3 وايضا القيم 3.2 و3.3 و 3.4 لا تتحول الى 3.5 تتحول الى 3

ومعلش فى حاجه فى شيت التقريب الخاص 6.1 تتحول الى 6.5 من اول 6.1 : 9.1 بتتحول الى نصف ولا تحذف النصف ؟؟؟؟؟

اشكركم جميعا على المشاركات الرائعه بصراحه الموضوع ده ارهقنى جدا وخاصه فى الرصد والشيت المطلوب فى الادارة لانهم يحتاجون هذا التقريب بما كان يجعلنى اضطر الى التغير اليدوى لكل القيم اسئله بقى للايضاح هل ستغير تلك المعادله القيم ولذا تتغير فى المجموع ام لا يعنى مثلا 1.2+1.6= 1.8 ولكن عند التقريب ستكون 2+1.5 = 3.5 هل سيتغير المجموع تلقائى ام لا وهل ستنفذ تلك المعادله مع القيم الكبيرة 200.2 مثلا

اريد تقريب خاص فى شيت الكنترول بمعادله فى برنامج الاكسيل حيث مثلا 3.1 تتحول الى 3 فقط ويتم حذف 0.1 و 3.2 : 3.5 تتحول الى 3.5 و 3.6 : 3.9 تتحول الى 4 مثلا يعنى يتم حذف 0.1 من الدرجه ومن .2 : 2.5 تتحول الى 0.5 وغير ذلك تتحول الى اقرب درجه صحيحه ولكم جزيل الشكر ولو امكن تكون على ورقه شيت اكسيل