إدراج معادلة

[Akram Galal]

السادة المحترمين

أريد عمل زر عند الضغط عليه يقوم بجمع الخلية A1 + B1

وتظهر النتيجة في الخلية C1

وعند الضغط عليه مرة أخرى يقوم بجمع الخلية A2 + B2

وتظهر النتيجة في الخلية C2

وهكذا ...

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

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

تم تعديل مايو 12, 2013 بواسطه Akram Galal

[بن علية حاجي]

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

 

أخي الكريم، هذا كود بسيط يقوم بما طلبته (لكن بداية من السطر الثاني) مع توقفه في حالة أن تكون خلايا السطر من العمودين A و B (الأول والثاني) فارغتين... أرجو أن يكون المطلوب وإن لم يكن ننتظر ما يقدمه إخوتنا الكرام وما يجود به قلمهم...

 

الكود:

Sub Calcul_Somme()
   Lrow = Range("C65000").End(xlUp).Row + 1
   If Cells(Lrow, 1) = "" And Cells(Lrow, 2) = "" Then Exit Sub
   Cells(Lrow, 3) = Cells(Lrow, 1) + Cells(Lrow, 2)
End Sub
 

وتنفيذ ذلك في الملف المرفق التالي:  Calcul_Somme.rar

 

 

أخوك بن علية

تم تعديل مايو 12, 2013 بواسطه بن علية حاجي

[Akram Galal]

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

أخي بن علية

وشكرا علي سرعة الرد

[Akram Galal]

ولكن أخي الفاضل

ماذا لو أردت أن تظهر جميع النواتج مرة واحدة في جميع الصفوف

وشكرا

تم تعديل مايو 12, 2013 بواسطه Akram Galal

[بن علية حاجي]

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

 

 

أخي الكريم أكرم، تم التعديل على الكود في موضوعك الثاني "إدراج معادلة 2" بالرابط :   http://www.officena.net/ib/index.php?showtopic=46989&p=282195

والكود كان كما يلي:

 

Sub Calcul_Somme()
   Lrow = Range("A1").SpecialCells(xlCellTypeLastCell).Row
   Range(Cells(2, 3), Cells(Lrow, 3)).ClearContents
   For I = 2 To Lrow
   If Cells(I, 1) = "" And Cells(I, 2) = "" Then Cells(I, 3) = "" Else: Cells(I, 3) = Cells(I, 1) + Cells(I, 2)
   Next I
End Sub
 

 

أخوك بن علية