Private Sub TextBox1_Change()
Dim result As Double
result = Val(TextBox1) * Val(ComboBox4)
TextBox3 = Round(result - 0.5, 0)
End Sub
Private Sub ComboBox4_Change()
Dim result As Double
result = Val(TextBox1) * Val(ComboBox4)
TextBox3 = Round(result - 0.5, 0)
End Sub
bu kodu bir denermisiniz
Textbox Yuvarlama
Bu Konudaki Yorumlar |
Textbox Yuvarlama - Yazar: ali.70 - 20/03/2024, 19:49
RE: Textbox Yuvarlama - Yazar: C*e*l*o*y*c*e - 20/03/2024, 20:25
RE: Textbox Yuvarlama - Yazar: ali.70 - 20/03/2024, 21:08
RE: Textbox Yuvarlama - Yazar: C*e*l*o*y*c*e - 20/03/2024, 22:52
RE: Textbox Yuvarlama - Yazar: berduş - 20/03/2024, 23:08
RE: Textbox Yuvarlama - Yazar: ali.70 - 20/03/2024, 23:09
RE: Textbox Yuvarlama - Yazar: berduş - 20/03/2024, 23:11
RE: Textbox Yuvarlama - Yazar: ali.70 - 20/03/2024, 23:15
RE: Textbox Yuvarlama - Yazar: berduş - 20/03/2024, 23:17
|
Konuyu Okuyanlar: 1 Ziyaretçi