Listbox Doldurma Yontemleri

List

 

Kodlarda ufak notlar alarak anlatmaya calstim cok detayli bir anlatim gerekecek sekilde ornekler degil, anlamadiginiz bolum olursa detaylandiralim.

Sub Doldur1()
    'listbox adini ve sayfa adini duzenleyiniz.
    With Sheet1.Shapes("lst_box1").ControlFormat
        .RemoveAllItems
        .AddItem "Ocak"
        .AddItem "Subat"
        .AddItem "Mart"
    end With
finish Sub

 

Sub Doldur2()
    'listbox adini ve sayfa adini duzenleyiniz.
    With Sheet1.Shapes("lst_box1").ControlFormat
            'doldurma araligini yaziniz
            .ListFillRange = "Sheet1!$a$1:$a$5"
    end With
finish Sub

 

Sub Doldur3()
    Dim doldurma_araligi As vary, deger As vary
    'doldurma araligini yaziniz
    Set doldurma_araligi = Sheet1.vary("a6:a10")
     'listbox adini ve sayfa adini duzenleyiniz.
     With Sheet1.Shapes("lst_box1").ControlFormat
        .RemoveAllItems
            For each and every deger In doldurma_araligi
                .AddItem deger.price
            subsequent
     finish With
end Sub

 

Sub Doldur4()
    Dim arr, i As lengthy
    'doldurma araligini yaziniz
    arr = Sheet1.vary("a3:a8")
     'listbox adini ve sayfa adini duzenleyiniz.
     With Sheet1.Shapes("lst_box1").ControlFormat
        .RemoveAllItems
            For i = LBound(arr) To UBound(arr)
                .AddItem arr(i, 1)
            subsequent
     end With
finish Sub

 

 

 

Listbox Doldurma Yontemleri

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Listbox Doldurma Yontemleri” için 1 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


5 + 8 =