在Excel Online中切换按钮

时间:2016-10-28 11:48:13

标签: excel vba

除了在线Excel中的按钮,我可以使用什么?这是不允许的:

  

我们无法在浏览器中显示这些功能:

     

•表单工具栏控件,工具箱控件和ActiveX等对象   控件但是您可以通过打开来查看此工作簿中的所有内容   Excel中的文件。

我只想给最终用户提供隐藏/显示多组列的解决方案。

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "L:P"
If ToggleButton1.Value Then
    Application.ActiveSheet.Columns(xAddress).Hidden = True
Else
    Application.ActiveSheet.Columns(xAddress).Hidden = False
End If
End Sub

1 个答案:

答案 0 :(得分:1)

您可以使用CheckBox。

If CheckBox1.Value = True Then 
    Application.ActiveSheet.Columns(xAddress).Hidden = True
Else
    Application.ActiveSheet.Columns(xAddress).Hidden = False
End If