(تمت الاجابة) اضافة قيمة الى قيمة ثابتة داخل نفس الخلية

[edkawy]

السلام عليكم و رحمة الله

الرجتء من الاخوة التكرم بمساعدتى فى الملف المرفق ان امكن

انا عندى قيمة ثابتة فى الخلية WPS و عاوز اضيف ( قيم متغيرة ) لنفس الخلية بدون مسح القيمة الموجودة اصلا فى الخلية قبل كدة

جزاكم الله خير مقدما

[طارق محمود]

السلام عليكم

لايوجد ملف مرفق !!!!!!

[أبو حنــــين]

السلام عليكم

الأخ edkawy مرحبا ، أرجو أن يكون هذا هو المطلوب في ما يخص إضافة قيمة لخلية دون مسح القيمة الاصلية

إضافة قيمة للخلية دون مسح القيمة الاصلية.rar

[الـعيدروس]

السلام عليكم

الاخ الفاضل عيد

إذا تقصد خلية جمع المدخلات فيها

فرضا أن الخلية المعنيه A2

جرب هكذا

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

Private Sub Worksheet_Change(ByVal ALI As Excel.Range)

Static ALI_S As Double

    With ALI

	 If .Address(0, 0) = "A2" Then

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

	    ALI_S = ALI_S + .Value

	    Else

	    ALI_S = 0

	    End If

	  Application.EnableEvents = False

    .Value = ALI_S

    Application.EnableEvents = True

    End If

End With

End Sub

وعندما يتم إقفال المصنف يتم تصفير القيمة في المتغير

[edkawy]

الاخوة الكرام , جزاكم الله خير على ردكم و اهتمامكم

الملف مرفق

المفروض ان العمود هيكون فية WPS ( او اى قيمة تانية ) وانا هكمل واضيف الرقم الخاص بيه

يا رب اكون عرفت اوصل المطلوب

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

Book2.zip

[طارق محمود]

السلام عليكم

أخي العزيز

المرفق به زر ، بالضغط عليه سيمر علي خلايا العمود C

إذا كان أولها لايبدأ بما هو في مقابلها بالعمود B فسيتم إضافتها له

وأما إذا كان أولها يبدأ بما هو في مقابلها بالعمود B فسيحذفها عنها

أي أنه يصلح للدمج والفصل أيضا

تفضل المرفق

link_release.rar

[أبو حنــــين]

السلام عليكم

جرب هذا عسى ان يفي بالغرض

إضافة قيمة للخلية دون مسح القيمة الاصلية.rar

[edkawy]

الاساتذة الكرام

جزاكم الله على مجهودكم , انا حاولت اوضح طلبى اكتر فى الملف المرفق

برجاء المساعدة ان امكن

محمد سعد

Book3.zip

[عبدالله المجرب]

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

ثم جرب كتابة اي كلمة في خلايا العمود C وسيتم اضافة القيمة السابقة الى ما قمت بادخاله

Dim OldValue

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

With Application

		 .ScreenUpdating = False

		 .EnableEvents = False

    End With

  If Not Intersect(Target, [C5:C23]) Is Nothing Then

    Target = Target & " " & OldValue

    End If

    OldValue = vbNullString

    With Application

		 .ScreenUpdating = True

		 .EnableEvents = True

    End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

OldValue = Target

End Sub

[edkawy]

الاخوة الكرام

جزاكم الله على مجهودكم بس للاسف الحلول دى مسهلتش الشغل زى ما كنت اتمنى

انا هستمر فى الطريقة اللى شغال بيها

بارك الله فيكم مرة اخرى على مجهودكم و اسف انى تعبتكم معايا فى الموضوع دة

محمد سعد

[طارق محمود]

السلام عليكم

أخي العزيز

الكود الذي قدمه أخونا أبوأحمد (حفظه الله) شغال وليس به شيء

قد تكون أنت لم تستطع نقله

بعد إذنك أبوأحمد (غيرت تغييرات طفيفة : عمود التغيير B وليس C وكذلك محتوي الخلية القديم قبل الجديد)

تفضل الملف المرفق وبه الكود يعمل كما تريد

حاول الكتابة علي أي من الخلايا الصفراء وحتي لو كررت الكتابة ، سيتراكم المكتوب القديم والجديد

Book3.rar

[edkawy]

وعليكم السلام و رحمة الله

الاستاذ الكريم / طارق

شكرا على اهتمامك بالموضوع وانا شايف انك معاك حق بخصوص نقل الكود الخاص بالاستاذ / عبد الله ابو احمد جزاه الله خير , يا ريت يعذرنى على قلة فهمى للكود

التعديل اللى قى الملف اللى حضرتك عملتة اكتر من ممتاز و هو المطلوب بالظبط

فى الكود اللى حضرتك عاملة العمود بياخد رقم , بمعنى عمود A هو رقم 1 , و عمود B هو رقم 2 , وهكذا ...... يعنى انا ممكن اعمل كوبى للكود فى الملف بتاعى و اغير فى رقم العمود اللى انا محتاجة مفيش مشكلة .

سؤالى لحضرتك ان امكن هو : ازاى اقدر احدد مدى معين للصفوف , مثلا من الصف رقم 10 الى الصف رقم 5000 , مش للعمود كلة , وهل ممكن تنى اضيف رقم عمود تانى فى نفس الكود ؟؟

جزاكم الله خير عى مجهودكم

[طارق محمود]

السلام عليكم

أخي العزيز

لابأس ، المهم تصل لما تريد ، هذا هدفنا جميعا

تفضل الكود بعد التعديل كما تريد وبه تلميح باللغة العربية لأماكن التعديل

Dim OldValue


Private Sub Worksheet_Change(ByVal Target As Range)


'في السطر التالي تم إضافة العمودين رقم 3 ، 4  للعمود رقم 2

If Target.Count > 1 Or Target.Column < 2 Or Target.Column > 4 Then Exit Sub


'وفي السطر التالي يتم تحديد الصفوف من 10 إلي 5000

If Target.Row < 10 Or Target.Row > 5000 Then Exit Sub


Application.ScreenUpdating = False

Application.EnableEvents = False


	Target = OldValue & Target

	OldValue = vbNullString


Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

OldValue = Target

End Sub

[edkawy]

بارك الله فيك يا استاذ طارق وفى جميع من اهتم ورد على الموضوع وجعلة فى ميزان حسناتكم

مش محتاج اى حاجة تانية

بارك الله فيك مرة اخرى

محمد سعد

[عبدالله المجرب]

السلام عليكم

أخي العزيز

الكود الذي قدمه أخونا أبوأحمد (حفظه الله) شغال وليس به شيء

قد تكون أنت لم تستطع نقله

بعد إذنك أبوأحمد (غيرت تغييرات طفيفة : عمود التغيير B وليس C وكذلك محتوي الخلية القديم قبل الجديد)

حياك الله استاذ طارق كفييت ووفيت

[mahmoud mabrouk]

السلام عليكم ورحمه الله وبركاته 

الاخوه الاعزاء ارجوا المساعده فى هذا العمل .. وسؤالى هو كيف اجعل قيم

d2 الى d8 وقيمi2 الى  i8  

الى شخص واحد فقط كل مره من هذه الاسماء فى العمود

b

A	B	C	D	E	F	G	H	I	J
	التاريخ	الدفعات				التاريخ	السحب
		تنزيل دفعه ثانيه					سحب دفعه ثانيه
		تنزيل دفعه ثالثه					سحب دفعه ثالثه
		تنزيل دفعه رابعه					سحب دفعه رابعه
		تنزيل دفعه خامسه					سحب دفعه خامسه
		تنزيل دفعه سادسه					سحب دفعه سادسه
		تنزيل دفعه سابعه					سحب دفعه سابعه
		تنزيل دفعه ثامنه					سحب دفعه ثامنه
							0
تاريخ اليوم	اسم المدين	عنوانه	تليفونه	المبلغ المستحق	دفع	تبقى	سحب	تنزيل من الحساب
						0	0	0	0
1	محمود					0	0	0	0
2	محمد					0	0	0	0
3	احمد					0	0	0	0