Excel VBA-如何取消隐藏列？ 更新：所以我发现了问题。当用户选择工作表上的链接时，宏将运行。我已经设置了到unhide rows宏的链接。

我在使用VBA取消隐藏列时遇到问题。我一直在使用此链接作为基础，试图解决我的问题，但它对我不起作用

这是我现在的代码：

Public Sub a_view_calc_columns()
     Dim calc as Worksheet
     Dim rng as Range

     Set calc = ThisWorkbook.Sheets("Calc")
     Set rng = calc.Range("A:T")

     rng.EntireColumn.Hidden = False

我也试过：

rng.Column.EntireColumn.Hidden = False

及

我正在使用Excel 2016

---

我应该注意到A:T列中会有数据，我正在手动隐藏G&H列以测试代码。

这里是一个简单的示例

Option Explicit

Sub test()
    With ActiveSheet
        If .Columns("G:H").EntireColumn.Hidden Then
            MsgBox "Hidden"
            .Columns("G:H").EntireColumn.Hidden = False
        Else
           MsgBox "Those columns aren't hidden"
        End If
    End With
End Sub

---

下面是一个简单的例子

Option Explicit

Sub test()
    With ActiveSheet
        If .Columns("G:H").EntireColumn.Hidden Then
            MsgBox "Hidden"
            .Columns("G:H").EntireColumn.Hidden = False
        Else
           MsgBox "Those columns aren't hidden"
        End If
    End With
End Sub

---

您试图实现什么以及上面的代码发生了什么？以下是我试图用VBA取消隐藏列的一些信息。我正在运行的任何代码都不会发生任何变化。我在代码末尾弹出一个消息框，上面写着“Successful”。这是我运行它时唯一发生的事情。你想取消隐藏哪些列？它们是隐藏的吗？上面代码中的消息框在哪里？请尝试

rng.ColumnWidth=8

您试图实现什么以及上面的代码发生了什么？下面是我试图用VBA取消隐藏这些列的一些信息。我正在运行的任何代码都不会发生任何变化。我在代码末尾弹出一个消息框，上面写着“Successful”。这是我运行它时唯一发生的事情。你想取消隐藏哪些列？它们是隐藏的吗？上面代码中的消息框在哪里？请尝试

rng.ColumnWidth=8

Ok，这样我就发现了问题。宏由用户选择工作表上的链接运行。我已经设置了到unhide rows宏的链接。感谢您的帮助，因为您的测试实际上让我意识到了这一点。很高兴能够提供帮助：-）好的，所以我找到了问题。宏由用户选择工作表上的链接运行。我已经设置了到unhide rows宏的链接。感谢您的帮助，因为您的测试实际上让我意识到了这一点。很高兴能够提供帮助：-）