VBA：行の最小値を持つ列を特定する方法は？

Question

このサブルーチンでは、すべての行が最低値をチェックします。私はこの値がどの列にあるかを知りたい。どのように手続きしますか？ここ は、私がこれまでに得たものである：

Sub LowCol() 
    Dim iAnz As Long 
    Dim myrange As Range 
    Dim rCell As Range 
    Dim iLevel As Long 
    Dim i As Long 
    Dim j As Long 
    Dim iPos As Long 
    Dim dMin As Double 
    iAnz = Worksheets("v1").Cells(6, 3).Value 'amount of columns 
    iLevel = Worksheets("b1").Cells(2, 2).Value 'amount of rows 

    For i = 0 To iLevel 
     Set myrange = Worksheets("b1").Range(Cells(5 + i, 2 + iAnz + 1), Cells(5 + i, 2 + iAnz + iAnz + 1)) 
     dMin = Application.WorksheetFunction.Min(myrange) 
     Set rCell = myrange.Find(What:=dMin, LookIn:=xlValues, _ 
           LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
           MatchCase:=False, SearchFormat:=False) 
     iPos = CLng(rCell.Column) 'this line is obviously not working. How to fix? 
     Worksheets("b1").Cells(5 + i, 2 + iAnz + iAnz + 1).Value = iPos 
    Next i 
End Sub 

Answer 1

これは、MIN関数のように高速ではありませんが、あなたが大規模なデータセットで作業している場合を除き、それは大きな違いをすることはありません。

Function getMinValueColumn(Target As Range) As Long 
    Dim r As Range, rMin As Range 

    If Target Is Nothing Then Exit Function 
    For Each r In Target 
     If r.Value <> vbNullString Then 
      If rMin Is Nothing Then Set rMin = r 
      If r.Value < rMin.Value Then Set rMin = r 
     End If 
    Next 
    If Not rMin Is Nothing Then getMinValueColumn = rMin.Column 
End Function 

Answer 2

あなたはMIN値の列の数を取得するためにVBAを必要としません。同じように、MATCHで式を使用：

=MATCH(MIN(A1:G1);A1:G1;0)