Program Başlangıcı Kodları
25 Aralık 2020
26 Aralık 2020
862
Program Başlangıcı Kodları isimli kod ile Excel'de otomatik olarak başlatma işlemlerini yerine getirebilirsiniz.
Global Baslik As String
Sub Auto_Open()
Application.Visible = False
Application.StatusBar = ThisWorkbook.Name & " ExcelDepo (c) 2020"
Başlık = "Kod Bankası"
Dosya_Adı = ThisWorkbook.Name
Windows(Dosya_Adı).Activate
Gizlenecek
End Sub
Sub Cikis()
Gorunecek
Application.StatusBar = ""
Application.Quit
Application.Visible = True
ThisWorkbook.Close SaveChanges:=False
End Sub
Sub Gizlenecek()
With ActiveWindow
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
End With
Application.CommandBars.ActiveMenuBar.Enabled = False
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Enabled = False
End Sub
Sub Gorunecek()
With ActiveWindow
.DisplayWorkbookTabs = True
End With
Application.CommandBars.ActiveMenuBar.Enabled = True
Application.DisplayFullScreen = False
Application.CommandBars("Full Screen").Enabled = True
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- 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.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Buradaki kodları kullanarak Excel dosyalarınızı başlatırken otomatik işlemler yaptırabilirsiniz.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Otomatik Toplama | Ctrl M |
| Şerit Menü simgeleri arasında dolaşma | Tab |
| Yazdırma | Ctrl P |
| Üstü Çizgili Yazdırma | Ctrl 5 |
| Yakınlaştır Penceresini Açma | Alt M KA |