TOPLAM RAKAMIN KURUÃLU OLMASI
Arkadaşlar, aşagıda yazılı kod ile 4 adet TextBox`a girilen rakamlar TextBox12`ye otamatik olarak topluyor. Ancak "TextBox12 = Format((TextBox12.Value), "#,##0.00-YTL")" bir hata var galiba çünkü formatta hata veriyor. yani toplamın YTL ye göre görünmesini istiyorum. Lütfen yardım edermisiniz.
Private Sub TextBox12_Change()
On Error Resume Next
TextBox12 = Format((TextBox12.Value), "#,##0.00-YTL")
a = Round(TextBox9, 2)
a = WorksheetFunction.Substitute(a, ",", ".")
b = Round(TextBox10, 2)
b = WorksheetFunction.Substitute(b, ",", ".")
c = Round(TextBox11, 2)
c = WorksheetFunction.Substitute(c, ",", ".")
d = Round(TextBox19, 2)
d = WorksheetFunction.Substitute(d, ",", ".")
z = Val(a) + Val(b) + Val(c) + Val(d)
z = WorksheetFunction.Substitute(z, ".", ",")
TextBox12 = z
End Sub
Ayrıca, Round`un buradaki işlevini açıklarmısınız. Teşekkürler.
Arkadaşlar, aşagıda yazılı kod ile 4 adet TextBox`a girilen rakamlar TextBox12`ye otamatik olarak topluyor. Ancak "TextBox12 = Format((TextBox12.Value), "#,##0.00-YTL")" bir hata var galiba çünkü formatta hata veriyor. yani toplamın YTL ye göre görünmesini istiyorum. Lütfen yardım edermisiniz.
Private Sub TextBox12_Change()
On Error Resume Next
TextBox12 = Format((TextBox12.Value), "#,##0.00-YTL")
a = Round(TextBox9, 2)
a = WorksheetFunction.Substitute(a, ",", ".")
b = Round(TextBox10, 2)
b = WorksheetFunction.Substitute(b, ",", ".")
c = Round(TextBox11, 2)
c = WorksheetFunction.Substitute(c, ",", ".")
d = Round(TextBox19, 2)
d = WorksheetFunction.Substitute(d, ",", ".")
z = Val(a) + Val(b) + Val(c) + Val(d)
z = WorksheetFunction.Substitute(z, ".", ",")
TextBox12 = z
End Sub
Ayrıca, Round`un buradaki işlevini açıklarmısınız. Teşekkürler.