Aşağıda bir programa bakacağız Excel VBA'sı o ikinci en yüksek değeri bulur.
Durum:
1. İlk olarak, iki Range nesnesi ve Double türünde iki değişken tanımlıyoruz. Range nesnelerini rng ve hücre olarak adlandırırız. Bir çift değişkene en yüksekValue diyoruz ve bir çift değişkene ikinciYüksekValue diyoruz.
Aralık Olarak Karart, Aralık Olarak Hücre
En yüksek Değeri Çift, ikinci En Yüksek Değeri Çift Olarak Azalt
2. Range nesnesini seçilen aralıkla ve iki Double değişkenini 0 değeriyle başlatıyoruz.
Set rng = Seçim
en yüksekDeğer = 0
ikinciEn Yüksek Değer = 0
3. İlk önce en yüksek değeri bulmak istiyoruz. Rastgele seçilmiş bir aralıktaki her hücreyi kontrol etmek istiyoruz (bu aralık herhangi bir boyutta olabilir). Excel VBA'da bunun için For Her Sonraki döngüsünü kullanabilirsiniz. Aşağıdaki kod satırlarını ekleyin:
'En Yüksek Değeri Bul
Her hücre için rng'de
Sonraki hücre
Not: rng ve hücre burada rastgele seçilmiştir, herhangi bir isim kullanabilirsiniz. Kodunuzun geri kalanında bu adlara başvurmayı unutmayın. Yeşil çizgi bir yorumdur ve buraya yalnızca bu kod parçası hakkında bilgi sağlamak için eklenmiştir.
4. Bu aralıktaki her hücreyi kontrol ediyoruz. En yüksekValue'dan yüksekse, değeri en yüksekValue değişkenine yazarız. Aşağıdaki kod satırını döngüye ekleyin.
Eğer cell.Value > en yüksekValue ise, o zaman en yüksekValue = cell.Value
Not: En yüksekDeğerin başlangıç değeri 0 olduğundan, ilk değer her zaman en yüksekDeğerden yüksektir.
5. İkinci olarak, ikinci en yüksek Değeri bulmak istiyoruz. Bir For Every Next döngüsü daha ekliyoruz.
'İkinci En Yüksek Değeri Bul
Her hücre için rng'de
Sonraki hücre
6. Seçilen aralıktaki her hücreyi tekrar kontrol ederiz. SecondHighestValue'dan yüksek ve en yüksekValue'dan düşükse, değeri secondHighestValue değişkenine yazarız. Aşağıdaki kod satırını döngüye ekleyin.
Eğer cell.Value > secondHighestValue And cell.Value <highValue ise secondHighestValue = cell.Value
7. Son olarak, bir MsgBox kullanarak ikinci en yüksek değeri gösteriyoruz.
MsgBox "İkinci En Yüksek Değer " & secondHighestValue
8. Makronuzu bir komut düğmesine yerleştirin, sayıları seçin ve komut düğmesine tıklayın.
Sonuç:
