转换为数字表示

Question

问题是如何确保如果输入的值为空 ("")，则退出过程，否则将其转换为数字表示。怎么做？

Sub macrotest()
      Dim num As Integer
  Dim text As String
         num = InputBox("enter the number", "number input")
            Select Case num Mod 100
               Case 2, 4, 6, 8
               MsgBox "even number" & num & ""
               Case Else
               MsgBox "idk" & num & ""
               End Select
               
End Sub

Answer 1

我稍微修改了您的代码以展示如何测试和转换用户输入：

Sub macrotest()
   Dim num As Integer
   Dim text As String
         
   text = InputBox("enter the number", "number input")
   
   If Not IsNumeric(text) Then Exit Sub
      
   num = CInt(text)
   
   Select Case num Mod 100
      Case 2, 4, 6, 8
         MsgBox "even number" & num & ""
      Case Else
         MsgBox "idk" & num & ""
   End Select
End Sub

Answer 2

InputBox 壮举。 Mod

Option Explicit

Sub macrotest()
    Dim cValue As Variant
    Dim text As String
    cValue = InputBox("enter the number", "number input")
    If IsNumeric(cValue) Then
        If cValue = CLng(cValue) Then ' if is whole number
            If cValue Mod 2 = 0 Then
                MsgBox "Even number " & cValue
            Else
                MsgBox "Odd number " & cValue
            End If
'            Select Case cValue Mod 10
'            Case 0, 2, 4, 6, 8
'                MsgBox "Even number " & cValue
'            Case Else
'                MsgBox "Odd number " & cValue
'            End Select
        Else
            MsgBox "'" & cValue & "' is not a whole number.", _
                vbExclamation, "Decimal Number"
        End If
    End If
End Sub

转换为数字表示

Convert to numeric representation

vba

ms-word

InputBox 壮举。 Mod