ComboBox

[leilaasgharpour@ymail.com]

چګونه ComboBox را فعال کنیم(درون آن مقدار یا متن) قرار دهیم در vba
این کد را نوشتم اما جواب نمیده
With ComboBox1
.AddItem "کد ملی "
.AddItem "نام "
.AddItem "شرح کالا"
End With

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

با درود
به نظرم تو ایونت درستی نمینویسیش
مثلا اگر توی شیت 1 داری

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
With Sheet1.ComboBox1
.AddItem "This"
   .AddItem "Is"
   .AddItem "A"
   .AddItem "Test"

End With
End Sub

اگر یوزر فرم

Private Sub UserForm_Initialize()
With Me.ComboBox1
.AddItem "This"
   .AddItem "Is"
   .AddItem "A"
   .AddItem "Test"
   End With
End Sub

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