在使用VBA跟踪部分列的Excel模板中创buildvariables

无论何时我想向模板添加新列，都需要更改一些值，以保持“button”alignment。

Property Get slp_hide_col() As String slp_hide_col = "L:T" End Property *Seperate from the above code* Private Sub SLP_Config_Click() With Columns(slp_hide_col) .Select .EntireColumn.Hidden = Not .EntireColumn.Hidden End With End Sub 

我想要将slp_hide_col移动每个列添加的值。 任何事情都会有所帮助

Answer 1

您可以为L:T创build命名范围。 添加新列后，命名范围转移。

那么你可以使用它如下：

 Property Get slp_hide_col() As String slp_hide_col = "myNamedRange" End Property 

然后将Columns(slp_hide_col)更改为Range(slp_hide_col) ：

 Public Sub SLP_Config_Click() With Range(slp_hide_col) .Select .EntireColumn.Hidden = Not .EntireColumn.Hidden End With End Sub