範囲を自動的に選択する以下のコードがあります。選択した範囲にテーブルを作成するコードを追加する方法を誰かが知っていますか?
ありがとう!
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
次のExcel VBAコードスニペットを使用して、選択したTable
に対応するRange
オブジェクトを追加します。
Dim objTable As ListObject
Set objTable = ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes)
以下に示すように、追加したTable
オブジェクトにオプションのスタイルを適用することもできます。
objTable.TableStyle = "TableStyleMedium2"
MSDNで入手可能な詳細: https://msdn.Microsoft.com/en-us/library/office/ff823155.aspx
これがお役に立てば幸いです。