تطبيق كود عملية حسابية على باقي خلايا عمود

[مهند الزهراني ابو بتال]

 اسعد الله صباحكم بكل خير

استفدة من دروسكم الكثير و الكثير واني اخجل بطلبي هذا 

بسبب عدم معرفتي بصيغة البحث المناسبة لطلبي 

 

لدي الملف المرفق وهو نسخه من الملف الاصلي 

لكن طلبي بها وهو 

D ارغب في كود يمكنني من تطبيق المعادلة الحسابية على جميع خلايا العمود 

ولكم جزيل الشكر

اقتباس

Sub code1() 

SpreadsheetPassword = pass
ActiveSheet.Unprotect Password:=SpreadsheetPassword 

[d8] = [e8] + [c8] 

Range("c8:c20").ClearContents 

ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True
ActiveSheet.EnableOutlining = True 
End Sub

 

مثال.zip

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit
Sub add_values()
Dim r%: r = Range("b7").CurrentRegion.Rows.Count
Dim MY_RG As Range
Set MY_RG = Range("b8").Resize(r - 1, 5)
With MY_RG
.Cells(1, 3).Resize(r - 1).Formula = "=SUM(E8,C8)"
.Cells(1, 5).Resize(r - 1).Formula = "=SUM(D8,C8)-B8"
.Value = .Value
End With

End Sub

 

[مهند الزهراني ابو بتال]

7 hours ago, سليم حاصبيا said:

جرب هذا الماكرو

Option Explicit
Sub add_values()
Dim r%: r = Range("b7").CurrentRegion.Rows.Count
Dim MY_RG As Range
Set MY_RG = Range("b8").Resize(r - 1, 5)
With MY_RG
.Cells(1, 3).Resize(r - 1).Formula = "=SUM(E8,C8)"
.Cells(1, 5).Resize(r - 1).Formula = "=SUM(D8,C8)-B8"
.Value = .Value
End With

End Sub

 

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

لم تظهر النتيجه المطلوبة 

ولكن لكي اوضح طلبي 

رغبتي في كود تطبيق المعادلة 

[d8] = [e8] + [c8]

 على العامود كاملا

[d8] 

مثل كود autofill

[سليم حاصبيا]

الكود يعمل بشكل ممتاز 

لا أعرف ما المشكلة عندك

الملف مرفق مع الكود

Exemple.xlsm

[مهند الزهراني ابو بتال]

 استاذنا الكبير شكر لك 

تم العمل على الكود المرسل من قبلك

تحياتي