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

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