أبو العاصم قام بنشر مارس 30, 2015 مشاركة قام بنشر مارس 30, 2015 السلام عليكم ورحمة الله الكود المرفق هو الكود الوحيد الذى إهتديت اليه لعمل الترصيد أطلب تعديل عليه بحيث يكون الرصيد فى عمود واحد فقط بحيث لو الصيد قلب سالب يدرج الرصيد بالسالب ولو فى الإمكان الوصول الى كود جديد يقوم بنفس الفكرة يغير كل أرقامه أتوماتيك بمجرد تغيير أى عمليه سابقه أكون شاكر جدا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E9:E20")) Is Nothing Then '--------------------------- If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False aa = Application.Sum(Range("E9:E20")) bb = Application.Sum(Range("F9:F20")) If aa - bb + [A9] > 0 Then Target.Offset(0, 2) = aa - bb + [A9] If aa - bb + [A9] < 0 Then Target.Offset(0, 3) = aa - bb + [A9] If aa - bb + [A9] = 0 Then Target.Offset(0, 2) = 0 Target.Offset(0, 3) = 0 End If End If If Not Intersect(Target, Range("F9:F20")) Is Nothing Then '--------------------------- If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False aa = Application.Sum(Range("E9:E20")) bb = Application.Sum(Range("F9:F20")) If aa - bb + [A9] > 0 Then Target.Offset(0, 1) = aa - bb + [A9] If aa - bb + [A9] < 0 Then Target.Offset(0, 2) = aa - bb + [A9] If aa - bb + [A9] = 0 Then Target.Offset(0, 1) = 0 Target.Offset(0, 2) = 0 End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub المرفق به الكود القديم وتعديلى عليه ترصيد.rar رابط هذا التعليق شارك More sharing options...
أبو العاصم قام بنشر مارس 30, 2015 الكاتب مشاركة قام بنشر مارس 30, 2015 اين الفارس ياسر خليل رابط هذا التعليق شارك More sharing options...
أبو العاصم قام بنشر مارس 30, 2015 الكاتب مشاركة قام بنشر مارس 30, 2015 up رابط هذا التعليق شارك 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.