UC知道excel VBA隐藏语句问题求助！
来源：百度知道 编辑：UC知道 时间：2024/05/14 06:49:20
我想实现当值为1时隐藏bcd三列，值为0时不隐藏，这个语句没有任何反应，求助修改！！
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1).Value = "1" Then
Columns("B:D").EntireColumn.Hidden = True
Else
If Cells(1, 1).Value = "0" Then
Columns("B:D").EntireColumn.Hidden = False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1).Value = "1" Then
Columns("B:D").EntireColumn.Hidden = True
Else
If Cells(1, 1).Value = "0" Then
Columns("B:D").EntireColumn.Hidden = False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1).Value = "1" Then
Columns("B:D").EntireColumn.Hidden = True
End If
If Cells(1, 1).Value = "0" Then
Columns("B:D").EntireColumn.Hidden = False
End If
End Sub
把此代码 放到sheet表里面就可以了！
1、第四行和第五行程序应合并“ElseIf Cells(1, 1).Value = "0" Then ”
2、这个程序是说在A1单元格的值是1或是0，再进行隐藏操作；要想执行选择的 单元格是1或0，再执行相关的操作，把cells(1,1)换成target.cells(1,1)。