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
|
Için [F5] veya Run gidin .. Run Sub / programı çalıştırmak içinUserForm 
