Excel VBA如何搜索二维数组

Question

基本上，我试图循环遍历数组中的所有值，并计算大于用户指定值的值的数量，方法是使用 Inputbox 并尝试使用 IF 语句来确保介于 1 和输入 100。完成后，我只想简单地在消息框中显示结果。

这是我目前所拥有的：

Dim arr As Variant
arr = Range("A1:J10")

Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

Dim val As String
val = InputBox("Enter an integer value")
If val < 1 Or val > 100 Then
' tells the user to try again
    MsgBox "You did not enter a value from 1 to 100 , try again"
val = Inputbox("Enter an integer value")
Else

End If   

基本上是在用 if 语句来验证用户输入的内容并循环遍历数组。

Answer 1

我建议以下方法，通过使用内置的CountIF 函数来摆脱循环和数组。

Do

    Dim val As Variant
    val = InputBox("Enter an integer value")

    If IsNumeric(val) And val > 1 And val < 100 Then

        Dim bPass As Boolean
        bPass = True

    End If

    If Not bPass Then MsgBox "You did not enter a value from 1 to 100 , try again"

Loop Until bPass

Dim lCountIf As Long

lCountIf = WorksheetFunction.CountIf(Range("A1:J10"), ">" & val)

MsgBox lCountIf & " values greater than " & val & "in Range."

Answer 2

我会

• 使用 Application.InputBox() 可以强制输入数字

• 避免使用数组并使用 WorksheetFunction.CountIf()

如下：

Dim val As Integer

Do
    val = CInt(Application.InputBox(prompt:="Enter an integer value between 1 and 100", Type:=1))
Loop while val <1 And val > 100

MsgBox WorksheetFunction.CountIf(Range("A1:J10"), ">" & val)

Answer 3

Dim val As String
val = InputBox("Enter an integer value")

Do While val < 1 Or val > 100
' tells the user to try again
    MsgBox "You did not enter a value from 1 to 100 , try again"
    val = InputBox("Enter an integer value")
Loop

'checks array if the number is greater then input number
Dim MyRange As Range
Dim cell As Range
Dim counter as integer
counter = 0
Set MyRange = Range("A1:J10")
For Each cell In MyRange
  If cell.Value > CInt(val) Then
    counter = counter + 1
    cell.Interior.Color = RGB(255, 0, 0) 'or cell.Interior.ColorIndex = 3
  End If
Next

msgbox "Total number greater then input number is: " & counter