Excel Veri Modeli (Data Model) Nedir?

Veri Modeli (Data Model) Nedir?

Veri modeli (data model) farklı Excel Tabloları’ndan (table) gelen verilerin entegre edilmesini sağlayan yeni bir veri yapısıdır. Veri modeline eklenen veriler pivot tablo ve Power View raporlarından kullanılır.

• Bir Excel dosyasında (workbook) sadece bir tane veri modeli olabilir.
• Bütün Excel tabloları veri modeline eklenebilir.
• Ayrıca SQL veri tabanları ve diğer veri kaynakları da veri modeline eklenebilir.
• Veri modeli üzerindeki çok sayıda verinin bir araya getirilmesi için ilişkiler (relationships) kullanılır.
• Veri modeli üzerindeki veriler pivot tablo ve power view gibi araçlar erişerek raporları üretebilirler. 

Excel klavye kısayolları

Herkesin çok sevdiği Microsoft Excel (R) klavye kısayollarını (keyboard shortcuts) yeniden düzenledim. Pratik kullanımlar dileğiyle.

Excel Düzey Testleri

Microsoft Excel eğitiminden önce düzeyimiz ya da yapabildiklerimiz konusunda bir ön bilgi almak için bu testi yapıyoruz. Sonuç düşük ya da yüksek çıkabilir. Test içinde tipik dört işlemler, birkaç tane fonksiyon (eğer, erğersay, düşeyara gibi), filtreleme, pivot tablo ve grafik gibi temel konularda bilgileri soruyoruz. Bunları kullananlar bu testi yaparlar, kullanmayanlar yapamayabilir, ancak bu onların  Excel bilmediği anlamına gelmez. Başka fonksiyonları ve araçları kullanıyorlardır mutlaka.

Excel’de 400 civarında fonksiyon, çok sayıda grafik türü, çok sayıda veri aracı (pivot, filtre, alttoplam, birleştir, vb), çok sayıda biçimlendirme aracı vardır.. Bunların tümünü bilmek ve uygulayarak çözümler geliştirmenin sonu yoktur. Hani deniyor ha “Excel deryadır” diye.

Bu nedenle ne öğrenirsek - etkin kullanım adına, çözümler adına katkısı olacaktır. 

Testlerimizi elde etmek için farukcubukcu.com download bölümünde bulabilirsiniz. 

Ayrıca faruk@farukcubukcu.com adresine mail atabilirsiniz. 

Workbook, ActiveWorkBook ve ThisWorkbook Nesneleri

Workbook, ActiveWorkBook ve ThisWorkbook Nesneleri:

ActiveWorkbook: Aktif olan çalışma dosyası (görünen).

Workbooks(1): Açık olanlardan birincisi

ThisWorkbook: Kodlara ev sahipliği yapan çalışma dosyası

Sheets("FC"): FC adlı sheet

ActiveWorkSheet: Bulunulan/işlenen sheet

Sheets(1): Sağa doğru 1. Sıradaki sheet

BALL PACKAGING firmasında bilişim eğitimleri projemiz

Excel VBA - sütundaki verilerin tümünü işlemek

Her satır arasına boş bir satır ekleyen kodlama için aşağıda yer alan döngü türlerini inceleyiniz.

Sub dongu1()

 ' HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A" & Rows.Count).End(xlUp).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu2()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

satir = 1

For Each cell In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

satir = satir + 1

Next

End Sub

Sub dongu3()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

satir = 1

Do

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

satir = satir + 1

Loop Until Cells(satir, 1).Value = ""

End Sub

Sub Dongu4()

 ' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1", Range("A1").End(xlDown)).Rows.Count

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu5()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1048576").End(xlUp).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu6()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1").End(xlDown).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Excel VBA döngüler (loops)

Her satır arasına boş bir satır ekleyen kodlama için aşağıda yer alan döngü türlerini inceleyiniz.

Sub dongu1()

 ' HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A" & Rows.Count).End(xlUp).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu2()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

satir = 1

For Each cell In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

satir = satir + 1

Next

End Sub

Sub dongu3()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

satir = 1

Do

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

satir = satir + 1

Loop Until Cells(satir, 1).Value = ""

End Sub

Sub Dongu4()

 ' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1", Range("A1").End(xlDown)).Rows.Count

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu5()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1048576").End(xlUp).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu6()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1").End(xlDown).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub