ワークシート機能最大条件付き

Question

複数の列を持つシートを持っています。列Dがテキストボックスの名前と一致する場合は、列Aに最も高い数値を表示します。

これは、シート上で最後に使用した番号を表示するための数式です。

=MAX(INDEX((D2:D41=L11)*B2:B41,0)) 

私が午前問題は、このすべての値を最大数をオフに表示している私が持っているコードは、私は、これはVBA

'Cells with dates also return a value, and get covered for determining largest value. Percentages will convert and return numerics. 

Dim rngVal As Range 
Dim rngName as range 
Dim Max As Double 
Dim Name As String 

'Set range from which to determine largest value 
Set rngVal = sheets("Payment History").Range("B2:B41") 
Set rngName = sheets("Payment History").Range("D2:D41") 
Name = Me.TextBox1.value 

'Worksheet function MAX returns the largest value in a range 
Max = Application.WorksheetFunction.Max(rngVal) 

'Displays largest value 
MsgBox Max 
End Sub 

に変換するために得るカントです。

Answer 1

vba-codeに式を「コピー」する簡単な方法として、Evaluate関数を使用できます。あなたの例では、それは次のようになります。

は

Public Sub Test() 
    Dim rngVal As String 
    Dim rngName As String 
    Dim xMax As Double 
    Dim xName As String 

    'Set range from which to determine largest value 
    rngVal = Sheets("Payment History").Range("B2:B41").Address 
    rngName = Sheets("Payment History").Range("D2:D41").Address 
    xName = Me.TextBox1.Value 

    'Worksheet function MAX returns the largest value in a range 
    xMax = Evaluate("MAX(IF(" & rngName & "=" & xName & "," & rngVal & "))") 

    'Displays largest value 
    MsgBox xMax 
End Sub 

ヒント：彼らは、オブジェクトのプロパティがあり、同じ「名前」は、別のオブジェクト・タイプに接続する場合、時にはVBAが混乱してしまうのでNameまたはMaxを使用しないでください:)