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

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.

Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.