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

[Almasi]

RE: افزودن آیتم به کومبو باکس از طریق اطلاعات سل های شیت

با سلام

خیلی ممنون . بسیار عالی کار کرد فقط منظور از C بعنوان یک متغییر است یا نه ؟

[shamsololama]

RE: افزودن آیتم به کومبو باکس از طریق اطلاعات سل های شیت

با درود فراوان
اگر این کمبو باکس در شیت ها قرار دارد می توانی از این کد استفاده کنی

Application.Sheets("sheet1").ComboBox1.AddItem "s"


که در این کد s گزینه ای است که به لیست اضافه می شود و می توانید بجای آن به یک سل ارجاع داد مثل کد زیر

Application.Sheets("sheet1").ComboBox1.AddItem "range("a1")
"
و اگر در یوزرفرم نیاز به این کار دارید از کد زیر استفاده می شود
در اینجا نیز از زیر روالInitialize استفاده کرده ام که هنگام باز شدن یوزرفرم لیست باکس نیز کامل می شود
در این مثال sheet1 و range("a1:a20") قابل تنظیم برای دریافت لیست و ادرس مورد نظر است

Private Sub UserForm_Initialize()
For Each c In Sheets("sheet1").Range("a1:a20")
ComboBox1.AddItem c
Next
End Sub

اگر در مورد جواب نیاز به توضیح بود در خدمتم

[Almasi]

با سلام خدمت تمامی دوستان

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

روش ذیل فقط از طریق کد نویسی آیتم ها را به لیست اضافه می نماید .

خواهشمند است راهنمایی بفرمائید

Private Sub UserForm_Click()
ComboBox1.AddItem "Hamed"
End Sub