محاسبه عبارات ریاضی در اکسل

[niksirat2030]

سلام

در پست ضرب داخلی در اکسل قبل از جواب گرفتن سوال رو حل شده کردم که باعث میشه دیگه نشه بهش جواب داد.

هدف اینه که ستون موجود در فایل ضمیمه در اکسل کپی بشه و حاصل هر سلول در سلول کناریش نوشته بشه.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[amir_ts]

با سلام
دوست عزیز میتونید از کد زیر استفاده کنید.
با عرض پوزش اگر مدیران صلاح دیدن تاپیک رو جابه جا کنند.
مقادیر رو در ستون a کپی کنید.
فقط ترتیب عملگر ها رو باید در نظر بگیرید.

Sub test()
Dim lr, i As Integer
lr = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lr
Cells(i, 2).Value = "=" & Cells(i, 1).Value
Next i
End Sub