Masalah saya adalah bahwa pernyataan dalam 'jika' mengembalikan nilai false bahkan tho adalah 14271 dan 5, apa yang bisa menjadi alasan untuk itu?
textbox5 mengembalikan "wybierz inna sumeFalse 5 14271" di tempat lain
Sub Wyplac_2()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Set sh1 = ActiveWorkbook.Sheets("konta")
Set sh2 = ActiveWorkbook.Sheets("Interfejs")
Set sh3 = ActiveWorkbook.Sheets("stale")
y = TextBox5.Text
z = ((sh1.Range("G" & (sh3.Range("K3") + 2))) > y)
x = ((sh1.Range("G" & (sh3.Range("K3") + 2))))
If (x > y) Then
TextBox5.Text = y
sh1.Range("G" & sh3.Range("K3") + 2) = sh1.Range("G" & sh3.Range("K3") + 2) - y
TextBox4.Text = "Prosze wziasc pieniadze"
CommandButtonGrab.Visible = True
CommandButton11.Visible = False
sh3.Range("K4") = 11
GoTo gohere
Else
TextBox4.Text = "Brak srodkow na koncie"
TextBox5.Text = "Wybierz inna sume" & z & " " & y & " " & x
End If
gohere:
End Sub
microsoft-excel
vba
karolp2w
sumber
sumber
Jawaban:
Y didefinisikan sebagai teks, X adalah angka. Bahkan jika Y adalah angka, itu masih diperlakukan sebagai teks, bukan nilai numerik. Ubah Y menjadi nilai numerik sebelum pernyataan IF.
sumber