İçindekiler
Bu eğitici, VBA'da Hedef Aramayı nasıl kullanacağınızı gösterecektir.
Hedef Arama, Excel'de bulunan ve formüllere farklı değerler uygulamanıza ve sonuçları karşılaştırmanıza olanak tanıyan What -if analiz araçlarından biridir.
Hedef Arama Sözdizimi
GoalSeek işlevinin 2 argümanı vardır - amaç (değiştirmek istediğiniz hücre) ve ChangingCell (değiştirilmesi gereken hücre). İşlev, Hedef bulunursa Doğru veya Yanlış - Doğru ve Hedef bulunmazsa Yanlış döndürür.
VBA'da Hedef Aramayı Kullanma
Aşağıdaki çalışma sayfasını inceleyiniz.
Her ay gerekli olan geri ödemeyi, vadeyi ay olarak değiştirerek değiştirmek için aşağıdaki prosedürü yazabiliriz.
| 1234 | Alt ArtışTermi()'B5'i değiştirerek B6 100 yapınAralık("B6").Hedef Arama Hedefi:=100, DeğişenHücre:=Aralık("B5")Alt Bitiş |
B6 hücresinde bir formül ve B5 hücresinde bir değer olması gerektiğini unutmayın.
Bir If İfadesiyle Hedef Aramayı Kullanma
Kodunuzun akışını yönlendirmek için GoalSeek'i If deyimiyle de kullanabilirsiniz.
| 12345678 | Alt ArtışTermi()'B5'i değiştirerek B6 100 yapın - ve kullanıcıya bir mesaj döndürünIf Range("B6").GoalSeek(Hedef:=100, ChangingCell:=Range("B5")) = True O zamanMsgBox "Yeni Terim başarıyla bulundu"BaşkaMsgBox ("Yeni Terim bulunamadı")BitirAlt Bitiş |
