作者:乔山办公网日期:
返回目录:excel表格制作
在该表写下面程序实百现:
Private Sub Worksheet_Activate()
Sheet2.Visible = xlSheetHidden
Sheet3.Visible = xlSheetHidden
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Target <> "" Then
bm = Target.Value
Sheets(bm).Visible = -1
Sheets(bm).Select
End If
End If
End Sub
1、在度Sheet1的表,A列有表的名称回:Sheet2、Sheet3(这两表目前为隐藏)
2、在Sheet1有上面的程序后,点选A1单元,就答打开了对应名称的表格:
3、选回Sheet1,又自动隐藏Sheet2:
选择需要把超出格子的部分隐藏起来列的列标,点击菜单栏格式-单元格-文本对齐方式选靠左(缩进),文本控制选下的三个选项都不选,按确定。这样超出格子的部分隐藏起来了。
可以 用 VBA Selecte change 事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("B7:G10"))
If Not (isect Is Nothing) Then [g5] = Target
End Sub
只能隐藏整行或整zhidao列,方法如下:
鼠标选取点到最左边或最上边的行号或列号上;
点右键,选择隐藏;
取消内隐藏:
先左键选择想取消隐藏的附近的两行或两列;
点右键,选择取消隐。
某个单元格隐藏,试试这个笨方法:
字体颜色设置为和背景底色一致,想容看的时候,全选,反色显示就出来了。