column genişliği

[mnz]

listbox column genişliklerini hücre değerinden nasıl alabilirim.

 

[Levent Menteşoğlu]

listbox column genişliklerini hücre değerinden nasıl alabilirim.

Hücre değeri derken, hücrenin genişliği ile aynı olmasınımı istiyorsunuz yoksa hücreye yazdığınız veriyimi genişlik değeri olarak kullanmak istiyorsunuz. Her ikisinide aşağıdaki satırda elde edebilirsiniz. Ayrıca aşağıdaki linki incelemenizide öneririm.

http://www.excel.web.tr/showthread.php?p=95489#post95489

listbox1.columnwidths=[a:a].width
 
veya
 
listbox1.columnwidths=[a1]

 

[mnz]

teşekkürler syn leventm
başka sayfadaki birçok hücre değeri ile listboxcolumnwidths i ayarlamak istiyorum
yani
hücre değerlerini değişkene atarak
hucre1=sheets("sayfa3").range("a1").value
hücre2=sheets("sayfa3").range("b1").value
......
daha sonra
listboxcolumnwidths "a1;b1......."


kaçırdığım birşey olmalı tür uyuşmazlığı diyor.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

ListBox1.ColumnWidths = [a1] & "," & [b1] & "," & [c1] & "," & [d1] & "," & [e1]..............

 

[mnz]

listboxcolumnwidths "a1;b1......."

burayı hatalı yazmışım özür diliyorum.
kodların bir bölümü aşağıda.

Private Sub UserForm_Initialize()
Dim hucre1,hucre2,hucre3.... As Integer
Set sy = Sheets("Sayfa3")
hucre1 = sy.Range("a1").Value ' hücre değeri listbo columnwiths olarak
hucre2 = sy.Range("b1").Value ' hücre değeri listbo columnwiths olarak
hucre3 = sy.Range("c1").Value ' hücre değeri listbo columnwiths olarak ayarlanacak.
.......
ListBox2.ColumnCount = 50
ListBox2.ColumnWidths = "hucre1;hucre2;hucre3.....
....
end sub

listbox.columnwidths i userform initalize olayına yazıyorum ama yukarıdaki değişken atamayı doğru yere mi yazıyorum. yani initalize ye mi yazmalıyım.