آدرس دهی listfillrange کامبو باکس از طریق vb

[Yaamahdiadrekni]

با سلام و خسته نباشید
من یه کامبو باکس دارم که اسمش هستcombobox1.میخوام از طریق vb کارای زیر رو انجام بدم
1 - اختصاص ستون f بعنوان مرجع لیت فیل رنج
2 - خالی شدن مقدار کامبو باس
3 - اگه فقط یکی از سلولهای A3 تا K15 رو سلکت کردم ظاهر بشه و در باقی موارد مخفی باشه
با تشکر از توجهتون

[Amir Ghasemiyan]

با سلام و خسته نباشید
من یه کامبو باکس دارم که اسمش هستcombobox1.میخوام از طریق vb کارای زیر رو انجام بدم
1 - اختصاص ستون f بعنوان مرجع لیت فیل رنج
2 - خالی شدن مقدار کامبو باس
3 - اگه فقط یکی از سلولهای A3 تا K15 رو سلکت کردم ظاهر بشه و در باقی موارد مخفی باشه
با تشکر از توجهتون

سلام دوست عزيز
ضمن پوزش بابت تاخير در پاسخگويي

خدمت شما:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A3:K15")) Is Nothing Then
    ComboBox1.Visible = True
    ComboBox1.ListFillRange = "F:F"
    ComboBox1.Value = ""
Else
    ComboBox1.Visible = False
End If
End Sub