captinasd قام بنشر يناير 13, 2011 قام بنشر يناير 13, 2011 الاخوة الكرام السلام عليكم ورحمه الله وبركاته ارجوا مساعدتى فى الملف المرفق حيث ارغب فى الاقلال من عدد اسطر الكود واستبدالها بكلمه sum المعتادة التى نعرفها كلنا داخل الشيت ولكنى لا استطيع تطبيقها داخل الكود ولكم جزيل الشكر مقدما Book1.rar
عبدالله باقشير قام بنشر يناير 13, 2011 قام بنشر يناير 13, 2011 السلام عليكم ممكن الاختصار بالكود التالي: Sub Com1() With Sheets(MySheets) For rr = 3 To .Range("A500").End(xlUp).Row If .Cells(rr, "b") = 1 Then .Cells(rr, "x").Value = Application.WorksheetFunction.Sum(Range(.Cells(rr, "c"), .Cells(rr, "w"))) End If Next End With End Sub
طارق محمود قام بنشر يناير 13, 2011 قام بنشر يناير 13, 2011 السلام عليكم أخي العزيز إستبدل الكود Com1 بالتالي Sub Com1() For rr = 3 To Sheets(MySheets).Range("A500").End(xlUp).Row If Sheets(MySheets).Cells(rr, "b") = 1 Then Sheets(MySheets).Cells(rr, "x").FormulaR1C1 = "=SUM(RC[-21]:RC[-1])" End If Next End Sub تفضل المرفق أيضا Book1-2.rar
بن علية حاجي قام بنشر يناير 13, 2011 قام بنشر يناير 13, 2011 Sub Com1() For rr = 3 To Sheets(MySheets).Range("A500").End(xlUp).Row Sheets(MySheets).Cells(rr, "x").Value = 0 If Sheets(MySheets).Cells(rr, "b") = 1 Then For cc = 3 To 23 Sheets(MySheets).Cells(rr, "x").Value = Sheets(MySheets).Cells(rr, "x") _ + Sheets(MySheets).Cells(rr, cc) Next cc End If Next rr End Sub وتطبيقه في الملف المرفق... أخوك بن علية Book1_1.rar
captinasd قام بنشر يناير 13, 2011 الكاتب قام بنشر يناير 13, 2011 (معدل) الاخ الفاضل خبور خير السلام عليكم ورحمه الله وبركاته اتقدم لك بخالص شكرى وتقديرى وامتنانى على مجهودك وتعبك فى الكود واعتقد انه يلبى حاجتى ويوفى بغرضى لذا اشكرك جزيلا واشكر القائمين على هذا المنتدى الرائع وجزاك الله خيرا واحب ان انوه الى اننى منذ قليل تصفحت الموضوع فوجدت اسمك ضمن من يقرؤون الموضوع فى هذه اللحظة فاحسست بسعادة وتوقعت خيرا ان علما من اعلام المنتدى قد مر بموضوعى واستيقنت خيرا وقد كان بفضل الله وحمده فجزاك الله خيرا وشكرا جزيلا الاخوة الكرام اخى بن عليه واخى طارق عندما كنت اكتب ردى لاخى خبور خير واجرب الكود الخاص به تمت اضافتكم الكريمه مشكورين عليها جدا لذا فالشكر موصول لكما ايضا ولكن بالنسبة لاخى طارق فقد ادى الكود الخاص بك لوضع معادله الجمع داخل الشيت وهو ما لا اريده بينما وضع كود الاخ الفاضل خبور خير الناتج مباشرة وهو المطلوب جزالك الله انت وهو واخى بن عليه كل خير حيث اقوم الان بدراسه كود اخى بن عليه حيث اننى لست خبيرا بالاكواد لذا التمس المعذرة فى تاخرى بالرد عليكم ولكن شكرى موصول لاخى بن عليه على مجهوده وتعبه واهتمامه جزاكم الله جميعا خير جزاء ووفقكم لما فيه طريقكم للجنه باذن الله تعالى وشكرا مرة ثانية تم تعديل يناير 13, 2011 بواسطه captinasd
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.