
Sub SelectMax()
Dim ActFormat As String
Dim MaxN As Double
MaxN = WorksheetFunction.Max(Range("D3:D15"))
' memorizzo il formato attuale del Range
ActFormat = Range("D3").NumberFormat
' lo sostituisco con quello generale in modo da non avere problemi con il metodo Find
With Range("D3:D15")
.NumberFormat = "general"
.Find(What:=MaxN, LookIn:=xlValues).Select
'reimposto il formato originario
.NumberFormat = ActFormat
End With
End Sub
|
Sub sel_val_max()
Dim mas As Variant, val As Variant
Set mas = Range("D3:D15")
For Each val In mas
If val = Application.Max(mas) Then
Cells(val.Row, val.Column).Select
Exit For
End If
Next
Set mas = Nothing
End Sub |
Sub SelectMax2()
Dim riga As Long
Dim massimo As Double
massimo = WorksheetFunction.Max(Range("D3:D15"))
riga = WorksheetFunction.Match(massimo, Range("D:D"), 0)
Range("D" & riga).Select
End Sub |
Option Explicit
'
Sub SelectMax()
Dim x As String
x = Range("D3:D15").Address
Cells(Evaluate("MATCH(MAX(" & x & ")," & x & ",0)") + Range(x).Cells(1, 1).Row - 1, Range(x).Cells(1, 1).Column).Select
End Sub |
Sub SelectMax()
Range("D:D").Find(What:=Application.Max(Range("D:D")), LookIn:=xlValues).Select
End Sub |
