h63 قام بنشر مايو 29, 2008 مشاركة قام بنشر مايو 29, 2008 عندى عامود به درجات اعمال السنه للطلبة ومعظم ارقام هذا العامود به ارقام عشرية 0 اريد كود يعمل على اكثر من عامود ويقرب الارقام كالتالى 0 كل ما هو 0.1 او 0.2 او 0.3 او 0.4 يقرب الى 0.5 كل ماهو 0.6 او 0.7 او 0.8 او 0.9 يقري الى واحد صحيح رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 29, 2008 مشاركة قام بنشر مايو 29, 2008 السلام عليكم على اعتبار ان الرقم في A1 =IF(A1>=0.5,ROUNDUP(A1,0),ROUNDDOWN(A1,0)) رابط هذا التعليق شارك More sharing options...
h63 قام بنشر مايو 29, 2008 الكاتب مشاركة قام بنشر مايو 29, 2008 السلام عليكم كيف اطبقها مع العلم بانى التطبيق فى نفس الخلية وليس فى خلية اخرى New__________Microsoft_Excel.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر مايو 29, 2008 مشاركة قام بنشر مايو 29, 2008 اخي العزيز ابو اسامه بعد اذنك اخي h63 لقد جهزت لك هذا اثناء رد استاذنا ابو اسامه فليسمح لي Book1.rar رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 29, 2008 مشاركة قام بنشر مايو 29, 2008 السلام عليكم استخدم الداله round(a1,0) رابط هذا التعليق شارك More sharing options...
h63 قام بنشر مايو 29, 2008 الكاتب مشاركة قام بنشر مايو 29, 2008 السلام عليكم شكرا لتفاعلكم معى بالنسبة للاخ aah_aah2008 هذا بعيد عما اريده تماما فانا اعلم دوال التقريب جيدا ما اريده هو عند رصد درجة اعمال السنه فى عمود معين يصبح الاتى فى نفس العمود وليس فى عمود اخر :- عند كتابة الرقم 1.1 يصبح 1.5 عند كتابة الرقم 1.2 يصبح 1.5 عند كتابة الرقم 1.3 يصبح 1.5 عند كتابة الرقم 1.4 يصبح 1.5 عند كتابة الرقم 1.5 يصبح 1.5 عند كتابة الرقم 1.6 يصبح 2 عند كتابة الرقم 1.7 يصبح 2 عند كتابة الرقم 1.8 يصبح 2 عند كتابة الرقم 1.9 يصبح 2 وهكذا وكل هذا فى نفس الخلية اى لا يكون الناتخ فى خلية اخرى وشكرا رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مايو 29, 2008 مشاركة قام بنشر مايو 29, 2008 (معدل) السلام عليكم حسب فهمي للموضوع انك تعمل على ادخال قيم يعني الخلايا بدون صيغ انظر الى المرفق بعد ما تنتهي من الادخالات حدد الخلايا التي تريد تقريبها واضغط الزر سيقوم بالتقريب حسب طلبك في الخلايا المحددة على شرط الا تكون صيغة لانها سيحولها الى قيمة وهذه ايضا معادلة للقيام بذلك: IF(A4-INT(A4)=0;A4;IF(A4-INT(A4)<=0.5;INT(A4)+0.5;INT(A4)+1)) فرضا ان القيمة موجودة في الخلية A4 New__________Microsoft_Excel.rar تم تعديل مايو 29, 2008 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
h63 قام بنشر مايو 30, 2008 الكاتب مشاركة قام بنشر مايو 30, 2008 السلام عليكم خير الكلام ما قل ودل احسنت رابط هذا التعليق شارك More sharing options...
h63 قام بنشر مايو 30, 2008 الكاتب مشاركة قام بنشر مايو 30, 2008 الاخ العزيز / خبور قرأت الكود فهو صحيح مائة بالمائة ولا يخطر على بالى على الاقل ولكن يه ثغرة بسيطة جدا0 هل يستطيع الكود ان يتخطى اى رمز باللغة العربية فى مجال الاخلايا المحددة بمعنى :- طبعا ممكن ان يتخلل الارقام هذه اى حرف باللغة العربية مثل غ او م وهكذا 0اذا لم تستطع فيكفى ان يتخطى عقبة الرمز غ 0 اذا لم تستطع فالشكر الف الشكر لك ولامثالك0 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مايو 30, 2008 مشاركة قام بنشر مايو 30, 2008 السلام عليكم استخدم الكود بعد التعديل Sub kh_round() Dim kh_no As Range With Selection For Each kh_no In Selection If Not IsNumeric(kh_no) Then GoTo 1 If kh_no - Int(kh_no) = 0 Then kh_no = kh_no ElseIf kh_no - Int(kh_no) <= 0.5 Then kh_no = Int(kh_no) + 0.5 Else kh_no = Int(kh_no) + 1 End If 1 Next End With End Sub رابط هذا التعليق شارك More sharing options...
h63 قام بنشر مايو 30, 2008 الكاتب مشاركة قام بنشر مايو 30, 2008 السلام عليكم اشكرك شكرا جزيلا هشام رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر مايو 30, 2008 مشاركة قام بنشر مايو 30, 2008 حفظك الله ورعاك رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر مايو 31, 2008 مشاركة قام بنشر مايو 31, 2008 (معدل) اخى هشام شلبى فى عجالة شاهد المرفق Test_1.rar ويمكن تطبيق النظام المقترح من الاخ alielbasry فى موضوع درجات أعمال السنة ولكنى الان لن استطيع المكوث على الجهاز اكثر من ذلك تم تعديل مايو 31, 2008 بواسطه أبو تامر رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر مايو 31, 2008 مشاركة قام بنشر مايو 31, 2008 عملاقان في موضوع التقريب ياهنا موضوع التفريب الخاص لصالح الطلبة رابط هذا التعليق شارك More sharing options...
h63 قام بنشر مايو 31, 2008 الكاتب مشاركة قام بنشر مايو 31, 2008 السلا م عليكم قبل التحميل والشرح والفهم انا سعيد سعادة غير عادية بردك يا ابو تامر الحمد لله الحمد لله على انى اطمأنيت عليك انار الله ظلمة المنتدى وجعلك الله شمعة تضئ انفاق العلم شكرا يا اخى شفاك الله وعفاك شفاك الله وعفاك ثانيا انا سعيد لبداية مشاركات اعضاء جدد منهم من ايدنى فى موضوع التقريب ومنهم من خالفنى ولكنى ساكون اسعد بمشاركات اخرى تهدينا الى طريق موحد هشام رابط هذا التعليق شارك More sharing options...
h63 قام بنشر مايو 31, 2008 الكاتب مشاركة قام بنشر مايو 31, 2008 السلام عليكم اخى ابو تامر الكود اجمل مما كنت اتخيله والميزه هنا انه يضاف فى الصفخة التى بها اعمال السنه والميزة الثانية هو لا يحتاج الى ضغطة زر للتقريب اتتذكر ان برنامجك الحالى به ضغطة الزر للتقريب واعتقد ان عدم استخدام الزر أفضل هل لى ان اضع If Col = 3 Or Col = 5 Or Col = 7 Col = 9Or Col = 11Or Col=11 Then او اى عدد اخر حتى يتم التقريب لكل اعمدة اعمال السنه شفاك الله وعافاك اخى ابو تامر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان