İçindekiler
Word Belgesine Tablo Ekleme
Bu basit makro, Word belgenize bir tablo ekleyecektir:
Sub VerySimpleTableAdd() Dim oTable As Table Set oTable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=3) End Sub
Word'de Tablo Seç
Bu makro, etkin Word belgesindeki ilk tabloyu seçecektir:
Sub SelectTable() 'etkin belgede ilk tabloyu seçer If ActiveDocument.Tables.Count > 0 Sonra 'hataları önlemek için aktif belgede herhangi bir tablo olup olmadığını kontrol ederiz ActiveDocument.Tables(1). End If End Sub'ı seçin
Tablodaki Tüm Hücrelerde Döngü
Bu VBA makrosu, hücre sayısını hücreye yazarak bir tablodaki tüm hücreler arasında dolaşacaktır:
Sub TableCycling() ' Dim nCounter As Long Tablodaki tüm hücreler arasında döngü yap bu tüm tablo hücrelerine yazılacaktır , Tablo burada oluşturulacak Set oTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Paragraphs.Last.Range, NumRows:=3, NumColumns:=3) 'tablo oluşturun ve oTable'daki Her oRow için değişkene atayın. Satırlar ' dış döngü satırlardan geçer Her oCell In oRow.Cells 'iç döngü gider nCounter = nCounter + 1 'sayacını artırır oCell.Range.Text = nCounter 'hücreye sayaç yazar Sonraki oCell Sonraki oRow 'hücreden gelen sonucu görüntüler ikinci satırdaki ikinci sütun Dim strTemp As String strTemp = oTable.Cell(2, 2).Range.Text MsgBox strTemp End Sub
Excel Dosyasından Kelime Tablosu Oluşturun
Bu VBA örneği, bir Excel dosyasından bir tablo oluşturacaktır:
Sub MakeTablefromExcelFile() 'gelişmiş Dim oExcelApp, oExcelWorkbook, oExcelWorksheet, oExcelRange Dim nNumOfRows As Long Dim nNumOfCols Dim strFile As String Dim oTable As Tablo Satır Olarak Dim oTable row'word tablosu Dim oRow Cell Dim oCword tablo As Long, y As Long 'counter for loops strFile = "c:\Users\Nenad\Desktop\BookSample.xlsx" 'gerçek yola değiştir Set oExcelApp = CreateObject("Excel.Application") oExcelApp.Visible = True Set oExcelWorkbook = oExcelApp.Workbooks.Open(strFile) 'çalışma kitabını açın ve onu değişkene atayın Set oExcelWorksheet = oExcelWorkbook.Worksheets(1) 'ilk çalışma sayfasını değişkene atayın Set oExcelRange = oExcelWorksheet.Range("A1:C8") nNumOfRows.Rows.Rows.Rows. Count nNumOfCols = oExcelRange.Columns.Count ActiveDocument.Range.InsertParagraph 'Belge sonunda yeni bir paragraf oluşturduktan sonra, Tablo burada oluşturulacak Set oTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Paragraphs. =nNumOfRows, NumColumns:=nNumOfCols) 'oluşturma e table ve onu '*** gerçek anlaşma değişkenine atayın, tablo burada doldurulur x = 1 için nNumOfRows için y = 1 için nNumOfCols için oTable.Cell(x, y).Range.Text = oExcelRange.Cells(x, y) .Value Sonraki y Sonraki x '*** oExcelWorkbook.Close False oExcelApp.Quit oTable.Rows(1).Range ile artık tablomuza biraz güzellik uygulayabiliriz :) .Shading.Texture = wdTextureNone .Shading.ForegroundPatternColor = wdColorAutomatic .Shading.BackgroundPatternColor = End Sub ile wdColorYellow End
