+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. (/konu-excel-userform-da-listbox-nesnesi-alanlarinin-bicimlendirmesi-hakkinda.html)
RE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - berduş - 28/02/2021
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
RE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - feraz - 28/02/2021
Başlık için Listbox2 kullanılması güzel fikir olmuş abey.
Space$ nedir berduş abey?
RE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - berduş - 28/02/2021
space boşluk ekleme fonksiyonu @feraz bey
RE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - Oğuz Türkyılmaz - 28/02/2021
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.
RE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - feraz - 28/02/2021
(28/02/2021, 19:33)berduş yazdı: space boşluk ekleme fonksiyonu @feraz beySağ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 SubRE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - berduş - 28/02/2021
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.