PDA

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


majidartoor
2014/07/19, 22:10
سلام خدمت دوستان عزیز
من یه یوزرفرم ساختم که میخوام textbox هایی که داخلش هست وقتی
اول اون پیزی که میخوام مینویسم خودش با توجه به داده هایی که قبلا ثبت کردم پر بشه.
مثلا وقتی داخل خود اکسل زمانی که داخل یه سل چیزی میخواییم بنویسیم
اگه ردیف قبلیش شبیه اون باشه خودش پرش میکنه.
با تشکر.
mokaram
2014/07/20, 07:52
شما چرا از کمبو باکس استفاده نمی کنی ؟
majidartoor
2014/07/20, 12:51
چون هر سری امکان داره چیز جدیدی وارد کردم و سری بعد هم بخوام اونو وارد کنم که هر سری باید اونو به کمبو باکس تعریف کنم...!
امين اسماعيلي
2014/07/20, 13:31
با درود

اینکعه هر چیزی که جدید مینویسی دوباره به کمبو باکس اظافه کنی که بخاطر اینکه رنج کمبو رو داری دستی وارد میکنی - در لود شدن فرمتون باید یه دستور بنویسی که مثلا از A1:An که n هر جا پر باشه بیاد به کمبو اظافه بشه تا مشکل برطرف بشه
majidartoor
2014/07/20, 13:40
ممنون از راهنماییتون آقای اسماعیلی
اگه یه فایل نمونه بزارید ممنون میشم.
Javid Mokhtari
2014/07/20, 13:53
با سلام.
اگر از کدهای زیاد و حلقه ها اجتناب کنیم روش زیر رو توصیه می کنم:
1) محدوده ای را که می خواهید در کمبوباکس قرار گیرد را در یک Table (من نام تیبل رو اینجا data)قرار دهید
2) در هر رویدادی که دوست دارید مثل Initialize یا Activateیوزر فرم کد زیر را بنویسید:

Me.ComboBox2.RowSource = ActiveSheet.Range("data").Address

توجه داشته باشین محدوده ای که می خواین درکمبوباکس باشد، داخل محدوده تیبل قرار بگیرد.البته اگه بصورت ردیفی داده ها را در زیر تیبل بنویسید خود تیبل ان را بصورت خودکار داخل محدوده خود قرار می دهد.
اگر این هم پاسخگوی نیاز شما نبود روش های دیگری مثل: End. ، روش حلقه هم هست.
majidartoor
2014/07/20, 14:32
دست شما درد نکنه دوست عزیز مشکلم حل شد.
امين اسماعيلي
2014/07/20, 14:34
با درود
هر چند فایل اموزشش قبلا بوده اما خب بازم فایل اکسل در خدمت شما به سه طریق کمبو باکس پویا شده - هر چند ممکنه راه ها ی متفاوت دیگه ای هم باشه
majidartoor
2014/07/21, 13:23
ببخشید بازم سوال میپرسم، حالا اگه تکراری وارد کردم و نخوام تو کمبوباکس تکراری نمایش داده بشه چه کنم؟
امين اسماعيلي
2014/07/21, 16:14
با درود
در فایل زیر به دو طریق موارد تکراری حذف میگردند هر چند راه حل های دیگری نیز وجود دارد - برای سهولت کار یه نام گذاری در شیت انجام شده شیت 1 رو برسی کنید
Javid Mokhtari
2014/07/21, 16:14
فکر کنم در اینمورد زیاد بحث شده.یه سرچی داشته باشین اگه پیدا نکردین درخدمتیم.
امين اسماعيلي
2014/07/21, 17:21
با درود
خب اینم اخرین مطلب در مورد کمبو باکس

بدون تکرار - سورت شده - بدون سل خالی میان محدوده - پویا و داینامیک

دوستان این تاپیک دیگه بسته شد فک کنم
majidartoor
2014/07/22, 00:53
ممنون از پاسختون.
آقا ما یه سوال دیگه هم داشتیم،اونم اینه که همونجوری که داخل شیت میشه فرمت هر سل رو تغییر داد چجوری فرمت textbox یا combobox رو تغییر بدم؟
امين اسماعيلي
2014/07/22, 03:45
با درود

چیشو منظوزت نوع فونت و ...... - اگر این منطورته که وفتی در فرمت کمبو رو انتخاب کنید از پنجره سمت چپ Properties Windows (F4 میتوننین موارد مختلفی رو تنظیم کنین
majidartoor
2014/07/22, 13:58
منظورم فرمت فونت نیست،بلکه فرمت ورودی داده هاست
مثلا داخل شیت فرمت سل ها GENERAL هستش که میتونیم عوض کنیم(Number,Text,cUSTOM).
mokaram
2014/07/22, 14:00
ممنون از راهنماییتون.
یه سوال دیگه داشتم...
اونم اینه که چجوری میتونم فرمت textbox یا combobox رو تغییر بدم؟

منظور از فرمت را میشه بازتر و دقیقتر بیان بفرمائید؟
Javid Mokhtari
2014/07/22, 15:42
منظورم فرمت فونت نیست،بلکه فرمت ورودی داده هاست
مثلا داخل شیت فرمت سل ها GENERAL هستش که میتونیم عوض کنیم(Number,Text,cUSTOM).
با سلام.
برای تعیین نوع ورودی داده و یا شرایط فرمت داده می تونید از کدهایی مثل کدزیر استفاده کنید:

If IsNumeric(TextBox1.Text) = True Then
MsgBox "Is Numeric"
ElseIf IsDate(TextBox1.Text) = True Then
MsgBox "Is Date"
End If
majidartoor
2014/07/22, 17:19
ممنون از همه ی راهنماییاتون.
تاپیک بسته شد.