DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
TextBox1 = Format(TextBox1.Value, "#,##0")
TextBox2.Value = Format(TextBox1.Value / 1000000, "#,##0.00")
End Sub
Private Sub TextBox1_Change()
a = TextBox1.Text
b = a / 1000000
TextBox2.Text = b
End Sub
Private Sub Textbox2_Change()
b = TextBox2.Text
a = b * 1000000
TextBox1.Text = a
End Sub