VBA Hile Sayfaları - Komutlar ve Sözdizimi Listeleri

VBA Hile Sayfası PDF (Ücretsiz İndirme)

Hızlı başvuru için ücretsiz Excel VBA Hile Sayfası PDF'imizi indirin!

İndirmek

VBA Hile Sayfaları

Tüm yaygın VBA Komutları ve Sözdizimi listeleri için bu sayfaya başvurun. Birçok temel komut (ör. bir sayfa ekleyin) ve bazı gelişmiş sözdizimi (ör. dizilerle çalışma) bulacaksınız.

İpuçları:

Bu sayfada arama yapmak için CTRL + F tuşlarını kullanın.

Bu sayfayı yer imlerine ekleyin (Chrome'da CTRL + D)!

Çarşaflar

AçıklamaVBA KoduSekme Adına Göre EtkinleştirSayfalar(“Giriş”).EtkinleştirVBA Kod Adına göre etkinleştirSayfa1.EtkinleştirDizin Konumuna Göre EtkinleştirSayfalar(1).EtkinleştirSonraki SayfaActiveSheet.Sonraki.EtkinleştirActiveSheet'i AlınMsgBox ActiveSheet.NameSayfa SeçSayfalar(“Giriş”).SeçinDeğişken olarak ayarlaÇalışma Sayfası olarak Dim ws
ws = ActiveSheet'i ayarlaAd / Yeniden AdlandırActiveSheet.Name = “YeniAd”Sayfa EkleE-Tablolar.EkleSayfa ve Ad EkleSheets.Add.Name = "Yeni Sayfa"Değişkene Sayfa EkleDim ws As Çalışma Sayfası
ws = E-Tablolar'ı ayarla.AddSayfayı KopyalaSayfalar(“Sayfa1”).Kopya Öncesi:=E-Tablolar(“Sayfa2”)Sayfayı GizleSheets(“Sayfa1”).visible = False
veya
Sayfalar(“Sayfa1”).visible = xlSheetHiddenSayfayı GösterSayfalar(“Sayfa1”).Görünür = Doğru
veya
Sayfalar(“Sayfa1”).Visible = xlSheetVisibleSayfayı Çok GizleSayfalar(“Sayfa1”).Görünür = xlSheetVeryHiddenSayfayı SilSayfalar(“Sayfa1”).SilSayfayı TemizleSayfalar(“Sayfa1”).Hücreler.TemizleKorumayı Kaldır (Parola Yok)Sayfalar(“Sayfa1”).Korumayı kaldırKorumayı kaldır (Parola)Sayfalar(“Sayfa1”).“Parola”nın korumasını kaldırınKoru (Parola Yok)Sayfalar(“Sayfa1”).KoruKoru (Şifre)Sayfalar(“Sayfa1”).“Parolayı” koruyunKoru ama VBA Erişimine İzin VerSayfalar(“Sayfa1”).Protect UserInterfaceOnly:=True

Başa dön

Hücreler ve Aralıklar

AçıklamaVBA KoduHücreyi EtkinleştirAralık(“B3”).Etkinleştir
Hücreler(3,2).EtkinleştirAralık SeçAralık(“a1:a3”).Seç
Aralık(Aralık(“a1”), Aralık(“a3”)).Seçin
Aralık(Hücreler(1, 1), Hücreler(3, 1)).Seçinyeniden boyutlandırAralık(“B3”).Yeniden Boyutlandır(2, 2).SeçTelafi etmekAralık(“B3”).Ofset(2, 2).SeçkopyalaAralık(“A1:B3”).Aralığı Kopyala(“D1”)KesmekAralık(“A1:B3”).Kesme Aralığı(“D1”)SilmekAralık(“A1:B3”).Sil
Aralık(“A1:B3”).Delete shift:=xlShiftToLeftAçıkAralık(“A1:A3”).Temizle
Aralık(“A1:A3”).ClearContents
Aralık(“A1:A3”).Format TemizleSaymakAralık(“A1:A3”).SayıDeğişken olarak ayarlaAralık olarak karartma
Rng = Aralık ("A1") ayarlaBirleştir/Birleştirmeyi KaldırAralık(“A1:A3”).Birleştir
Aralık(“A1:A3”).Birleştirmeyi KaldırHücreler Arasında Döngü

Aralık olarak hücreyi karart

Aralıktaki Her Hücre İçin(“A1:C3”)
MsgBox cell.Value
Sonraki hücre

Başa dön

satırlar

AçıklamaVBA KoduetkinleştirSatırlar(1).Etkinleştir
Satırlar(“1:1”).Etkinleştir
Range(“a1”).EntireRow.ActivateYükseklik genişlikAralık(“A1”).EntireRow.RowHeight = 30SilmekAralık(“A1”).EntireRow.DeleteSaymakAralık(“A1”).Satırlar.SayıSokmakAralık(“A1”).EntireRow.InsertSonlRow kadar loş
lRow = Cells(Rows.Count, 1).End(xlUp).RowkopyalaAralık(“1:1”).Kopya Aralığı(“5:5”)SokmakAralık(“1:1”).Kopyala
Aralık(“5:5”).Ekle

Başa dön

Sütunlar

AçıklamaVBA KoduetkinleştirSütunlar(1).Etkinleştir
Sütunlar(“a:a”).Etkinleştir
Aralık(“a1”).TümSütun.EtkinleştirYükseklik genişlikRange(“A1”).EntireColumn.ColumnWidth = 30SilmekAralık(“A1”).TümSütun.SilSaymakAralık(“A1”).Columns.CountSokmakAralık(“A1”).EntireColumn.InsertSonkadar loş lCol
lCol = Cells(1, Columns.Count).End(xlToLeft).ColumnkopyalaAralık(“A:A”).Aralığı Kopyala(“E:E”)SokmakAralık(“A:A”).Kopyala
Aralık(“E:E”).Ekle

Başa dön

VBA Kodu Örnekleri Aramaktan Bıktınız mı? AutoMacro'yu deneyin!

çalışma kitapları

AçıklamaVBA KoduetkinleştirÇalışma Kitapları(“Kitap1”).Etkinleştirİlk Açılanı EtkinleştirÇalışma Kitapları(1).EtkinleştirSon Açılanı EtkinleştirÇalışma Kitapları(Çalışma Kitapları.Count).EtkinleştirActivateWorkbook'u AlınMsgBox ActiveWorkbook.NameBu Çalışma Kitabını Alın (VBA Kodu içeren)MsgBox ThisWorkbook.NameEkleÇalışma kitapları.EkleDeğişkene EkleÇalışma Kitabı Olarak Dim wb
wb = Çalışma Kitaplarını ayarla.AddAçıkWorkbooks.Open(“C:\example.xlsm”)Değişkene AçÇalışma Kitabı Olarak Dim wb
wb = Workbooks.Open(“C:\example.xlsm”) olarak ayarlayınKapatÇalışma Kitapları(“Kitap1”).Close SaveChanges:=False
Çalışma Kitapları(“Kitap1”).Close SaveChanges:=TrueKaydetmekÇalışma Kitapları(“Kitap1”).KaydetFarklı kaydetWorkbooks(“Kitap1”).SaveAs strFileNameKoru/Korumayı KaldırÇalışma kitapları(1). “Parolayı” koruyun
Çalışma kitapları(1). “Parola” korumasını kaldırınDeğişken olarak ayarlaÇalışma Kitabı olarak wb'yi karart
Set wb = Çalışma Kitapları(“Kitap1”)Çalışma Kitaplarındaki Tüm Çalışma Kitaplarında Döngü

Çalışma Kitabı Olarak Dim wb

Çalışma Kitaplarında Her wb için
MsgBox wb.Adı
Sonraki wb

Kontrol VarEğer Dir(“C:\Book1.xlsx”) = “” ise
MsgBox "Dosya mevcut değil."
EndIfKopyala KapalıFileCopy “C:\file1.xlsx”,”C:\file2.xlsx”

Başa dön

Ayarlar

AçıklamaVBA KoduEkran GüncellemeApplication.ScreenUpdating = Yanlış
Application.ScreenUpdating = DoğruUyarıları GörüntüleApplication.DisplayAlerts = Yanlış
Application.DisplayAlerts = DoğruOlaylarApplication.EnableEvents = Yanlış
Application.EnableEvents = Doğruİptal Anahtarını EtkinleştirApplication.EnableCancelKey = xlDevre Dışı
Application.EnableCancelKey = xlInterruptMetin Karşılaştırma - Büyük/Küçük Harf YoksaySeçenek Metni KarşılaştırDeğişken Bildirimi GerektirSeçenek AçıkOtomatik HesaplamalarApplication.Calculation = xlManual
Uygulama.Hesaplama = xlOtomatikArka Plan Hata KontrolüApplication.ErrorCheckingOptions.BackgroundChecking = Yanlış
Application.ErrorCheckingOptions.BackgroundChecking = DoğruFormül Çubuğunu GörüntüleApplication.DisplayFormulaBar = Yanlış
Application.DisplayFormulaBar = DoğruDonma bölmeleriActiveWindow.FreezePanes = Yanlış
ActiveWindow.FreezePanes = DoğruTam Ekran GörünümüApplication.DisplayFullScreen = Yanlış
Application.DisplayFullScreen = DoğruSayfa Sonu ÖnizlemesiActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewKaydırma Çubuklarını GörüntüleActiveWindow ile
.DisplayHorizontalScrollBar = Yanlış
.DisplayVerticalScrollBar = Yanlış
ActiveWindow ile Bitir
.DisplayHorizontalScrollBar = Doğru
.DisplayVerticalScrollBar = Doğru
İle bitmekDurum Çubuğunu GörüntüleApplication.DisplayStatusBar = Yanlış
Application.DisplayStatusBar = DoğruDurum Çubuğu İçeriğiApplication.StatusBar = “Şimdi çalışıyorum!!!”
Application.StatusBar = YanlışÇalışma Kitabı Sekmelerini GörüntüleActiveWindow.DisplayWorkbookTabs = Yanlış
ActiveWindow.DisplayWorkbookTabs = DoğruKullanıcı adıApplication.UserName = “AutomateExcel.com”Uygulama AltyazısıApplication.Caption = “AutomateExcel Modeli”yakınlaştırActiveWindow.Zoom = 80

Başa dön

Hatalar

AçıklamaVBA KoduHatada - Kodu durdur ve hatayı görüntüleHatada 0 GitHatada - Hatayı atla ve çalıştırmaya devam etHatada Devam Et SonrakiHatada - Bir kod satırına gidin [Etiket]Hatada [Etiket] GitTemizler (Sıfırlar) HatasıHatada Git -1Hata numarasını gösterMsgBox Hata NumarasıHata Açıklamasını GösterMsgBox Err.AçıklamaKendi hatasını oluşturma işleviHata.Yükselt

Başa dön

Dosyalar

AçıklamaVBA KoduDosya kopyalamakFileCopy “C:\test\test_old.xlsx”, “C:\test\test_new.xlsx”Dosyayı sil“C:\test\example.xlsx” dosyasını öldürünKlasör YapMkDir "C:\test\"Klasördeki Tüm Dosyaları Sil“C:\test\” ve “*.*” öğesini sonlandırınKlasörü Sil“C:\test\” ve “*.*” öğesini sonlandırın
RmDir "C:\test\"Geçerli DizinstrPath = CurDir()Bu Çalışma Kitabı YolustrPath = BuÇalışma Kitabı.YolKlasördeki Tüm Dosyalarda Döngü

strFile = Dir(“C:\test” & “\*”)

Len(strFile) > 0 iken Yap
Debug.Print strFile
strFile = Yön
Döngü

Başa dön

Harika ürün. AutoMacro sadece kodunuzu yazmaz, ilerledikçe öğretir!" - Tony, İngiltere

Daha fazla bilgi edin

900+ İncelememizi okuyun

diziler

AçıklamaVBA KoduOluşturmakDim arr(1 ila 3) Varyant Olarak
arr(1) = “bir”
arr(2) = “iki”
arr(3) = “üç”Excel'den OluşturDim arr(1 ila 3) Varyant Olarak
Dim hücre Aralık Olarak, i Tamsayı Olarak
ben = LBound(arr)
Aralıktaki Her Hücre İçin(“A1:A3”)
ben = ben + 1
dizi(i) = hücre.değer
Sonraki hücreTüm Öğeleri OkuDim ben uzun
i için = LBound(arr) için UBound(arr)
MsgBox dizi(i)
sonraki benSildizi silDiziden DizeyeDim sName As String
sName = Katıl(dizi, “:”)Boyutu ArtırReDim Koruma arr(0 - 100)Değeri Ayarladizi(1) = 22

Başa dön

VBA Programlama | Code Generator sizin için çalışıyor!

Koleksiyonlar

AçıklamaVBA KoduOluşturmakDim col Yeni Koleksiyon Olarak
"bir" ekle
"iki" ekleExcel'den OluşturDim col Yeni Koleksiyon Olarak
Aralık olarak hücreyi karart
Aralıktaki Her Hücre İçin(“A1:A2”)
col.Hücre ekle.değer
Sonraki hücreÖğe eklemekcol.“Değer” ekleÖğeyi Önce Eklecol.“Değer” Ekle, Önce:=1Öğeyi Sonra Eklecol.“Değer” Ekle, Sonra:=1Öğeyi OkuMsgBox grubu (1)Öğeleri Saycol.CountTüm Öğeleri OkuÖğeyi Varyant Olarak Karart
Colll'deki her öğe için
MsgBox öğesi
Sıradaki eşyaÖğeyi kaldırmakcol.Kaldır (1)Tüm Öğeleri KaldırSet col = Yeni Koleksiyon

Başa dön

sözlükler

AçıklamaVBA KoduGerekli ReferansAraçlar > Referanslar > Microsoft Komut Dosyası Çalıştırma ZamanıOluşturmakDim dict As New Scripting.Dictionary
dict.Ekle “”
dict.Ekle “”Excel'den OluşturDim dict As New Scripting.Dictionary
Aralık olarak hücreyi karart
Tamsayı olarak karartma tuşu
Aralıktaki Her Hücre İçin(“A1:A10”)
anahtar = anahtar + 1
dict.Add anahtarı, hücre.değer
Sonraki hücreÖğe eklemekdict."Anahtar", "Değer" ekleyinDeğeri değiştirdict(“Anahtar”) = “Değer”Değer elde etmekMsgBox dict ("Anahtar")Değeri Kontrol EtEğer dict.Exists(“Anahtar”) Sonra
MsgBox "Var"
BitirÖğeyi kaldırmakdict.Kaldır (“Anahtar”)Tüm Öğeleri Kaldırdict.RemoveAllÖğeler Arası DöngüVaryant olarak karartma tuşu
dict.Keys'deki her tuş için
MsgBox tuşu, dict(key)
Sonraki anahtarÖğeleri Saydict.CountAnahtar Büyük Harf Duyarlı Olundict.CompareMode = vbBinaryCompareAnahtar Büyük Harfi Duyarsız Hale Getirindict.CompareMode = vbTextCompare

Başa dön

AutoMacro - Ultimate VBA Eklentisi

AutoMacro: Yüzlerce Kullanıma Hazır VBA Kodu Örneği ve çok daha fazlasını içeren VBA Eklentisi!

Daha fazla bilgi edin