Kategori: Hazır Makrolar
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme içeriğinde, Özet Tablolarınız için etkinleştirme ve devre dışı bırakma seçeneklerini içerek faydalı kod örnekleri yer almaktadır. Sub activateGetPivotData() Application.GenerateGetPivotData = True End Sub Sub deactivateGetPivotData() Application.GenerateGetPivotData = False End Sub Uygulama Adımları Microsoft Visual Basic for Applications penceresini (Alt + F11) açın. Project – VBAProject alanının, ekranın sol…
ListView Sütun Başlıklarını Hizalama
ListView Sütun Başlıklarını Hizalama içeriğinde, UserForm nesnesi üzerindeki ListView’in sütunlarıın hizalanmasını sağlayan hazır makrolar yer almaktadır. Private Sub UserForm_Activate() Dim XD As Long With ListView1 For XD = 2 To .ColumnHeaders.Count .ColumnHeaders.Item(XD).Alignment = lvwColumnCenter Next XD End With XD = Empty End Sub ListView Sütun Başlıklarını Hizalama Uygulama Adımları Microsoft Visual Basic for Applications penceresini…
Sayıları Rastgele Karıştırma
Sayıları Rastgele Karıştırma isimli vba kodunu kullanarak, 1 – 52 arasındaki sayıların gelişigüzel bir şekilde karıştırmasını yapabilirsiniz. Private Sub CommandButton1_Click() Dim CardB(52) As Long Dim I As Long, J As Long For I = 1 To 52 CardB(I) = I Next I Randomize Timer For I = 1 To 52 J = Int(Rnd * 52)…
UserForm Resize Özelliği Ekleme
UserForm Resize Özelliği Ekleme içeriğinde, UserForm nesnenizi istediğiniz gibi boyutlandırmanızı sağlayan hazır makrolar yer almaktadır. Option Explicit Private Const MResizer = “ResizeGrab” Private WithEvents m_objResizer As MSForms.Label Private m_sngLeftResizePos As Single Private m_sngTopResizePos As Single Private m_blnResizing As Single Private Sub m_AddResizer() Set m_objResizer = Me.Controls.Add(“Forms.label.1”, MResizer, True) With m_objResizer With .Font .Name = “Marlett”…
Transparan UserForm Oluşturma
Transparan UserForm Oluşturma isimli makro kodu, UserForm nesnenizin transparan yani şeffaf olmasını sağlamaktadır. Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong…
Listbox ve Combobox Satır Kaydırma
Listbox ve Combobox Satır Kaydırma isimli kodları kullanarak, her iki nesnede satır kaydırma işlemi yapmayı sağlamaktadır. Option Explicit Private Sub UserForm_Initialize() Dim lCounter As Long For lCounter = 1 To 1000 Lst1.AddItem lCounter Lst2.AddItem lCounter ComboBox1.AddItem lCounter ComboBox2.AddItem lCounter Next lCounter HookWheel Me, Me.Width, Me.Height, 1 End Sub Private Sub UserForm_Terminate() UnHookWheel End Sub Option…
Checkbox ile Exceli Kapatıp Açma
Checkbox ile Exceli Kapatıp Açma isimli kod, Excel’i açma ve kapatma için CheckBox nesnesi ile işlev yürütülmesini sağlamaktadır. Private Sub CheckBox1_Click() If CheckBox1 Then CheckBox1.Caption = “Exceli Kapat” Application.Visible = 1 Else CheckBox1.Caption = “Exceli Aç” Application.Visible = 0 End If End Sub Checkbox ile Exceli Kapatıp Açma Uygulama Adımları Microsoft Visual Basic for Applications…
Başka Dosyada Şifreli Userform Oluşturma
Başka Dosyada Şifreli Userform Oluşturma isimli kod ile, farklı bir Excel dosyası üzerinde kolayca şifreli UserForm oluşturabilirsiniz. Public MyPass Sub MainProgram() MyPasswBox If MyPass <> “” Then MsgBox “Girilen sifre : ” & MyPass End If End Sub Sub MyPasswBox() Dim PassWForm Set PassWForm = ThisWorkbook.VBProject.VBComponents.Add(3) PassWForm.properties(“Width”) = 200 PassWForm.properties(“Height”) = 90 Set NewTextBox =…
Program Başlangıcı Kodlarını Çalıştırma
Program Başlangıcı Kodlarını Çalıştırma 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…
Excel Dosyalarını Kayıt Etme ve Kapatma
Excel Dosyalarını Kayıt Etme ve Kapatma, VBA ile açık olan tüm çalışma kitaplarını önce kaydetme ve sonra kapatma işlemini yapmaktadır. Sub AcikKapat() For Each w In Application.Workbooks w.Save Next w Application.Quit End Sub Excel Dosyalarını Kayıt Etme – Uygulama Adımları Microsoft Visual Basic for Applications penceresini (Alt + F11) açılmalıdır. Project – VBAProject alanının, ekranın…
Api ile Bilgisayar Adını Bulma
Api ile Bilgisayar Adını Bulma, Excel VBA kodları ile bilgisayarınızın adının kolayca bulunmasını içeren makro kodları içermektedir. Declare Function GetComputerName Lib “kernel32” Alias “GetComputerNameA” _ (ByVal lpBuffer As String, nSize As Long) As Long Declare Function GetUserName Lib “ADVAPI32.DLL” Alias “GetUserNameA” _ (ByVal lpBuffer As String, nSize As Long) As Long Const MAX_COMPUTERNAME_LENGTH = &H15…
