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

22 Mayıs 2021 536

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
Google Üzerinde Arama Yapma
Açılışta Üç Kere Şifre Hakkı Vermek
Yanıp Sönme Efekti Verme Kodu
Son Dolu Satırı Başka Sayfaya Kopyala
Hücredeki Değere Göre Yeni Sayfa Ekleme
Negatif Sayıları Vurgulama
A Sütunundaki Verileri C Sütununda Sıralama
Tüm Satırda İşlem Yapan Döngü
Tüm Çalışma Sayfalarını Gösterme
Seçili Alanda Yinelenenleri Vurgulama
Seçili Alandan İstenilen Karakteri Kaldırma
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Excel Crackleme İşlemi Makrosu
Belirli Metni Vurgulama
Seçimdeki Alternatif Satırları Vurgulama
Metinden Konuşma Oluşturma
Hedef Aramayı Kullanma
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Dizileri Döngüye Eklemek
Salt Okunur Excel Dosyasını Kontrol Etme
Gizlenmiş Makro Örnekleri
Yardım Menüsünü Açma
Kilitlenmemiş Hücreleri Seçme İşlemi
Makro ile Klasör Açma
Aktif Çalışma Sayfası Korumasını Kaldırma
Hatalı Hücreleri Renklendirme
Tek Hücreyi Kes Kopyala ve Yapıştır
Program Başlangıcı Kodları
Kare Kökünü Hesaplama
Aktif Satırı ve Sütunu Vurgulama
Özet Tablo Aralığını Otomatik Güncelleştirme
Aktif Hücrenin Sütun Numarasını Bulma
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
X Sayı Atlayarak Satır Gizleme
İçinde Bulunduğumuz Günü Bulma
Excel Makroları ile Dosya Silme
Hücreye Girilen Değerleri Farklı Bir Sayfaya Kaydetme
Toplu Sütun Silme
Tam Dizin İsmini Bulma
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Excel Alarm Kurma
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Kopyala ve Biçimleri Yapıştır
Excel Üzerinden Klasör Alma Kodu
Hücre İçerisine Kelime Ekleme
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
Dizinde Klasör Araması Yapma
Metni Tersten Yazdırma
UserForm Resize Özelliği Eklemek

Daha önce yorum yapılmamış!

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