定义的列名称不适用于简单的宏以隐藏列

Question

我命名了一列：DailyReserveCol

创建简单的隐藏/显示列按钮

Sheets("Calculator").Columns.DailyReserveCol.Hidden = Not Column.DailyReserveCol.Hidden

但是我收到以下错误：

  

运行时错误424对象必需

这有效：

Sheets("Calculator").Columns("C").Hidden = Not Columns("C").Hidden

我试过了：

Columns(DailyReserveCol).Hidden
Columns("DailyReserveCol").Hidden    

  

错误13类型不匹配

我做错了还是不可能？

Answer 1

您可以使用以下方法切换命名列的可见性：

Sheets("Calculator").Range("DailyReserveCol").EntireColumn.Hidden = _
       Not Sheets("Calculator").Range("DailyReserveCol").EntireColumn.Hidden