0
Sub ShowHideTable()
    Dim table As ListObject
    Dim tblTrngl As Shape
    Dim tblName As String

Call Shape_Clicked(tblTrngl)
Let tblName = tblTrngl.Name
tblName = Replace(tblName, "Trngl", "")
Let table.Name = tblName

我已经对其进行了调试,这tblName正是我想要的,但是当我尝试设置的名称时,listobject我得到了一个错误。无论我如何设置,最后一行都会出错。我究竟做错了什么?

4

1 回答 1

0

Set table = ThisWorkbook.ActiveSheet.ListObjects(tblName)

于 2015-11-03T20:58:09.317 回答