VBA adresse de la Cellule de Max()

J'ai quelque chose comme

sdMax = WorksheetFunction.Max(Range("D2", Cells(emptyRow, 4)))

pour trouver le maximum de la colonne D

Comment puis-je trouver l'emplacement de ce nombre maximal?

  • Permettez-moi de vous accueillir sur StackOverflow et de rappeler trois choses que nous avons l'habitude de faire: 1) Que vous recevez de l'aide, essayez de lui donner trop répondre aux questions dans votre domaine d'expertise 2) Read the FAQs 3) Quand vous voyez une bonne Q&A, vote jusqu'using the gray triangles, la crédibilité du système est basée sur la réputation que les utilisateurs de gagner en partageant leurs connaissances. Pensez également à accepter la réponse que mieux de résoudre votre problème, le cas échéant, by pressing the checkmark sign
InformationsquelleAutor lamba | 2011-03-07
  1. 12

    Définie comme une fonction définie par l'utilisateur en vba, de retourner l'adresse d'une chaîne

    Function AddressOfMax(rng As Range) As String
    AddressOfMax = WorksheetFunction.Index(rng, WorksheetFunction.Match(WorksheetFunction.Max(rng), rng, 0)).Address

End Function

    Ou de retourner une référence de plage

    Function AddressOfMax(rng As Range) As Range
    Set AddressOfMax = rng.Cells(WorksheetFunction.Match(WorksheetFunction.Max(rng), rng, 0))

End Function

    ces fonctions supposent rng est une colonne large

    Ces fonctions peuvent être utilisées dans la feuille

    par exemple

    =AddressOfMax(C:C)

    ou en vba

    par exemple

    Dim r As Range
Set r = AddressOfMax(Range("D2", Cells(emptyRow, 4)))
    InformationsquelleAutor chris neilsen