PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : يه سوال!!



rosesefid
2012/06/12, 12:48
بچه ها آيا اكسل تابعي داره كه وقتي يه عدد رو وارد ميكنيم بعد از زدن اينت مثلا 3 تا صفر بهش اضافه كنه؟ مثلا من 3 وارد كنم ولي 3000 وارد شه؟ خيلييييييييي نياز دارم!!!

~M*E*H*D*I~
2012/06/12, 13:05
سلام
دوست عزیز فایل پیوست رو ببین مشکلتو حل میکنه، با افزایش عرض ستون تعداد صفر ها زیاد میشه

rosesefid
2012/06/12, 13:17
چه فايل جالبي بود!!!! ولي من اينجوري نميخوام ميدونيد چرا؟ چون تعداد ارقام داده هام تو رديفهاي مختلف فرق ميكنه و من ميخوام به همه داده هام مثلا 6 تا صفر اضافه شه. تو اين فايل شما مثلا 2 ميشه 2000 ولي 15 ميشه 1500 درحاليكه من ميخوام به جفتش تعداد مساوي صفر اضافه شه

~M*E*H*D*I~
2012/06/12, 13:21
سلام
میشه یه کاری کرد مثلا تو ستون اول عدد رو وارد کنی تو ستون کناریش عدد به شکل دلخواهت نمایش داده بشه این خوبه؟[hr]
فرض کن تو ستون a عدد وارد کنی و تو ستون b فرمول زیر نوشته بشه



=A1&0&0&0


بعد فرمول رو باید گسترش بدی

rosesefid
2012/06/12, 14:06
من ميخواستم 2 ستون نكنم چون اگه 2 ستون بخوام بشه ديگه نيازي به فرمول سختي نيست فقط كافيه بنويسم ستون قبل ضربدر 1000000

komeilex
2012/06/12, 14:14
با سلام و با اجازه آقای وطن پرست.
دوست عزیز شما می تونین یه تابع برا خودتون تعریف کنین و مثل توابعی که تو اکسل وجود دارن ازشون استفاده کنین. برای این کار به محیط VB برین و یه ماژول اضافه کنین و این کد رو داخلش بنویسین.

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

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

rosesefid
2012/06/12, 14:18
آخه من تا حالا با VB كار نكردم

~M*E*H*D*I~
2012/06/12, 14:25
سلام
ممنون از کمیل عزیز ولی این کار هم مشکل رو حل نمیکنه چون بازم باید تابع نوشته بشه برای این کار باید از custom format cell استفاده بشه

rosesefid
2012/06/12, 14:28
منم با شما موافقم ولي هرچي ميگردم پيدا نميكنم يعني پيدا ميكنم ها ولي صفرهارو قبل از عدد اضافه ميكنه!!!! مثلا 3 ميشه 0000003 در حاليكه من 3000000 ميخوام باشه.

~M*E*H*D*I~
2012/06/12, 14:30
از کد زیر استفاده کن




Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target = Target.Value * 1000
End Sub

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

komeilex
2012/06/12, 14:33
آخه من تا حالا با VB كار نكردم


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

rosesefid
2012/06/12, 14:46
آخه من براي اينكه اين تابع اثر كنه هي تو هر رديف بايد بزنم = تابع رو انتخاب كنم عدد رو بنويسم!!!! يه روز كامل طول ميكشه!!!!

khakzad
2012/06/12, 20:09
سلام دوست عزیز
ببینید اینطوری مشکل حله؟
ستون عددی اول رو هر عددی خواستید بدید
من از a1:a500 تعیین کردم.اگه بیشتر نیاز بود.برید توی کد و عدد 500 رو به هر عددی دوس داشتید تغییر بدین

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

~M*E*H*D*I~
2012/06/12, 23:11
سلام
همونطور که گفتم این کار از طریق فرمت سل امکان پذیره کافیه سه تا صفر رو داخل کتیشن قرار بدیم مشکل حل میشه

khakzad
2012/06/12, 23:34
ممنون
خیلی جالب بود:)

~M*E*H*D*I~
2012/06/13, 08:18
با سلام
نمونه فایل رو به پیوست میتونید مشاهده کنید