[حل شده] یک مساوی اضافه بشه سمت چپ تمام سلولها

[quietboy]

سلام وقت همگی بخیر...
چطور میتونم به یک فایل اکسل که تعدادی سلول غیرخالی داره یک مساوی اضافه کنم در سمت چپ تمام سلولها ؟ یعنی فقط یک مساوی اضافه بشه سمت چپ تمام سلولها
ممنون

[Amir Ghasemiyan]

سلام وقت همگی بخیر...
چطور میتونم به یک فایل اکسل که تعدادی سلول غیرخالی داره یک مساوی اضافه کنم در سمت چپ تمام سلولها ؟ یعنی فقط یک مساوی اضافه بشه سمت چپ تمام سلولها
ممنون

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

="="&a1

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

[quietboy]

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

="="&a1

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

خیلی ممنون از پاسختون.
ببینید من تعداد زیادی سلول دارم شامل 1000*1.23
حالا میخام اکسل حاصل ضرب این رو بهم نشون بده نه به این شکل.
فرمول شما هم بکار نیومد...یک مساوی اضافه کرد اما حاصل رو نمایش نمیده

[quietboy]

درضمن طوری خواهشن بگید که قابل اعمال روی تمام سلولها باشه

[iranweld]

با سلام

ماکرو ذیل را تست کنید

Sub test()

For Each cell In ActiveSheet.UsedRange

 If InStr(cell, "+") > 0 Or InStr(cell, "-") > 0 _
 Or InStr(cell, "/") > 0 Or InStr(cell, "*") > 0 Then
 
cell.Value = "=" & cell

End If

Next

End Sub 

[~M*E*H*D*I~]

برای این کار یک ترفند ساده هست ، استفاده از تابع evalute در name menager در فایل پیوست ستون b محاسبه اعداد ستون a هست به name manager نگاه کنید ببینید چطوری اینکار انجام شده

[quietboy]

با سلام

ماکرو ذیل را تست کنید

Sub test()

For Each cell In ActiveSheet.UsedRange

 If InStr(cell, "+") > 0 Or InStr(cell, "-") > 0 _
 Or InStr(cell, "/") > 0 Or InStr(cell, "*") > 0 Then
 
cell.Value = "=" & cell

End If

Next

End Sub 

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

[iranweld]

با سلام

فیلم پیوست را ملاحظه بفرمایید

چنانچه مشکل هنوز وجود داشت نمونه فایل خود را بصورت زیپ شده ضمیمه پست کنید

[quietboy]

با سلام

فیلم پیوست را ملاحظه بفرمایید

چنانچه مشکل هنوز وجود داشت نمونه فایل خود را بصورت زیپ شده ضمیمه پست کنید

نشد باز
چون شاید شامل تکست هست اینطوره...
در مورد فایل ارسالی من کار نمیکنه...ضرب ها رو به حاصل تبدیل نمیکنه

[quietboy]

برای این کار یک ترفند ساده هست ، استفاده از تابع evalute در name menager در فایل پیوست ستون b محاسبه اعداد ستون a هست به name manager نگاه کنید ببینید چطوری اینکار انجام شده

نه.
در همون سلول میخام انجام بشه
چون حجم بالاست نمیشه هی شیفت داد به بغلی.
تابع شما شیفت میده ب سلول دیگه

[iranweld]

با سلام

ماکرو ذیل را تست کنید

Sub test()

For Each cell In ActiveSheet.UsedRange

If Left(cell, 1) <> "=" And IsNumeric(Right(cell, 1)) And IsNumeric(Left(cell, 1)) _
 And InStr(cell, ":") = 0 And InStr(cell, "*") > 0 Or _
 Left(cell, 1) <> "=" And IsNumeric(Right(cell, 1)) And IsNumeric(Left(cell, 1)) _
 And InStr(cell, ":") = 0 And InStr(cell, "*") > 0 And InStr(cell, "+") > 0 Then
 
 cell.Select
 
cell.Value = "=" & cell.Value

End If

Next

End Sub