如何使用 vba 用户表单使切换功能适用于列？

Question

您将如何分别处理 hiding/unhiding 列？从 C 列到 M 列。这是我使用切换按钮隐藏/取消隐藏设置行的内容。

Private Sub togbHAZOP_Click()
If togbHAZOP.Value = True Then
    Sheets("Updated Hours EST").Rows("5:26").EntireRow.Hidden = True
Else
    Sheets("Updated Hours EST").Rows("5:26").EntireRow.Hidden = False
End If

结束子

Answer 1

对于每个切换（togC、togB、... togM），它看起来像这样

Private Sub togC_Click()
    Sheets("Updated Hours EST").Columns("C").Hidden = togC.Value
End If

...

Private Sub togD_Click()
    Sheets("Updated Hours EST").Columns("D").Hidden = togD.Value
End If

...

等等

Answer 2

您有一个 Boolean 属性被分配给涉及 Boolean 属性的条件表达式的相反分支中的相反布尔值。换句话说：

If {bool} Then
    foo = True
Else
    foo = False
End If

不需要条件。

Sheets("Updated Hours EST").Rows("5:26").Hidden = togbHAZOP.Value

要切换列可见性，请使用 .Columns 而不是 .Rows，以及表示列而不是行的范围地址。

Sheets("Updated Hours EST").Columns("C:M").Hidden = togbHAZOP.Value

如果你想要它们"separate"，那么将它们分开..

Sheets("Updated Hours EST").Columns("C:C").Hidden = toggleForColumnC.Value
Sheets("Updated Hours EST").Columns("D:D").Hidden = toggleForColumnD.Value
Sheets("Updated Hours EST").Columns("E:E").Hidden = toggleForColumnE.Value
...

如何使用 vba 用户表单使切换功能适用于列？

How to use vba userform to make a toggle feature work for column?

excel

vba

userform

togglebutton