excel - 使用与隐藏命令相同的按钮取消隐藏隐藏列

Question

我在命令按钮上有此代码。一旦列被隐藏，我想通过单击相同的按钮来取消隐藏它

Private Sub CommandButton16_Click()
    For i = 22 To 145
    
    If Worksheets("Material Masterlist").Cells(3, i).Value = "Quantity" Then
    Worksheets("Material Masterlist").Columns(i).Hidden = True
    CommandButton16.Caption = "Unhide Quantity"
        CommandButton15.Font.Size = 7
    End If
    Next
End Sub

标签： excelvba

Answer 1

代替：

Worksheets("Material Masterlist").Columns(i).Hidden = True

和：

Worksheets("Material Masterlist").Columns(i).Hidden = (Not Worksheets("Material Masterlist").Columns(i).Hidden)