مقدار دهی به یک یا چند سلول پس از بررسی یک شرط

[tabaexceliran]

با سلام خدمت اساتید فن
بنده میخوام توی یک سلول فرمولی رو بنویسم که اگر برابر مقدار مورد نظرم بود بره و یک یا چند سلول رو مقدار دهی کنه . اینکارو با vba میتونم براحتی انجام بدم ولی میخوام بدوم چطور با فرمول میشه اینکارو کرد؟

100

50

*

=اگر سلول سوم ستاره دار بود که هست بره سلولهای 50 و 100 رو مقدار 0 بده

[mohammad_ashooryan]

با سلام
من اينكار رو با ابزار conditional formatting انجام دادم.
توي فايل پيوست توي ستون C اگه علامت * رو بنويسيد سلولهاي متناظر آن در ستونهاي AوB صفر مي شود.
sample.xlsx

[tabaexceliran]

با سلام و عرض خسته نباشید خدمت دوست عزیز
بسیار متشکر و ممنون خروجی برای پرینت درست است ولی مقدار همان عددها باقی می مانند آیا میتوان کاری کرد که مقدار( value ) هم صفر شود؟

[mohammad_ashooryan]

خوب اگه بخواین مقدار هم صفر بشه باید از ستونهای کمکی و فرمول if استفاده کنید.

[tabaexceliran]

براتون ممکنه که همین فایلو برام اصلاح کنید بذارید همینجا؟

[iranweld]

براتون ممکنه که همین فایلو برام اصلاح کنید بذارید همینجا؟

با سلام
برای سلول دوم

=if(c1="*";0;50) 

برای سلول سوم

=if(c1="*";0;100) 

[tabaexceliran]

با سپاس فراوان
ولی مشکل حل نمیشه چون ستونهای a,b رو برای ورود اطلاعات data entry نیاز دارم و نمیخوام توی اونا شرط بنویسم . فقط داده ها اونجا باشن و من از یه سلول دیگه اونا رو تغییر بدم که دوستمون تونستن با تغییر فرمت اینکارو انجام بدن ولی مقادیر همچنان باقی هستن.

[mohammad_ashooryan]

با سپاس فراوان
ولی مشکل حل نمیشه چون ستونهای a,b رو برای ورود اطلاعات data entry نیاز دارم و نمیخوام توی اونا شرط بنویسم . فقط داده ها اونجا باشن و من از یه سلول دیگه اونا رو تغییر بدم که دوستمون تونستن با تغییر فرمت اینکارو انجام بدن ولی مقادیر همچنان باقی هستن.

با سلام
از ستونهاي d,e كمك بگيريد.
Book2060.xlsx

[tabaexceliran]

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

Sub macro1()
With Worksheets("sheet1")
If (.Range("c1").Value = "*") Then
.Range("a1").Value = 0
.Range("b1").Value = 0
End If
End With
End Sub

من اومد چک کردم که اگر ستون c1 دارای کاراکتر ستاره بود اون موقع مقادیر ستونهای a,b رو تغییر بده که در اینجا مقدار صفر میگیرن.حالا با این کد ساده اینکار انجام میشه و پیاده سازی اون توی ستونهای مورد نظر من که a,b هست با توابع اکسل به چه صورت میشه؟ یعنی
چطور از یک سلول مقادیر سلولهای دیگرو میشه تغییر داد؟
جواب اولی که به من داده شد کار منو تا حدی راه میندازه ولی گفتم که مقدار تغییر نمیکنه من یه چنین چیزی میخوام اگه کسی بلده کمک کنه ممنون میشم.

[Ali Parsaei]

چطور از یک سلول مقادیر سلولهای دیگرو میشه تغییر داد؟

سلام،
چنين چيزي با توابع به هيچ عنوان قابل اجرا نيست فقط با vba مي شود، دوستان بهترين و حرفه اي ترين کارهايي که مي شد در اين خصوص کرد را برايتان گفته اند و خودتان هم که vba اش را بلديد، ديگر کاري بيش از اين مقدور نيست!
موفق باشيد.

[tabaexceliran]

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