Makro eğitim
-
Text Dosyası Okuma ve Yazma
Bu bölümde dosya açmak ve okumak ile ilgili daha fazla kontrol sahibi olmayı öğreneceğiz. VBA Open Statement yöntemi (Çalışma Kitabının Open Method yöntemi değil), okumak veya yazmak için bir dosya açar. Bu, işleyiş ve düzenleme üzerinde daha fazla kontrol sahibi olmamızı sağlar (örneğin CSV dosya yaratırken araya varsayılan olarak virgül konması yerine farklı bir sınırlayıcı…
-
CSV Dosyası Yaratma
Bu bölümde bir veri kümesini CSV dosya olarak kaydetmeyi inceleyeceğiz Bir sayfayı CSV olarak dışa aktarmak için önce sayfayı yeni bir Çalışma Kitabına kopyalayın ve gerekli ayarlamaları yapın. Ardından bu çalışma kitabını bir csv dosyası olarak kaydedin. Bu işlem esnasında ekran uyarılarını kapattığınızdan emin olun. Aşağıdaki komut ile CSV dosyası yaratabiliyoruz. Sub Farkli_Kaydet_CSV() Dim YeniDosya…
-
FileDialog Yöntemi
FileDialog Özelliği, kullanıcının bir klasör seçmesine olanak tanır. Klasörün içindeki her dosyanın içine girmek için bir döngü yazabilirsiniz. Dir işlevini döngü içinde herhangi bir bağımsız değişken olmadan tekrar çağırarak klasördeki bir sonraki dosyaya geçebilirsiniz. Not: FileDialog ve GetOpenFilename birbirine benzer. Amaç bir ya da daha fazla dosya seçmek ise GetOpenFilename kullanılması daha kolaydır. Ancak amaç…
-
GetOpenFileName Yöntemi
GetOpenFileName yöntemi, kullanıcının bir veya daha fazla dosya seçmesini sağlar. Aşağıdaki komut sadece 1 adet dosya açmamızı sağlar Sub Dosyadan_veri_alma() Dim DosyaSec As Variant ‘burası string olamaz çünkü kullanıcı hayır’a tıkladığında false yerine “false” döndürür. Dim DosyaAc As Workbook Application.ScreenUpdating = False DosyaSec = Application.GetOpenFilename(Title:=”Dosya seçin”, FileFilter:=”Excel Files (*.xls*),*xls*”) If DosyaSec <> False Then Set…
-
DIR Fonksiyonu
DIR fonksiyonu, dosya veya klasörlerin var olup olmadığını kontrol etmemize yarar. DIR fonksiyonu, bir dizin (dosya veya klasör yolu) değişkeni kullanır ve dosya veya klasörün adını döndürür. Eğer yol adı bulunamazsa, DIR fonksiyonu sıfır uzunluklu bir dize (“”) döndürür. Syntax Dir [( dizin [, özellik ]) Not: Joker karakterler (* ve ?) dizinde kullanılabilir. DOSYA…
-
En kullanışlı VBA İfadeleri – Metin dosyaları ve Dizinler
Metin dosyaları ve Dizinler Açıklama Close Bir metin dosyasını kapatır Get Bir metin dosyasından veri okur Input # Bir metin dosyasından veri okur Line Input # Metin dosyasından bir veri satırı okur MkDir Yeni bir dizin oluşturur Name Bir dosyayı veya dizini yeniden adlandırır Print # Verileri bir metin dosyasına yazar Open Bir metin dosyası…
-
En kullanışlı VBA İfadeleri – Kod Yürütme
Kod Yürütme Açıklama Call Başka bir prosedüre gider Do Until – Loop Bir koşul doğru olana kadar talimatlar arasında döngü yapar Do While – Loop Bir koşul doğruyken talimatlar arasında döngü yapar Exit Do Do-Loop döngüsünden çıkar Exit For For-Next döngüsünden çıkar Exit Sub Alt programdan çıkar For – Each – Next Bir koleksiyon boyunca döngü yapar…
-
En kullanışlı VBA İfadeleri – Genel
Genel Açıklama Const Bir sabit tanımlar Dim Değişken tanımlar End Programdan çıkar, ayrıca prosedürleri ve ifadeleri sona erdirir. Function Fonksiyon prosedürü tanımlar Kill Dosya siler Let Bir ifadeye değişken atar (isteğe bağlıdır) Like Bir dize diğeriyle eşleştirilebilirse True döndürür Load Bir nesne yükler (userform gibi) ama göstermez Mid Bir dizideki karakterleri diğer karakterlerle değiştirir Option…
-
Çalışma Sayfaları Oluşturma
Bu bölümde her bir değişken için bir çalışma sayfası içeren yeni bir çalışma kitabı oluşturacağız.
-
Variant Diziler
Variant Diziler kullanmanın avantajları aşağıdaki gibidir: Aşağıdaki örnekte variant dizide bulunan her değere 100 eklendikten sonra hücrelere yazdırılır. Bu yöntem çok daha hızlıdır.
-
İki Boyutlu Dizi
İki boyutlu dizi iç içe döngü yardımıyla elde edilebilir. Örnek: Kodlar:
-
Dinamik Diziyi Muhafaza Etmek
Eğer dinamik dizide tanımlı değişkenlere yenisini eklemek istersek Preserve ifadesini kullanmamız gerekir. Sub Dizi_Muhafaza() Dim Musteri() As String ReDim Musteri(1 To 2) Musteri(1) = “Ali” Musteri(2) = “Hakan” ‘Eğer “ReDim Musteri(1 To 3)” olarak yazarsak yukarıdaki 2 tanımlama sıfırlanır. Bu yüzden Preserve girilir: ReDim Preserve Musteri(1 To 3) Musteri(3) = “Fatma” MsgBox Musteri(1) & vbNewLine…