急的尿裤子了，求高人看看这个程序哪里出错了啊

  • 百
    百事可哭
    复制内容到剪贴板
    代码:
    Dim i
    Private Sub CommandButton1_Click()
    i = i + 1
    If i / 2 = Int(i / 2) Then
    Columns("E:E,G:G,I:I").Select
    Selection.EntireColumn.Hidden = True
    Else
    Columns("E:E,G:G,I:I").Select
    Selection.EntireColumn.Hidden = False
    End If
    If i / 2 = Int(i / 2) Then
    Columns("D:D,F:F,H:H").Select
    Selection.EntireColumn.Hidden = False
    Else
    Columns("D:D,F:F,H:H").Select
    Selection.EntireColumn.Hidden = True
    End If
    End Sub

    Private Sub CommandButton2_Click()
    Range("D:D,F:F,H:H,E:E,G:G,I:I").Select
    Selection.EntireColumn.Hidden = False
    End Sub
    怎么按钮1按下老是出错啊，我想按下按钮隐藏三个列

    [本帖最后由 百事可哭 于 2015-1-13 14:46 编辑]
  • 百
    百事可哭
    我晕，怎么成笑脸了
  • J
    Jobs
    复制内容到剪贴板
    代码:
    插代码用[code]

    [本帖最后由 Jobs 于 2015-1-13 14:42 编辑]
  • 3
    323246982
    虽然看不懂，但觉着表情插在里面好可爱
  • j
    jxdq
    复制内容到剪贴板
    代码:
    Dim i
    Private Sub CommandButton1_Click()
    i = i + 1
    If i / 2 = Int(i / 2) Then
    Range("E:E,G:G,I:I").Select
    Selection.EntireColumn.Hidden = True
    Else
    Range("E:E,G:G,I:I").Select
    Selection.EntireColumn.Hidden = False
    End If
    If i / 2 = Int(i / 2) Then
    Range("D:D,F:F,H:H").Select
    Selection.EntireColumn.Hidden = False
    Else
    Range("D:D,F:F,H:H").Select
    Selection.EntireColumn.Hidden = True
    End If
    End Sub

    Private Sub CommandButton2_Click()
    Range("D:D,F:F,H:H,E:E,G:G,I:I").Select
    Selection.EntireColumn.Hidden = False
    End Sub
  • 百
    百事可哭
    好了，但是用&还是不对，我想隐藏多个列怎么做啊
  • j
    jxdq
    上面给你答案了，多用录制宏。
  • 百
    百事可哭
    感激不尽！
  • c
    cf3b5
    看着为了切换而设计的i/2的效果就喷了，你取余不就行了吗！