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

[niksirat2030]

سلام

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

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

[amir_ts]

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

[LEFT]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[/LEFT]