وليد المصرى 1 قام بنشر سبتمبر 12, 2012 مشاركة قام بنشر سبتمبر 12, 2012 (معدل) السلام عليكم ورحمة الله هل يوجد كود جمع فى خانة واحدة ( نفس الخانة ) اقصد ان يكون الجمع الى اذا وضعت رقم 10 فى خانة وبعدها وضعت رقم 30 فى نفس الخانة يعطينى المجموع40 وهكذا هل يوجد كود يقوم بهذا العمل ؟ اشكركم جميعا تم تعديل سبتمبر 12, 2012 بواسطه goodlife رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 12, 2012 مشاركة قام بنشر سبتمبر 12, 2012 السلام عليكم الاخ الفاضل goodlife فرضا الخليه المراد استخدامها " A2 " استخدم الكود التالي في حدث الورقة Private Sub Worksheet_Change(ByVal T As Excel.Range) On Error Resume Next Static S_Ali As Double With T If Not Intersect(.Value, [A2]) Is Nothing Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then _ S_Ali = S_Ali + .Value Else: S_Ali = 0 Application.EnableEvents = False .Value = S_Ali Application.EnableEvents = True End If End With End Sub رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر سبتمبر 12, 2012 مشاركة قام بنشر سبتمبر 12, 2012 السلام عليكم كنت قد حاولت ولم أفلح وعندما رأيت حل أخي العبقري أبونصار باستخدام الثنائية الرائعة Application.EnableEvents = False ................ Application.EnableEvents = True عندها أكملت الحل ، سأرفقه أيضا للإثراء في المرفق لن تلتزم بخلية محددة ، أي خلية تضع بها رقم سيضاف علي ماكان فيها تفضل المرفق add_in_same_cell.rar رابط هذا التعليق شارك More sharing options...
alfahad قام بنشر سبتمبر 12, 2012 مشاركة قام بنشر سبتمبر 12, 2012 جميل جداً ماذا لو اردنا ان يكون في الخلية P5 ناتج جميع ما يكتب في (B4:B200 ) حيث ان المدى (B4:B200) يوجد به ارقام تتراوح من 0 الى 8000 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 12, 2012 مشاركة قام بنشر سبتمبر 12, 2012 (معدل) بيكون كالتالي Private Sub Worksheet_Change(ByVal T As Excel.Range) Static S_Ali% If T.Row < 2 And T.Column <> 2 Then Exit Sub With T If Not Intersect(T, [B4:B200]) Is Nothing Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then S_Ali = S_Ali + .Value Else: S_Ali = 0 End If Application.EnableEvents = False [P5] = S_Ali Application.EnableEvents = True End If End With End Sub تم تعديل سبتمبر 12, 2012 بواسطه عباد رابط هذا التعليق شارك More sharing options...
alfahad قام بنشر سبتمبر 12, 2012 مشاركة قام بنشر سبتمبر 12, 2012 شاكر لك يا ابا نصار وليس بمستغرب تلبية الطلب على ابن اليمن السعيد حفظك الله وحفظ اخوننا في بلد الايمان رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر سبتمبر 13, 2012 الكاتب مشاركة قام بنشر سبتمبر 13, 2012 اشكركم جميعا اخواتى على هذا المجهود العظيم جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.