Açık Excel Kitaplarını Yerleştirme

22 Mayıs 2021 538

Açık Excel Kitaplarını Yerleştirme isimli kod ile ekrandaki tüm açık Excel kitaplarını bir pencerede gösterecek şekilde yerleştirebilirsiniz.

Sub test_windows()
    ActiveWindow.WindowState = xlNormal
 
    Tiler Windows, 0, 0, Application.UsableWidth, Application.UsableHeight, , 2
End Sub
Sub Tiler(ObjColl As Object, OffsetX As Double, OffsetY As Double, _
          UsableWidth As Double, UsableHeight As Double, _
          Optional Rows As Long = 0, Optional Cols As Long = 0)
    Dim i As Long, blnByCols As Boolean
    Dim lngPri As Long, lngSec As Long, lngPriRemainder As Long
    Dim dblPriMax As Double, dblSecMax As Double
    Dim dblPriStart As Double, dblSecStart As Double
    Dim dblPriLen As Double, dblSecLen As Double
 
    If Cols = 0 And Rows = 0 Then Exit Sub
 
    blnByCols = Not Cols = 0
 
    lngPri = IIf(blnByCols, Cols, Rows)
    dblPriMax = IIf(blnByCols, UsableWidth, UsableHeight)
    dblSecMax = IIf(blnByCols, UsableHeight, UsableWidth)
    lngPriRemainder = ObjColl.Count Mod lngPri
    lngSec = -Int(-ObjColl.Count / lngPri)
    dblSecLen = dblSecMax / lngSec
 
    For i = 0 To ObjColl.Count - 1
        If i >= ObjColl.Count - lngPriRemainder Then
            dblPriStart = dblPriMax / lngPriRemainder * ((i Mod lngPri) Mod lngPriRemainder)
            dblPriLen = dblPriMax / lngPriRemainder
        Else
            dblPriStart = dblPriMax / lngPri * (i Mod lngPri)
            dblPriLen = dblPriMax / lngPri
        End If
        dblSecStart = (dblSecMax / lngSec) * Int(i / lngPri)
 
        ObjColl(i + 1).Left = IIf(blnByCols, dblPriStart, dblSecStart) + OffsetX
        ObjColl(i + 1).Top = IIf(blnByCols, dblSecStart, dblPriStart) + OffsetY
        ObjColl(i + 1).Width = IIf(blnByCols, dblPriLen, dblSecLen)
        ObjColl(i + 1).Height = IIf(blnByCols, dblSecLen, dblPriLen)
    Next
End Sub

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ı

Tüm açık Excel dosyalarınız tek bir pencerede listelenir.

Hazır Dosyayı İndir

Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
50 Farklı Hazır Makro (VBA) Kodu
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
Hücre Aralığını Görüntüye Dönüştürme
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Excel Makroları ile Klasör Silme
Yanıp Sönme Efekti Verme Kodu
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Dolar Okutma Makrosu
Seçimdeki Alternatif Satırları Vurgulama
İçindekiler Tablosu Oluşturma
Ondalık Sayıları Tam Sayıya Çevirme
Bir Dizeden Sayısal Veriler Elde Etme
Sütunu Kes Kopyala ve Yapıştır
R1C1 Referans Stilini Etkinleştirme
Zaman Aralığı Ekleme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Gizlenmiş Makro Örnekleri
Excel Hücresini Seçme Makrosu
Excel Makro Modulü Silme Kodu
Çalışma Kitabındaki Tüm Çalışma Sayfalarını Koruma
Seçili Satırların Sayısını Bulma
TextBox Nesnelerinin Arasında Boşluk Bırakma
Excel Satır Silme Kodu
Transparan UserForm Oluşturmak
Excel Makroları ile İşlemci Bilgilerini Bulma
Boş Hücrelerin Görünmez Alanını Vurgulama
Birden Çok Sütun Ekleme
Bir Aralıktaki Maksimum Değeri Renklendirme
Excel Makroları ile Dosya Sayısını Bulma
Kullanıcı Adınızı Bulma
Çalışma Sayfalarını Tek Adımda Korumasını Kaldırma
Birden Çok Satır Ekleme
Tek Satırı Kes Kopyala ve Yapıştır
Sayılara Yeni Bir Sayı Ekleme
Aç Penceresini Açan Makro
Makrolar ile Klasör Kopyalama
Hücredeki Değişikliklerin Kaydını Tutma
Aktif Hücreye Günün Tarihini Yazma
Seçili Aralığa Ait Bilgilerin Listelenmesi
Excel Makroları ile Dosya Taşıma
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
X Sayı Atlayarak Satır Gizleme
Yorumları Yazdırma
Belirli Kriterlere Sahip Satırları Silme
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Select Case Kullanımı
Api ile Bilgisayar Adını Bulmak
Tek Hücreyi Kes Kopyala ve Yapıştır
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma
Txt Dosyası Oluşturma
Metin Sarmayı Kaldırma

Daha önce yorum yapılmamış!

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