EXCEL VBA KODLARI

EXCEL VBA KODLARI

Bugünkü yazımda sizlere Excel Vba Kodlarından bahsedeceğim.

Excel Vba Kodları=   Seçme	== Seç aşağı 3 satır, sağ 2 sütun: ActiveCell.Offset (3, 2). Seçim '== Aktif hücreden listenin son sırasında seçin: Aralığı (Seçim, Selection.End (xlDown)). Seçin '== Geçerli hücre listesinden son sütunu için seçin: Aralığı (Seçim, Selection.End (xlToRight)). Seçin 'Çalışma sayfasının == seçin son hücre: Selection.SpecialCells (xlLastCell). Seçin
Excel Vba Kodları=Yapıştırma	'== Yapıştır formülü değeri değil, formül: Range ("A3"). Kopya . Range ("D26") PasteSpecial Yapıştır: = xlValues '== Bir hücreye yapıştırın ve bir sonraki hücreye özgün içeriğini taşımak: Selection.Insert Shift: = xlToRight
Excel Vba Kodları=Sütunlar ve Satırlar	'== Bir sütun gizle: Selection.EntireColumn.Hidden = true '== Bir sütun ekleyin: Sütunlar ("N: N"). Ekle '== Sil sütunlar: Sütunlar ("B: E"). EntireColumn.Delete '== Geçerli hücre yeni bir satır ekler: Selection.EntireRow.Insert '== Mevcut hücrenin Satır sil: Selection.EntireRow.Delete '== Set sütun genişliği: Selection.EntireColumn.ColumnWidth = 10 '== Set satır yüksekliği: Selection.RowHeight = 26,25 'Içeriğinin boyutuna == Set satır yüksekliği: Selection.Rows.AutoFit
Excel Vba Kodları=Hücre Biçimlendirme	'== Yazı sarılmış değil: Selection.WrapText = False '== Rengi kaldırın: Selection.Interior.ColorIndex = xlNone '== Set yazı tipi boyutu: = 8 Selection.Font.Size '== Tarih ve saat biçimi: Selection.NumberFormat = "aa-gg-yyyy ss: dd AM / PM" 'Virgül ile == Sayı biçimi: Selection.NumberFormat = "#, # # 0" '== Sol uyumlu: Selection.HorizontalAlignment = xlLeft '== Alt uyumlu: Selection.VerticalAlignment = xlBottom '== Girintili metin: Selection.IndentLevel = 3 '== Sil içeriğini değil biçimlendirme: Selection.ClearContents '== Sil içeriği ve biçimlendirme: Selection.Clear
Excel Vba Kodları= Ekran	Makro çalışırken '== faaliyet gizle: = False Application.ScreenUpdating '== Otomatik uyarılar kapatın: Application.DisplayAlerts = False '== Dondur: ActiveWindow.FreezePanes = true '== Makro çalışır ne kadar göster: String olarak String olarak Dim strTime1, strTime2 strTime1 = Format (Now (), "aa-gg-yyyy ss: dd: ss") [Burada diğer makro kodu koymak] strTime2 = Format (Now (), "aa-gg-yyyy ss: dd: ss") MsgBox "Geçen Zaman =" & DateDiff ("n", strTime1, strTime2)
Excel Vba Kodları= Aralık İsimler	'== Bir dizi adını ekleyin: ActiveWorkbook.Names.Add Adı: = "Gruplar", RefersTo: = Seçim '== Bir adlandırılmış aralık git: Range ("Gruplar"). Seçin '== Kitabındaki tüm aralığı adını silin: Nesne olarak Dim n ActiveWorkbook.Names olarak her n için n.Delete Sonraki
Excel Vba Kodları=Yol / Dosya Adı	'== Bir hücreye yol / dosya adı girin: ActiveCell.Value = ActiveWorkbook.FullName '== Bir altbilgi içine yol / dosya adı girin: ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName
Excel Vba Kodları=Pivot Tablolar	Veri değiştiğinde '=== pivot tabloları içinde kullanılmayan öğeleri kaldırın: Çalışma olarak Özet Tablo, ws Dim pt ActiveWorkbook.Worksheets olarak her ws için Ws.PivotTables olarak her pt için pt.PivotCache.MissingItemsLimit = xlMissingItemsNone Sonraki pt Sonraki ws
Excel Vba Kodları= Çalışma	'== Her çalışma sayfasının başlığı tarih ekle: Çalışma Dim yaprak ActiveWorkbook.Worksheets olarak her yaprak için sht.Select Range ("A1"). Değeri = Range ("A1"). Value & "ile" & strDate Sonraki yaprak