求助各位高手

23114865

如何制作一个工作簿，第一页就向是一个目录一样，比如说有张三档案，李四档案等，点一个人的名字会出现一页，点下一个人的名字上一个工作簿自动关闭，并转到下一个去？急求详解。就像是我发的附件一样。 9ni1asu5.rar (150.12 KB, 下载次数: 9)

2012-6-14 10:54 上传

点击文件名下载附件

840205910

你不是已经做好了吗？你的目的是什么？

翻墙并不难

自己的水平还没有进门呢。

840205910

《界面》工作表中
Private Sub worksheet_activate()
       Sheets("管理规费").Visible = xlVeryHidden
       Sheets("月汇总").Visible = xlVeryHidden
       Sheets("年汇总").Visible = xlVeryHidden
       Sheets("系统设置").Visible = xlVeryHidden
       Sheets("维修记录").Visible = xlVeryHidden
       Sheets("加油登记").Visible = xlVeryHidden
       Sheets("司机信息").Visible = xlVeryHidden
       Sheets("换胎记录").Visible = xlVeryHidden
       Sheets("派车纪录").Visible = xlVeryHidden
       Sheets("保险登记").Visible = xlVeryHidden
       Sheets("信息查询").Visible = xlVeryHidden
       Sheets("资产信息").Visible = xlVeryHidden
       Sheets("车辆照片").Visible = xlVeryHidden
       Sheets("公里数").Visible = xlVeryHidden
       Sheets("路桥费").Visible = xlVeryHidden
       Sheets("机动证").Visible = xlVeryHidden
End Sub
以下各宏对应16个复合控件
Sub 宏1()
              Sheets("月汇总").Visible = True
       Sheets("月汇总").Select
   
End Sub
   
Sub 宏2()
              Sheets("年汇总").Visible = True
       Sheets("年汇总").Select
End Sub


Sub 宏3()
              Sheets("系统设置").Visible = True
       Sheets("系统设置").Select
End Sub
Sub 宏4()
              Sheets("维修记录").Visible = True
       Sheets("维修记录").Select
End Sub

Sub 宏5()
             Sheets("加油登记").Visible = True
       Sheets("加油登记").Select
End Sub
Sub 宏6()
              Sheets("司机信息").Visible = True
       Sheets("司机信息").Select
End Sub
Sub 宏7()
              Sheets("换胎记录").Visible = True
       Sheets("换胎记录").Select
End Sub
Sub 宏8()
             Sheets("派车纪录").Visible = True
       Sheets("派车纪录").Select
End Sub
Sub 宏9()
              Sheets("保险登记").Visible = True
       Sheets("保险登记").Select
End Sub
Sub 宏10()
              Sheets("信息查询").Visible = True
       Sheets("信息查询").Select
End Sub
Sub 宏11()
            Sheets("资产信息").Visible = True
       Sheets("资产信息").Select
End Sub
Sub 宏12()
             Sheets("车辆照片").Visible = True
       Sheets("车辆照片").Select
End Sub
Sub 宏13()
             Sheets("机动证").Visible = True
       Sheets("机动证").Select
End Sub

Sub 宏14()
              Sheets("公里数").Visible = True
       Sheets("公里数").Select
End Sub

Sub 宏15()
             Sheets("路桥费").Visible = True
       Sheets("路桥费").Select
End Sub

Sub 宏16()
             Sheets("管理规费").Visible = True
       Sheets("管理规费").Select
End Sub

nfhfn

谢谢楼主，楼主太好人了












激情火爆不黄不暴力www.22gew.com

wondaol

K列减J列 乘以N列的公式代码如何做？