Question

通过excelVBA代码隐藏满足条件的列

工资表1-31日，在 C1 输入日期，假如是8，则D列~J列自动隐藏（1~7日的工资列），以此类推 。大神帮我写个2~31日的vba代码，如果没有循环的话写一天的就行，我往里面慢慢加就好。

Answer 1

右击工作表标签（比如Sheet1）——查看代码，

复制粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim VC1 As Integer
    If Target.Address <> Range("C1").Address Then Exit Sub
    VC1 = Range("C1").Value
    If VC1 < 2 Or VC1 > 31 Then Exit Sub
    Columns("D:AH").Hidden = False
    Range(Range("D1"), Range("D1").Offset(, VC1 - 2)).EntireColumn.Hidden = True
End Sub

示例：

【注：输入数据 <2 或>31  不进行处理】

追问

大神，这个公式多谢了，我想再加点，输入0，或者直接删除C1，空值显示所有隐藏列

追答

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim VC1 As Integer
    If Target.Address <> Range("C1").Address Then Exit Sub
    VC1 = Range("C1").Value
    If VC1 < 2 Or VC1 > 31 Then 
        if VC1=0 then Columns("D:AH").Hidden = False
        Exit Sub
     End if
    Columns("D:AH").Hidden = False
    Range(Range("D1"), Range("D1").Offset(, VC1 - 2)).EntireColumn.Hidden = True
End Sub

Answer 2

进入到VBA编辑器，工程资源管理器中双击工作表的名称，在右侧的VBA代码上主有两个下拉框，左边一个选中worksheet,右边一个选中change，在代码行输入以下代码。
Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(3, 2).Value = 0 Then 'B3=0
Columns(2).EntireColumn.Hidden = True
End If

If Cells(3, 5).Value = 0 Then 'E3=0
Columns(5).EntireColumn.Hidden = True
End If

If Cells(3, 6).Value = 0 Then 'F3=0
Columns(6).EntireColumn.Hidden = True
End If

If Cells(3, 7).Value = 0 Then 'G3=0
Columns(7).EntireColumn.Hidden = True
End If

If Cells(3, 2).Value = 1 Then 'B3=1
Columns(2).EntireColumn.Hidden = False
End If

If Cells(3, 5).Value = 1 Then 'E3=1
Columns(5).EntireColumn.Hidden = False
End If

End Sub