VBAを使用してExcelワークシートでテーブルを作成

Question

範囲を自動的に選択するこのコードは以下のとおりです。 選択した範囲にテーブルを作成するコードを追加する方法を知っている人はいますか？

ありがとうございます！以下に示すようにあなたはまた、追加Table対象に、オプションのスタイルを適用することができます

Dim objTable As ListObject 
Set objTable = ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes) 

：

Sub DynamicRange() 
'Best used when first column has value on last row and first row has a value in the last column 

Dim sht As Worksheet 
Dim LastRow As Long 
Dim LastColumn As Long 
Dim StartCell As Range 

Set sht = Worksheets("Sheet1") 
Set StartCell = Range("D9") 

'Find Last Row and Column 
    LastRow = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row 
    LastColumn = sht.Cells(StartCell.Row, sht.Columns.Count).End(xlToLeft).Column 

'Select Range 
    sht.Range(StartCell, sht.Cells(LastRow, LastColumn)).Select 

End Sub 

Answer 1

は、選択したRangeに対応するTableオブジェクトを追加するには、以下のエクセルVBAのコードスニペットを使用し

objTable.TableStyle = "TableStyleMedium2" 

MSDNで入手可能なその他の詳細：https://msdn.microsoft.com/en-us/library/office/ff823155.aspx

これが役に立ちます。