نمایش فرمول در یک ستون و جواب در ستون دیگر

[iranweld]

[ATTACH=CONFIG]8134[/ATTACH]

با سلام
و کسب اجازه از مهندس قاسمیان
کدهای ذیل را امتحان کنید.

Sub RangeFormula()
Dim c, rng As Range
Set rng = Sheet1.Range("B3:B8")
For Each c In rng
    c.Offset(0, 1).Formula = "=" & c.Value
Next c
End Sub 

[generalsamad]

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

Function Eval(Ref As String)
Application.Volatile
Eval = Evaluate(Ref)
End Function 

و در سلول جواب از این فرمول استفاده کنید

=Eval(A1) 

این فرمول مقدار متنی در سلول A1 رو به صورت فرمول محاسبه میکنه
مثلا در سلول A1 اینو تایپ کنیم 25*2 تابع 50 رو بر میگردونه