يه سوال!!

[rosesefid]

بچه ها آيا اكسل تابعي داره كه وقتي يه عدد رو وارد ميكنيم بعد از زدن اينت مثلا 3 تا صفر بهش اضافه كنه؟ مثلا من 3 وارد كنم ولي 3000 وارد شه؟ خيلييييييييي نياز دارم!!!

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

RE: يه سوال!!

سلام
دوست عزیز فایل پیوست رو ببین مشکلتو حل میکنه، با افزایش عرض ستون تعداد صفر ها زیاد میشه

[rosesefid]

RE: يه سوال!!

چه فايل جالبي بود!!!! ولي من اينجوري نميخوام ميدونيد چرا؟ چون تعداد ارقام داده هام تو رديفهاي مختلف فرق ميكنه و من ميخوام به همه داده هام مثلا 6 تا صفر اضافه شه. تو اين فايل شما مثلا 2 ميشه 2000 ولي 15 ميشه 1500 درحاليكه من ميخوام به جفتش تعداد مساوي صفر اضافه شه

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

RE: يه سوال!!

سلام
میشه یه کاری کرد مثلا تو ستون اول عدد رو وارد کنی تو ستون کناریش عدد به شکل دلخواهت نمایش داده بشه این خوبه؟[hr]
فرض کن تو ستون a عدد وارد کنی و تو ستون b فرمول زیر نوشته بشه
[align=left]

=A1&0&0&0 

[/align]
بعد فرمول رو باید گسترش بدی

[rosesefid]

RE: يه سوال!!

من ميخواستم 2 ستون نكنم چون اگه 2 ستون بخوام بشه ديگه نيازي به فرمول سختي نيست فقط كافيه بنويسم ستون قبل ضربدر 1000000

[komeilex]

RE: يه سوال!!

[align=justify]با سلام و با اجازه آقای وطن پرست.
دوست عزیز شما می تونین یه تابع برا خودتون تعریف کنین و مثل توابعی که تو اکسل وجود دارن ازشون استفاده کنین. برای این کار به محیط VB برین و یه ماژول اضافه کنین و این کد رو داخلش بنویسین.

Function Hezar(Adad)
Hezar = Adad * 1000
End Function 

این تابع هر عددی که بهش بدین ضربدر هزار می کنه و بهتون برمی گردونه.اسم این تابع Hezar هستش که مثل سایر توابع اکسل قابل استفاده می باشد.
[/align]

[rosesefid]

RE: يه سوال!!

آخه من تا حالا با VB كار نكردم

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

RE: يه سوال!!

سلام
ممنون از کمیل عزیز ولی این کار هم مشکل رو حل نمیکنه چون بازم باید تابع نوشته بشه برای این کار باید از custom format cell استفاده بشه

[rosesefid]

RE: يه سوال!!

منم با شما موافقم ولي هرچي ميگردم پيدا نميكنم يعني پيدا ميكنم ها ولي صفرهارو قبل از عدد اضافه ميكنه!!!! مثلا 3 ميشه 0000003 در حاليكه من 3000000 ميخوام باشه.

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

RE: يه سوال!!

از کد زیر استفاده کن

[align=left]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target = Target.Value * 1000
End Sub 

[/align][align=left][/align][/quote][hr]
نه اینم نمیشه چون هر بار کلیک کنی در 1000 ضرب میکنه

[komeilex]

RE: يه سوال!!

آخه من تا حالا با VB كار نكردم

برای رفتن به محیط VB باید تب developer رو فعال کنی. برای این کار از مسیر زیر اقدام کن:
excel button >>excel option >>popular >> show developer tab in ribbon
به تب developer برین و گزینه visual basic رو انتخاب کنین. الان شما وارد محیط VB شدین. حالا تو این محیط از تب Insert گزینه module را انتخاب کنین و کدی رو که بهتون گفتم اونجا کپی کنین. تابع مورد نظر به سایر توابع اکسل اضافه شده و طریقه استفادش هم دقیقا مثل اونهاست.

[rosesefid]

RE: يه سوال!!

آخه من براي اينكه اين تابع اثر كنه هي تو هر رديف بايد بزنم = تابع رو انتخاب كنم عدد رو بنويسم!!!! يه روز كامل طول ميكشه!!!!

[khakzad]

RE: يه سوال!!

سلام دوست عزیز
ببینید اینطوری مشکل حله؟
ستون عددی اول رو هر عددی خواستید بدید
من از a1:a500 تعیین کردم.اگه بیشتر نیاز بود.برید توی کد و عدد 500 رو به هر عددی دوس داشتید تغییر بدین

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

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

RE: يه سوال!!

سلام
همونطور که گفتم این کار از طریق فرمت سل امکان پذیره کافیه سه تا صفر رو داخل کتیشن قرار بدیم مشکل حل میشه

[khakzad]

RE: يه سوال!!

ممنون
خیلی جالب بود