پر شدن خودکار texbox در یوزرفرم

[majidartoor]

سلام خدمت دوستان عزیز
من یه یوزرفرم ساختم که میخوام textbox هایی که داخلش هست وقتی
اول اون پیزی که میخوام مینویسم خودش با توجه به داده هایی که قبلا ثبت کردم پر بشه.
مثلا وقتی داخل خود اکسل زمانی که داخل یه سل چیزی میخواییم بنویسیم
اگه ردیف قبلیش شبیه اون باشه خودش پرش میکنه.
با تشکر.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

شما چرا از کمبو باکس استفاده نمی کنی ؟

[majidartoor]

چون هر سری امکان داره چیز جدیدی وارد کردم و سری بعد هم بخوام اونو وارد کنم که هر سری باید اونو به کمبو باکس تعریف کنم...!

[امين اسماعيلي]

با درود

اینکعه هر چیزی که جدید مینویسی دوباره به کمبو باکس اظافه کنی که بخاطر اینکه رنج کمبو رو داری دستی وارد میکنی - در لود شدن فرمتون باید یه دستور بنویسی که مثلا از A1:An که n هر جا پر باشه بیاد به کمبو اظافه بشه تا مشکل برطرف بشه

[majidartoor]

ممنون از راهنماییتون آقای اسماعیلی
اگه یه فایل نمونه بزارید ممنون میشم.

[Javid Mokhtari]

با سلام.
اگر از کدهای زیاد و حلقه ها اجتناب کنیم روش زیر رو توصیه می کنم:
1) محدوده ای را که می خواهید در کمبوباکس قرار گیرد را در یک Table (من نام تیبل رو اینجا data)قرار دهید
2) در هر رویدادی که دوست دارید مثل Initialize یا Activateیوزر فرم کد زیر را بنویسید:

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

توجه داشته باشین محدوده ای که می خواین درکمبوباکس باشد، داخل محدوده تیبل قرار بگیرد.البته اگه بصورت ردیفی داده ها را در زیر تیبل بنویسید خود تیبل ان را بصورت خودکار داخل محدوده خود قرار می دهد.
اگر این هم پاسخگوی نیاز شما نبود روش های دیگری مثل: End. ، روش حلقه هم هست.

[majidartoor]

دست شما درد نکنه دوست عزیز مشکلم حل شد.

[امين اسماعيلي]

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

[majidartoor]

ببخشید بازم سوال میپرسم، حالا اگه تکراری وارد کردم و نخوام تو کمبوباکس تکراری نمایش داده بشه چه کنم؟

[امين اسماعيلي]

با درود
در فایل زیر به دو طریق موارد تکراری حذف میگردند هر چند راه حل های دیگری نیز وجود دارد - برای سهولت کار یه نام گذاری در شیت انجام شده شیت 1 رو برسی کنید