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

[ARYACLUB]

سلام


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

لطفا راهنمایی کنید

[Ali Parsaei]

سلام،
تمام فرمولها را با مساوي به طور کامل در يک ستون وارد کنيد تا نتيجه فرمول در خانه نمايان شود، سپس آن ستون را در ستون کناري کپي کنيد.
بعد ستون اول را انتخاب و با کليک دگمه هاي ctrl+f و توسط استفاده از ابزار find and replace علامت مساوي: "=" را با تهي: "" عوض کنيد.

[pouyan]

سلام. میشه یه جور دیگه هم انجام داد. قبل از علامت تساوی، علامت آپوستروف یا همان ' (https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=5&cad=rja&uact=8&ved=0CDsQFjAEahUKEwiH1MKI5bXHAhXIuBQKHUGlDJA&url=http%3A%2F%2Fwww.aftabir.com%2Fdictionaries%2F word%2F155589%2F%25D8%25A7%25D9%25BE%25D9%2588%25D 8%25B3%25D8%25AA%25D8%25B1%25D9%2588%25D9%2581-%25D8%25B9%25D9%2584%25D8%25A7-%25D9%2585%25D8%25AA-%27-%25D9%2583%25D9%2587-%25D8%25AF%25D8%25B1-%25D9%2585%25D9%2588%25D8%25A7%25D8%25B1%25D8%25AF-%25D8%25B2%25DB%258C%25D8%25B1-%25D8%25A8%25D9%2587-%25D9%2583%25D8%25A7%25D8%25B1-%25D9%2585%25DB%258C-%25D8%25B1%25D9%2588%25D8%25AF&ei=vczUVceBB8jxUsHKsoAJ&usg=AFQjCNHFykp8wRxlccwzcP90f29byW8LWg&bvm=bv.99804247,d.bGg) رو بذاریم دیگه نتیجه ی فرمول رو نشون نمیده و خود فرمول به نمایش در میاد.
8124

[ARYACLUB]

ممنون از دوستان بابت پاسخ

من میخوام اعدادی که با هم قراره جمع و ضرب بشه طبق عکس نمایش بده
و
تو ستون کناری اتوماتیک اون جمع و تفریق بیاد با این فرق که پشتش مساوی = بیاد که جواب را خودش بنویسه


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

در کل میخوام ستون جواب را خودش بدست بیاره

ممنون

[Amir Ghasemiyan]

ممنون از دوستان بابت پاسخ

من میخوام اعدادی که با هم قراره جمع و ضرب بشه طبق عکس نمایش بده
و
تو ستون کناری اتوماتیک اون جمع و تفریق بیاد با این فرق که پشتش مساوی = بیاد که جواب را خودش بنویسه


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

در کل میخوام ستون جواب را خودش بدست بیاره

ممنون

دوست عزيز فكر كنم VBA براي سوال شما مناسب باشه.
من اين كد رو بهتون پيشنهاد ميكنم


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

[generalsamad]

سلام


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

لطفا راهنمایی کنید

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


=formulatext(a1)


این تابع فرمول سلول a1 رو برمیگردونه

[Amir Ghasemiyan]

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


=formulatext(a1)


این تابع فرمول سلول a1 رو برمیگردونه

ممنون فرمول خوبي بود. آشنايي نداشتم باهاش
ولي فكر كنم ايشون برعكس اين قضيه رو ميخوان. يعني يه فرمولي دارن ميخوان تو يك سلول جواب فرمول رو داشته باشن

[majid_mx4]

با سلام و تشکر

این فرمول در 2010 و 2007 وجود ندارد برای تکمیل پست

میتوانید از فانکشن زیر استفاده نمایید


Function F2T(mycell As Range)
F2T = mycell.Formula
End Function
نحوه استفاده : یک ماکرو ایجاد کنید ، دستور بالا اضافه کنید و به صفحه اکسل برگردید ، علامت مساوی را زده و F2T را تایپ و روی خانه مورد نظر کلیک کنید .

با تشکر میر

[ARYACLUB]

سلام ممنون از جواب و سرعت عمل دوستان

بهترین روش فکر کنم امیر عزیز گفتند به روش ویژوال بیسیک هست که با این زیان برنامه نویسی ویژوال و استفادش تو اکسل زیاد اشنا نیستم (کدها را تو ماکرو گذاشتم تغییری نکرد)


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

[Amir Ghasemiyan]

سلام ممنون از جواب و سرعت عمل دوستان

بهترین روش فکر کنم امیر عزیز گفتند به روش ویژوال بیسیک هست که با این زیان برنامه نویسی ویژوال و استفادش تو اکسل زیاد اشنا نیستم (کدها را تو ماکرو گذاشتم تغییری نکرد)


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

دوست عزيز كدي كه تقديمتون كردم كارش اينه كه فرمول هاي سلول هاي b3 تا b8 رو ميگيره و جلوي اونها نتيجه فرمول رو چاپ ميكنه.
براي اجراي كد بعد از كپي كردن آنها در يك ماژول بايد اون رو اجرا كنيد. كليد F5 براي اين منظور هست.
در صورتي كه موفق نشديد بفرماييد تا جزئيات بيشتري خدمتتون ارائه كنم

[ARYACLUB]

شرمنده میشه نحوه اعمال کد را بگید
از بخش ماکرو اد و ران میکنم ارور میده
f5 که go to میاد

[Amir Ghasemiyan]

شرمنده میشه نحوه اعمال کد را بگید
از بخش ماکرو اد و ران میکنم ارور میده
f5 که go to میاد

ابتدا كليدهاي تركيبي Alt+F11 رو بزنين تا وارد محيط ويژوال بيسيك بشيد
حالا از منوي insert گزينه module رو انتخاب كنيد.
كل كد رو تو اين قسمت كپي كنيد.
حالا كليد F5 رو در همين محيط ويژوال بيسيك بزنين و نتيجه رو مشاهده كنيد

[iranweld]

با سلام

در سلولی که قصد نمایش فرمول را دارید ابتدا یا space یک فاصله بدید و سپس فرمول خود با علامت = را تایپ کنید


8132

[ARYACLUB]

ابتدا كليدهاي تركيبي Alt+F11 رو بزنين تا وارد محيط ويژوال بيسيك بشيد
حالا از منوي insert گزينه module رو انتخاب كنيد.
كل كد رو تو اين قسمت كپي كنيد.
حالا كليد F5 رو در همين محيط ويژوال بيسيك بزنين و نتيجه رو مشاهده كنيد

8134

[ARYACLUB]

با سلام

در سلولی که قصد نمایش فرمول را دارید ابتدا یا space یک فاصله بدید و سپس فرمول خود با علامت = را تایپ کنید


8132



دوست عزیز ممنون از پاسخ

اما . مشکل اینجاست که تمام اعداد که میخوام جمع و ضرب بشه تو یک سلول هستش
و ضمنا اون مساوی اول هم نمایش داده نشه

[iranweld]

8134

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


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 رو بر میگردونه