[حل شده] ساخت چند کمبو باکس که مقدار همه یکی باشد

[amoradi]

با سلام و سپاس خدمت همه دوستان و مدیران عزیز

خب بنده حقیر در VBA یک فرم ساختم که چندین کمبوباکس داخلش هست (حدود 320 عدد) و به این صورت اگه برای هر کدوم یک یا چند AddItem قرار بدم خودتون میدونید که این کد خییییلی طولانی و تکرانی میشه

به نظر خودم با For Next احتمالاً بشه کدی نوشت که آیتم های همه رو مثل هم تنظیم و ست کرد ...

در حال حاظر برای یک کامبوباکس به صورت زیر کد نوشتم که 4 گزینه اضافه بشه

For i = 1 To Sheets("Note").Cells(2, 2)
ComboBox1.AddItem Sheets("Note").Cells(i + 3, 2)
Next i

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

[mokaram]

با سلام خدمت شما دوست عزیز

ضمن خوش آمد گویی به حضرتعالی

امکانش هست بفرمایید اطلاعات داخل کمبو باکس متفاوت یا یکسانه . برای هر کمبو تعداد اطلاعات یکی هست یا فرق میکنه اگر امکان داره بیشتر توضیح بدید؟

[amoradi]

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

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

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

هر کمبو باکس از 4 گزینه تشکیل شده که گزینه ها رو توی یه شیت قرار دادم و با کدی که توی ارسال قبلی نوشتم این گزینه ها رو به کمبو باکسی که مد نظرم بوده با For Next ارتباط دادم ....

اما این کار که برای هر کدوم از این ها بخوام کد رو کپی و اسم کمبوباکس رو تغییر بدم ، خیییلی زمانبر هست و کدها هم طولانی میشه

آیا راهی هست که این گزینه ها رو برای همه کمبوباکس ها با چند خط کد کوتاه تر ارتباط بدیم ؟؟؟

[mokaram]

یه فایل نمونه گذاشتم بررسی بفرمایید اگه سوالی بود در خدمتم

پ.ن : من فقط برای داده فرضی a اینکار را کردم شما می تونید داده های خودتون را جایگذاری کنید

[majid_mx4]

با سلام

ضمن تشکر وبا کسب اجازه از دوست و استاد عزیز جناب آقای m_r_m

با کمی تغییرات در دستورات ایشان لطفا فایل ضمیمه را بررسی نمایید.

خلاصه : پر کردن کموباکس ها توسط یک ستون

پایدار باشید میر

[amoradi]

واقعا عالی بود ....
سپاسگزارم ...
امیدوارم همیشه پایدار باشید