4Adet TextBox, 1 Adet CommandButton ve 1 Adet ListBox olacak şekilde,
ListBox1 e Tutar
ListBox2 ye taksit sayısı
ListBox3 e tarih yazarak
Aşağıdaki kadları yazıp command butona tıkladığımda
ListBox a taksitlendirme yapıyor
Kod:
Private Sub CommandButton1_Click()
ListBox1.ColumnCount = 3
x = 0
For i = 1 To TextBox2
ListBox1.AddItem
ListBox1.Column(0, x) = i
ListBox1.Column(1, x) = Format(DateSerial(Year(TextBox3), Month(TextBox3) + i, Day(TextBox3)), "dd.mm.yyyy")
ListBox1.Column(2, x) = Val(TextBox1) / Val(TextBox2)
x = x + 1
Next
End Sub
Soru 1 :
ListBox1 deki verileri TextBox4 de yazan sayfaya (örneğin ALİ adında bir müşteri sayfasına) A9 hücresinden itibaren ilk boş satırdan başlayarak nasıl yazdırabilirim. A9 no B9 ödme tarihi C9 Miktarı
Soru2 :
TextBox1 ytl olarak nasıl biçimlendirebilirim yardımcı olursanız sevinirim
şimdiden herkese teşekkürler
ListBox1 e Tutar
ListBox2 ye taksit sayısı
ListBox3 e tarih yazarak
Aşağıdaki kadları yazıp command butona tıkladığımda
ListBox a taksitlendirme yapıyor
Kod:
Private Sub CommandButton1_Click()
ListBox1.ColumnCount = 3
x = 0
For i = 1 To TextBox2
ListBox1.AddItem
ListBox1.Column(0, x) = i
ListBox1.Column(1, x) = Format(DateSerial(Year(TextBox3), Month(TextBox3) + i, Day(TextBox3)), "dd.mm.yyyy")
ListBox1.Column(2, x) = Val(TextBox1) / Val(TextBox2)
x = x + 1
Next
End Sub
Soru 1 :
ListBox1 deki verileri TextBox4 de yazan sayfaya (örneğin ALİ adında bir müşteri sayfasına) A9 hücresinden itibaren ilk boş satırdan başlayarak nasıl yazdırabilirim. A9 no B9 ödme tarihi C9 Miktarı
Soru2 :
TextBox1 ytl olarak nasıl biçimlendirebilirim yardımcı olursanız sevinirim
şimdiden herkese teşekkürler