- Katılım
- 27 Mayıs 2017
- Mesajlar
- 185
- Excel Vers. ve Dili
-
2010 xls
2016 xls
Merhaba arkadaşlar textbox1 ve textbox2 yi textbox3 te otomatik çarptırmak icin nasıl bir formül gerekiyor şimdiden teşekkürler
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub TextBox1_Change()
If TextBox1 <> "" And TextBox2 <> "" Then
TextBox3 = TextBox1 * TextBox2
End If
End Sub
Private Sub TextBox2_Change()
If TextBox1 <> "" And TextBox2 <> "" Then
TextBox3 = TextBox1 * TextBox2
End If
End Sub
Teşekkürler hocam süpersiniz Hocam Text2 ve Text3 Teki rakamları parasal olarak göstermek istiyorum yani sonunda tl yazsın ve diyelim ki 1000 TL 1.000 olarak yazsın yardımlarınız için tekrardan teşekkürlerMerhaba,
Bu şekilde deneyin.
Kod:Private Sub TextBox1_Change() If TextBox1 <> "" And TextBox2 <> "" Then TextBox3 = TextBox1 * TextBox2 End If End Sub Private Sub TextBox2_Change() If TextBox1 <> "" And TextBox2 <> "" Then TextBox3 = TextBox1 * TextBox2 End If End Sub
Private Sub TextBox1_Change()
If TextBox1 <> "" And TextBox2 <> "" Then
TextBox3 = FormatCurrency((TextBox1) * (TextBox2), 2)
End If
End Sub
'
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = FormatCurrency(TextBox1, 2)
End Sub
'
Private Sub TextBox2_Change()
If TextBox1 <> "" And TextBox2 <> "" Then
TextBox3 = FormatCurrency((TextBox1) * (TextBox2), 2)
End If
End Sub
'
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = FormatCurrency((TextBox2), 2)
End Sub
Teşekkürler hocam.Kod:Private Sub TextBox1_Change() If TextBox1 <> "" And TextBox2 <> "" Then TextBox3 = FormatCurrency((TextBox1) * (TextBox2), 2) End If End Sub ' Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1 = FormatCurrency(TextBox1, 2) End Sub ' Private Sub TextBox2_Change() If TextBox1 <> "" And TextBox2 <> "" Then TextBox3 = FormatCurrency((TextBox1) * (TextBox2), 2) End If End Sub ' Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2 = FormatCurrency((TextBox2), 2) End Sub