/ / Excel VBA'da İkinci En Yüksek Değeri Bul

Excel VBA'da İkinci En Yüksek Değeri Bul

Aşağıda bir programa bakacağız Excel VBA o ikinci en yüksek değeri bulur.

Durum:

Excel VBA'da İkinci En Yüksek Değeri Bul

1. İlk olarak, iki Range nesnesini ve Double tipinin iki değişkenini beyan ederiz. Range nesneleri rng ve hücresini çağırıyoruz. En yüksek bir Değer olarak adlandırdığımız bir çift değişken ve ikinci bir HighestValue olarak adlandırdığımız bir çift değişken.

Dim rng As Range, cell As Range
Dim highestValue As Double, secondHighestValue As Double

2. Range nesnesini seçilen aralıkta ve iki Double değişkenini 0 değeriyle başlatıyoruz.

Set rng = Selection
highestValue = 0
secondHighestValue = 0

3. İlk olarak, en yüksek değeri bulmak istiyoruz. Her hücreyi rastgele seçilen bir aralıkta kontrol etmek istiyoruz (bu aralık herhangi bir boyutta olabilir). Excel VBA'da bunun için Her Sonraki Döngüyü kullanabilirsiniz. Aşağıdaki kod satırlarını ekleyin:

"Find Highest Value
For Each cell In rng

Next cell

Not: Rng ve hücre burada rastgele seçilir, herhangi bir isim kullanabilirsiniz. Kodunuzun geri kalanında bu adlara başvurmayı unutmayın. Yeşil çizgi bir yorumdur ve sadece bu kod parçası hakkında bilgi sağlamak için buraya eklenir.

4. Bu aralıktaki her bir hücreyi kontrol ederiz. En yüksek değerden daha yüksekse, değeri en yüksek değer olan değere yazarız. Aşağıdaki kod satırını döngüye ekleyin.

If cell.Value > highestValue Then highestValue = cell.Value

Not: en yüksek Değerin başlangıç ​​değeri 0 olduğundan, ilk değer her zaman en yüksek Değer'den yüksektir.

5. İkincisi, ikinci en yüksek değeri bulmak istiyoruz. Her Sonraki Döngü için bir tane daha ekliyoruz.

"Find Second Highest Value
For Each cell In rng

Next cell

6. Her hücreyi seçilen aralıkta tekrar kontrol ederiz. SecondHighestValue değerinden daha yüksekse ve en yüksekDaha yüksekse, değeri secondHighestValue değişkenine yazarız. Döngü için aşağıdaki kod satırını ekleyin.

If cell.Value > secondHighestValue And cell.Value < highestValue Then secondHighestValue = cell.Value

7. Son olarak, bir MsgBox kullanarak ikinci en yüksek değeri gösteririz.

MsgBox "Second Highest Value is " & secondHighestValue

8. Makronuzu bir komut düğmesine yerleştirin, sayıları seçin ve komut düğmesine tıklayın.

Sonuç:

İkinci En Yüksek Değer Sonuçını Bul

Ayrıca oku: