Tag: 负号

excel vba：检查input框中的负数

我正在使用一个input框从用户获取一个数字。 我想避免不被允许的input和卡住负数。 应该处理的唯一input是1到500之间的整数。我不明白为什么-1仍然被触发。 这是我的代码到目前为止： LBefore = InputBox("lines?", "", ">>> insert number <<<", 11660, 9540) Select Case StrPtr(LBefore) Case 0 'Cancel pressed Exit Sub Case Else If (LBefore <> "") Then 'Check for numeretical value If IsNumeric(LBefore) Then cijfer = Abs(CByte(LBefore)) 'Check to see if value is in allowed range If (cijfer >= 1) And (cijfer […]