اريد كود للطرح

[dozens]

بعد السلام عليكم ورحمه الله و بركاته على اخواتى أعضاء المنتدى و تمنياتى لهم بالصحه و العافيه من اى شر اريد الاتى:-

المطلوب موضح بمثال داخل الشيت

1

اريد كود يقوم بطرح من خليه a3 من خلال الارقام التى تكتب فى خليا b3 مثال: قد قمت بكتابه رقم 50 فى الخليه b3 اريد كود يقوم بطرح 500-50=450 ثم قمت بمسح رقم 50 و كتابه رقم 100 فيقوم الكود بطرح 450-100=350 وهكذا

2

اريد كود يقوم بطرح من الخلايا a1 من خلال الارقام المكتوبه من الخلايا b1:t1

كود طرح.zip

[الـعيدروس]

السلام عليكم

حط هذا الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal T As Excel.Range)

On Error Resume Next

	    Static Val_A As Double

With T

	    If Not Intersect(.Value, [B3]) Is Nothing Then

		    If Not IsEmpty(.Value) And IsNumeric(.Value) Then _

			    Val_A = Val(.Offset(0, -1)) - Val(.Value) Else: Val_A = 0

			 Application.EnableEvents = False

			    .Offset(0, -1).Value = Val_A

			 Application.EnableEvents = True

		    End If

	    End With

End Sub

جرب وبلغنى بالنتائج

تم تعديل يناير 5, 2013 بواسطه عباد

[dozens]

قد تحقق مطلوب رقم 2 فقط و لكن اريد تحديده فى عمودين محددين وفى صف محدد و لم يتم تحقيق المطلوب الاول يا أخى عباد و للتوضيح ف المرفق

2كود طرح.zip

[الـعيدروس]

الطلب الاول محدد على الصف المحدد فقط

[dozens]

اسف اخى عباد اقصد الطلب الذى تحقق هو

اريد كود يقوم بطرح من خليه a3 من خلال الارقام التى تكتب فى خليا b3 مثال: قد قمت بكتابه رقم 50 فى الخليه b3 اريد كود يقوم بطرح 500-50=450 ثم قمت بمسح رقم 50 و كتابه رقم 100 فيقوم الكود بطرح 450-100=350 وهكذا

ولكن تحقق فى الورقه بالكامل و ليس بشكل محدد فى العمودين aوb فى الصف 4

اما الطلب

اريد كود يقوم بطرح من الخلايا a1 من خلال الارقام المكتوبه من الخلايا b1:t1

لم يتحقق بهذا الكود

[dozens]

الطلبين اريدهم محددين وليسوا على الورقه بالكامل

[الـعيدروس]

جرب هذا التعديل

Private Sub Worksheet_Change(ByVal T As Range)

On Error Resume Next

Static Val_A As Double

Static Val_B As Double

With T

If Not Intersect(T, [B3]) Is Nothing Then

If Not IsEmpty(.Value) And IsNumeric(.Value) Then _

Val_A = Val(.Offset(0, -1)) - Val(.Value) Else: Val_A = 0

Application.EnableEvents = False

.Offset(0, -1).Value = Val_A

Application.EnableEvents = True

End If

End With

If Not Intersect(T, [B1:T1]) Is Nothing Then

With T

If Not IsEmpty(.Value) And IsNumeric(.Value) Then _

Val_B = Val([A1]) - WorksheetFunction.Sum([B1:T1]) Else: Val_B = 0

Application.EnableEvents = False

[A1].Value = Val_B

Application.EnableEvents = True

End With

End If

End Sub

[dozens]

الف الف شكر هذا هو المطلوب اخى عباد و مشكور على مجهودك فى المنتدى ومجهودك معى فى طلبى هذا

[الـعيدروس]

الحمد لله الذي بنعمته تتم الصالحات

مانطرحه في هذا المنتدى انما هو رد للدين الذي علينا

وهو العلم الذي اكتسبناه منه

[حمادة عمر]

السلام عليكم

آسف للتدخل في الموضوع

استاذ / عباد انت شخص رااااااااااااااااائع بمعني الكلمة

جزاك الله خيرا

[saad abed]

الحمد لله الذي بنعمته تتم الصالحات

مانطرحه في هذا المنتدى انما هو رد للدين الذي علينا

وهو العلم الذي اكتسبناه منه

اخى الحبيب ابونصار

جزاك الله خيرا

ان رجلا يعترف بفضل الاخرين لهو جدير بالاحترام والتقدير

سبقت اخلاقك علمك ابونصار

لذلك اتوقع ان ينعم الله عليك نعم اكثر من ذلك وانت والله تستحق الكثير

وفقك الله اخى الحبيب

اخوك

سعد عابد