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
Menerjemahkan string ke Bahasa Inggris akan membuat pertanyaan Anda lebih jelas untuk kemungkinan penjawab.
—
Vylix
Selain menerjemahkan string Anda, pastikan juga untuk memposting contoh minimum tempat masalah dapat direplikasi.
—
Máté Juhász