excel - IF 在应该返回 TRUE 时返回 FALSE

Question

我尝试做这样的事情

sub test()
a=inputbox("value1:")
b=inputbox("value2:")
c=inputbox("value3:")

  if a<b and a>c then 

    msgbox(a)

    else
      msgbox(b)
      msgbox(c)
   end if

end sub 

当我输入 a 为 5、b 为 10、c 为 2 等值时，条件应返回 TRUE，然后显示带有 a 的消息框，但它返回 FALSE 并显示带有 b 和 c 的消息框。我认为解决方案非常简单，但我无法弄清楚。

非常感谢

Answer 1

您的输入框返回的字符串看起来像数字和 "5"不小于"10" 。执行以下操作之一:

• Dim a as long, b as long, c as long
• 使用Application.InputBox使用 Type:=1 参数。
• 将字符串转换为实数，例如 a=clng(inputbox("value1:"))或if int(a)<int(b) and int(a)>int(c) then .