Her Bir Sütundaki Maksimum Değeri Bulma

27 Aralık 2020 801

Her Bir Sütundaki Maksimum Değeri Bulma isimli kullanıcı tanımlı fonksiyon, seçtiğiniz sütunlardaki her maximum değeri ayrı ayrı bulmaktadır.

Function Max_Each_Column(Data_Range As Range) As Variant
Dim TempArray() As Double, i As Long

If Data_Range Is Nothing Then Exit Function

With Data_Range
    ReDim TempArray(1 To .Columns.Count)
    For i = 1 To .Columns.Count
        TempArray(i) = Application.Max(.Columns(i))
    Next
End With

Max_Each_Column = TempArray

End Function

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Kodu boş bir Module içine eklemeniz gerekecektir. Kullanımı:

=Max_Each_Column(A1:C10) şeklindedir.

Eğer Ofis 365 kullanıcısıysanız, bu kullanıcı tanımlı fonksiyon otomatik olarak bir taşma aralığı oluşturacaktır.

50 Farklı Hazır Makro (VBA) Kodu
Sayfadaki Ad Tanımlamaları Silme
Son Satır Numarasını Bulma
Bağlantılı Resim Ekleme
TextBox Nesnelerinin Arasında Boşluk Bırakma
Tüm Satırları ve Sütunları Gösterme
Hedef Aramayı Kullanma
Excel Makroları İle Not Defterini Açmak
Excel Makro ile Hücreye Veri Yazma
Aktif Hücrenin Temel Bilgilerini Bulma
Metni Tersten Yazdırma
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Birleştirilmiş Tüm Hücreleri Ayırma
Program Başlangıcı Kodları
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Transparan UserForm Oluşturmak
Negatif Sayıları Poztif Sayıya Çevirme
Veri Giriş Formunu Etkinleştirme
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Belirli Bir Metne Sahip Hücreleri Vurgulama
Excel Makroları ile İşlemci Bilgilerini Bulma
Dizileri Döngüye Eklemek
Kullanılan Tüm Sütunları Otomatik Sığdır
Label Nesnesine Kayan Yazı Ekleme
Makro ile Dosya Açma
Makro ile Açılan Liste Oluşturma
Excel Şerit Menü Çubuğunu Gizleme
Şeffaf UserForm Oluşturma Kodu
Seçili Hücrenin Sütun Harfini Bulma
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Aktif Çalışma Sayfası Korumasını Kaldırma
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Hücredeki Değere Göre Yeni Sayfa Ekleme
Tekrarlayan Verileri Vurgulama
Aktif Çalışma Sayfasını Koruma
Sütunu Kes Kopyala ve Yapıştır
Excel Dosya Arama Yapma Makrosu
Tek Satırı Kes Kopyala ve Yapıştır
Excel Hücrelerini Çözme
Hücre Aralığını Kes Kopyala ve Yapıştır
Hangi Günde Olduğunu Bulma
Excel Makroları ile Dosya Silme
Sayfaların Seçilmesini Sağlama
Formül Bulunan Hücreleri Koruma ve Kilitleme
Negatif Sayıları Vurgulama
2. Satırdaki Bilgileri Silmek
Özet Tablo Aralığını Otomatik Güncelleştirme
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Tüm Boş Çalışma Sayfalarını Silme
Cümle Durumuna Dönüştürme
Başka Dosyada Şifreli Userform Oluşturmak

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...