word forumunda yok lütfen yardım

[takoo]

merhaba değerli arkadaşlar.word'te oluşturduğum formdaki listbox değerleri excel'dekinden farklı,uğraştım bi türlü yapamadım,bir-iki kelimeden oluşan listeyi barındıran bi örnek ile yardımcı olur musunuz.şimdiden teşekkürler ve iyi çalışmalar.

 

[Haluk]

us2 UserForm modulüne yerleştirilecek;

Private Sub UserForm_Initialize()
    Dim a(2) As String
    a(0) = "tarkan"
    a(1) = "ayça"
    a(2) = "ceylan"
    ListBox1.AddItem a(0)
    ListBox1.AddItem a(1)
    ListBox1.AddItem a(2)
End Sub

Veya, aşağıdaki gibi de olur;

Private Sub UserForm_Initialize()
    Dim a(2) As String
    a(0) = "tarkan"
    a(1) = "ayça"
    a(2) = "ceylan"
    ListBox1.List = a
End Sub

Başka bir yöntem de şu şekilde;

Private Sub UserForm_Initialize()
    a = Array("tarkan", "ayca", "ceylan")
    ListBox1.List = a
End Sub

Benzer şekilde;

Private Sub UserForm_Initialize()
    ListBox1.List = Array("tarkan", "ayca", "ceylan")
End Sub

 

[takoo]

çok çok teşekkür ederim kardeş.bu benim çok işime yaradı,sağol varol işin rastgelsin