Excel VBA 2d配列を検索する方法

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 

文は、ユーザーが入力した、配列をループ内容を確認する場合：ここで

は、私がこれまで持っているものです。

Answer 1

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 

Answer 2

組み込みの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 3

私はあなたが数値入力

回避配列を強制し、（WorksheetFunction.CountIfを使用することができます

• 使用Application.InputBoxに（））

をいただきたいです

以下のとおり：

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)