如何引用按钮名称以便 VBA 知道要隐藏哪些列答案

【问题标题】：How to reference a button name so VBA knows which columns to hide如何引用按钮名称以便 VBA 知道要隐藏哪些列
【发布时间】：2016-05-23 21:46:23
【问题描述】：

我有一个包含 100 列的工作表，我想根据单击的按钮（表单控件）仅显示某些列。

按钮名称和相应列的矩阵应显示在单独的表格上。

我想我需要识别被点击的按钮，使用按钮名称在参考表上找到相应的单元格，然后通过循环遍历应该隐藏的每一列来隐藏列。

例如，如果单击名为“差异”的按钮，那么我想引用差异行并显示第 1、2、3、4、5、6、16 列

![显示要隐藏的按钮名称和列的矩阵]https://drive.google.com/open?id=0B-gDxLsmXP_IWmVHZVlCa005a0U

我可以为每个按钮静态编码，但我希望能够添加按钮而无需更改 VBA 代码。任何帮助，将不胜感激。谢谢！

山姆

【问题讨论】：

查找或应用程序。匹配按钮的名称，然后使用索引号遍历隐藏另一张表上的列的列。
对点击的按钮执行case 声明？
如果按钮在工作表上，那么Application.Caller 将给出被点击按钮的名称：您可以将所有按钮的OnAction 属性设置为指向同一个Sub。

标签： excel vba

【解决方案1】：

下图显示了我的 Excel 工作表的设置。

正如 Tim Williams 所建议的，两个按钮都调用 Handler。

Sub Handler()

Dim row, column As Integer
Dim button As String

    button = Application.Caller
    For i = 2 To 3
        If Cells(i, 6).Value = button Then
            row = i
        End If
    Next
    For j = 7 To 8
        column = Cells(row, j).Value
        columns(column).EntireColumn.Hidden = True
    Next

End Sub

【讨论】：

你复制了我的设置吗？另外，我相信 VBA 是区分大小写的，所以它应该是 'button = Application.Caller'
复制了您的工作表和代码，我现在在“column = Cells(row, j).Value”行出现运行时 1004 应用程序定义或对象定义错误
row 和 j 的值是多少？
啊啊复制错误，它正在查看错误的列。我应该去买点咖啡...谢谢！
不用担心。如果我已经解决了您的问题，请将我的解决方案标记为答案。