VBA Excel - jika pernyataan tidak berfungsi sebagaimana dimaksud

0

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
karolp2w
sumber
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

Jawaban:

0

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.

Tyson
sumber