TableStyleのVBA

Question

デフォルトのテーブルスタイルをTableStyleLight9に変更しようとしましたが、私のコードはそれを受け入れません。どうすればいいのか教えていただけますか？これは私がテーブルを上に置く方法です....また、このメソッドがテーブルの範囲外にドロップダウンメニューを配置する理由を知っていますか？

ありがとうございました。

FinalRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column 

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(FinalRow, LastColumn)), , xlYes).Name = "Data" 

Answer 1

マクロレコーダは故障していますか？物をコード化する方法を見つけるための素晴らしい情報源です。これは私のために働きます：

Sub test() 
FinalRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column 

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(FinalRow, LastColumn)), , xlYes).Name = "Data" 
ActiveSheet.ListObjects("Data").TableStyle = "TableStyleLight9" 

End Sub 

テーブルヘッダーからのドロップダウンは、必要なだけ多くのスペースをとります。表がドロップダウンよりも小さい場合は、表の外側に広がります。