Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında.

1 2 3 4 5 6 7 8 9 10 11 12 13
28/02/2021, 19:13

berduş

listbox için kolay Sql satırını aşağıdaki gibi düzenlemeniz yeterli
SQL = "SELECT [F1],[F2],[F3],[F4],[F5],[F6],Space$(17-Len([F7])) & [F7] & "" TL "" " & _
"FROM [Ana Sayfa$] " & _
"order by [F1] desc;"

sade sona desc eklenmiştir
28/02/2021, 19:30

feraz

Başlık için Listbox2 kullanılması güzel fikir olmuş abey.
Space$ nedir berduş abey?
28/02/2021, 19:33

berduş

space boşluk ekleme fonksiyonu @feraz bey
28/02/2021, 19:42

Oğuz Türkyılmaz

Berduş hocam bu dosyanın son şekli bayağı değişmişti. Sn.Feraz hocam bağlanıp kodlarda bir takım değişiklikler yapmış bende Arkadaşın şirketinde servera yüklemiştim. Hafta içi değişiklikleri uygular bir sorun olursa dönerim çok teşekkür ederim.
28/02/2021, 20:04

feraz

(28/02/2021, 19:33)berduş yazdı: space boşluk ekleme fonksiyonu @feraz bey
Sağol abey.
Boşluk olduğunu anlamıştım lakin $ bu işaretten dolayı kafam karışmıştı
Listbox rowsource kullanılmayacaksa alttaki gibi dizi ilede olabilir.Sondan başa doğru verileri alır tabii Tutar kolonu sağa yaslama olayını yapmadım.


Private Sub UserForm_Initialize()

With Me.ListBox2
        .ColumnCount = 7
        .RowSource = Range("Baslik").Address  '"Tablo1" 'Worksheets(1).Name & "!A1:G1"
        .ColumnWidths = "30;70;100;70;240;130;70"
End With
With Me.ListBox1
        .ColumnCount = 7
        .ColumnWidths = "30;70;100;70;240;100;100"
End With
txt_MasrafTarihi = Format(Date, "dd/mm/yyyy")
Application.ScreenUpdating = False

Dim rng, i As Long, say As Long
rng = Range("Tablo1").Value
ReDim arr(1 To UBound(rng), 1 To 7)
    For i = UBound(rng) To 1 Step -1
        say = say + 1
        arr(say, 1) = rng(i, 1)
        arr(say, 2) = rng(i, 2)
        arr(say, 3) = rng(i, 3)
        arr(say, 4) = rng(i, 4)
        arr(say, 5) = rng(i, 5)
        arr(say, 6) = rng(i, 6)
        arr(say, 7) = Format(rng(i, 7), "#,##0.00")
    Next
Me.ListBox1.List = arr
Erase rng: Erase arr

Application.ScreenUpdating = True
End Sub
28/02/2021, 20:10

berduş

Emin değilim ama herhangi bir değişkenin sonuna $ işareti eklenince verinin metin formatında olması sağlanıyor.

(28/02/2021, 19:42)Oğuz Türkyılmaz yazdı: Berduş hocam bu dosyanın son şekli bayağı değişmişti. Sn.Feraz hocam bağlanıp kodlarda bir takım değişiklikler yapmış bende  Arkadaşın şirketinde servera yüklemiştim. Hafta içi değişiklikleri uygular bir sorun olursa dönerim çok teşekkür ederim.
uzaktan bağlantıyla çözümlenmiş sorularda çözümü burda da paylaşmanız uygun olurdu, en azından bizler de boş yere uğraşmamış olurduk.
1 2 3 4 5 6 7 8 9 10 11 12 13