TableStyle的VBA

Question

我试图将默认表格样式更改为TableStyleLight9但我的代码却不接受它。你能告诉我如何这样做吗？这就是我设置表格的方式....你也知道为什么这个方法将我的下拉菜单放在表格的范围之外吗？

感谢-你。

CONSTRAINT "PK_ADDR_UNIQ_RANGE_CHECK" 
    PRIMARY KEY ("RANGE_ID")
       USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS 
       STORAGE(INITIAL 65536 NEXT 65536 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT)TABLESPACE "INDX"  ENABLE
     CONSTRAINT "FK_ADDR_UNIQ_RANGE_CHECK" FOREIGN KEY ("RANGE_ID")
  REFERENCES "MCSDBSCHEMA"."BASE_SYSTEM_FEATURE_XLA" ("BASE_SYSTEM_FEATURE_XLA_ID") ENABLE) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 262144 NEXT 262144 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "MCP_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

表格标题中的下拉列表占用了他们需要的空间。如果表格小于下拉列表，它将延伸到表格之外。