- Katılım
- 19 Ocak 2005
- Mesajlar
- 940
- Excel Vers. ve Dili
-
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
[ÇÖZÜLDÜ] Lıstbox YTL. Formatı!
Arkadaşlar öncelikle hepinizin Kueban Bayramını tebeik ediyorum.
Bu kod ile listeyi oluşturuyorum ancak ;
bu kod ile gelen sütundaki rakamların formatının virgül ile ayrılmış YTL. biçiminde olması gerekli örnek verirmisiniz arkadaşlar.
Arkadaşlar öncelikle hepinizin Kueban Bayramını tebeik ediyorum.
Kod:
Private Sub UserForm_Initialize()
Sheets("LISTE").Select
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "50;80;90;100;50"
For SUT = 15 To Cells(65536, "N").End(3).Row
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "B")
ListBox1.List(S, 1) = Cells(SUT, "G")
ListBox1.List(S, 2) = Cells(SUT, "I")
ListBox1.List(S, 3) = Cells(SUT, "M")
ListBox1.List(S, 4) = Cells(SUT, "N")
S = S + 1
Next
End Sub
Kod:
ListBox1.List(S, 4) = Cells(SUT, "N")
Son düzenleme: