Yazeka
Arama sonuçlarına göre oluşturuldu
Excel VBA'da maksimum değeri bulmak için aşağıdaki kod kullanılabilir:
Sub FindMaxValue() Dim MaxVal As Double MaxVal = Application.WorksheetFunction.Max(Range("A1:A10")) MsgBox "Maksimum Değer: " & MaxVal End Sub
Bu kodda:
Dim MaxVal As Double
ile maksimum değer için değişken tanımlanır 1.Range("A1:A10")
ile arama yapılacak hücre aralığı belirlenir 1.Application.WorksheetFunction.Max(VeriAraligi)
komutu ile maksimum değer bulunur 1.MsgBox
komutu ile sonuç ekranda gösterilir 1.
VBA düzenleyicisini kapatıp Excel'e döndükten sonra, "Geliştirici" sekmesinden "Makro" seçeneğine tıklayıp "FindMaxValue" adlı makroyu seçerek "Çalıştır" butonuna basmak yeterlidir 1.
5 kaynaktan alınan bilgiyle göre: