作者:乔山办公网日期:
返回目录:excel表格制作
用按钮的自方法较百好,代码如度下,详见附件知
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "隐藏列道" Then
Columns("G:AB").Hidden = True
CommandButton1.Caption = "显示列"
Else
Columns("G:AB").Hidden = False
CommandButton1.Caption = "隐藏列"
End If
End Sub
Private Sub A1_Click()
Dim i As Integer
For i = 1 To Sheets.Count
Select Case Sheets(i).Name
Case str1, str2
Case A1.Caption
If Left(A1.Caption, 1) = "A" Or Left(A1.Caption, 1) = "B" Or Left(A1.Caption, 1) = "C" Then
Sheets(str3).Visible = xlSheetVisible
Sheets(str4).Visible = xlSheetHidden
ElseIf Left(A1.Caption, 1) = "X" Or Left(A1.Caption, 1) = "Y" Or Left(A1.Caption, 1) = "Z" Then
Sheets(str3).Visible = xlSheetHidden
Sheets(str4).Visible = xlSheetVisible
End If
Sheets(i).Visible = xlSheetVisible
Sheets(i).Activate
Case Else
Sheets(i).Visible = xlSheetHidden
End Select
Next
End Sub
在宏里加代码zd就行了
Private Sub Workbook_Open()
Sheets("要现实Sheet的名").Activate
End Sub
例如专你想要名字是Sheet3的打属开时显示。
Private Sub Workbook_Open()
Sheets("Sheet3").Activate
End Sub
思路 变通一下,不通过按钮,通过下拉 选择是不是可以了?