Listview de sütun

[orkuncan5]

Listviewde görüntülenmesini istemediğim sütunlar için nasıl bir kod yazmak gerekir.

 

[halit3]

Listviewde görüntülenmesini istemediğim sütunlar için nasıl bir kod yazmak gerekir.

İkinci sutün için örnek kod

ListView1.ColumnHeaders(2).Width = 0

 

[orkuncan5]

Halit Bey Runtime hatası verdi.İndex out of bounds yazıyor.

 

[halit3]

Halit Bey Runtime hatası verdi.İndex out of bounds yazıyor.

Sorunuzu sorarken örnek dosyanızı ekleyin göndermiş olduğum kod bende çalışıyor.

 

[orkuncan5]

Dosyam ektedir

 

[halit3]

Kodu yanlış yere koymuşun

next ten sonra kayacaksın

Private Sub UserForm_Initialize()
If WorksheetFunction.CountA(Sheets(ActiveSheet.Name).Cells) > 0 Then
satır = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sutun = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Else
satır = 1
sutun = 1
End If
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.Gridlines = True
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.LabelEdit = lvwManual
ListView1.Font.Bold = True

ListView1.ColumnHeaders.Add , , "sıra", 0
For i = 1 To sutun
With ListView1.ColumnHeaders
.Add , , Cells(1, i), Cells(1, i).Width
End With
Next
For j = 2 To satır
x = x + 1
ListView1.ListItems.Add , , x + 1
With ListView1.ListItems(x).ListSubItems
For r = 1 To sutun
.Add , , Cells(j, r)
Next
End With
Next
[COLOR=red]ListView1.ColumnHeaders(2).Width = 0[/COLOR]
End Sub

 

[halit3]

aşağıdaki kendi açtığın konuda bu istediğin var

http://www.excel.web.tr/f48/benzersiz-listeleme-t102823.html

Private Sub UserForm_Initialize()
If WorksheetFunction.CountA(Sheets(ActiveSheet.Name).Cells) > 0 Then
satır = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sutun = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Else
satır = 1
sutun = 1
End If
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.Gridlines = True
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.LabelEdit = lvwManual
ListView1.Font.Bold = True

ListView1.ColumnHeaders.Add , , "sıra", 0
For i = 1 To sutun
With ListView1.ColumnHeaders
.Add , , Cells(1, i), Cells(1, i).Width
End With
Next
For j = 2 To satır
x = x + 1
ListView1.ListItems.Add , , x + 1
With ListView1.ListItems(x).ListSubItems
For r = 1 To sutun
.Add , , Cells(j, r)
Next
End With
Next
[COLOR=red]silinensut = 2
Application.ScreenUpdating = False
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).ListSubItems.Remove silinensut
Next
ListView1.ColumnHeaders.Remove silinensut + 1
ListView1.Refresh
Application.ScreenUpdating = True[/COLOR]

End Sub

 

[orkuncan5]

Yardımınız için teşekkür ederim.İnsan bazen tutukluk yapıyor işte.Listviewde herbir sütun genişliğini nasıl ayarlarız

 

[halit3]

zaten kodun ilgili yeri bunu yapıyor siz sayfadaki sutünları genişletmeniz yeterli.

.Add , , Cells(1, i), [COLOR=red]Cells(1, i).Width[/COLOR]

kırmızı olan yer sayfadaki sutun genişliğini gösteriyor.

diğer tarftan

ListView1.ColumnHeaders(1).Width = 100

ListView1.ColumnHeaders(2).Width = 150

ListView1.ColumnHeaders(3).Width = 200

böylede yapabilirsin.

 

[orkuncan5]

Teşekkür ederim.Ben sayfada sütunlar için autofit kodunu kullandığım için listviewde sütunlarda sorun oluyordu demekki .Add , , Cells(1, i), Cells(1, i).Width kodunu değiştirmem lazım.Sağolun.

 

[halit3]

Teşekkür ederim.Ben sayfada sütunlar için autofit kodunu kullandığım için listviewde sütunlarda sorun oluyordu demekki .Add , , Cells(1, i), Cells(1, i).Width kodunu değiştirmem lazım.Sağolun.

iyi çalışmalar