以同一EXCEL工作簿作为输入界面及数据库，实现录入、模糊查询、修改等功能（已完成）

hbcoltd

辛苦cm6705了，你人真好，有二个小问题需完善一下，谢谢！
1、 EXCEL表格的菜单与工具条都隐存了，打好新工作表也没了。
2、“下一条”按钮的功能是：按姓名模糊查询后，如有二条查询结果，则按“下一条”按钮显示第二条、第三条显示效果。按“姓名”+“汽车牌照号码”则只有一条查询结果，否则以前输的数据有误。
再一次感谢！

cm6705

原帖由 hbcoltd 于 2009-11-5 11:34 发表
辛苦cm6705了，你人真好，有二个小问题需完善一下，谢谢！
1、 EXCEL表格的菜单与工具条都隐存了，打好新工作表也没了。
2、“下一条”按钮的功能是：按姓名模糊查询后，如有二条查询结果，则按“下一条”按钮显示 ...

EXCEL表格的菜单与工具条都隐存了.可能是你的版本问题。试试：
    点击菜单"工具"-----"选项",在弹出的"选项"对话框中"窗口选项"内容中勾选你需要的内容,如:项号列表.水平滚动条等,完成后单击"确定"
上一条与下一条的功能是按顺序翻阅每个审请人的信息,并不是模糊查询.要达到楼主的模糊查询的功能,在现有的窗体中是不能同时显示几个审请人的详细信息.用ListView控件能达到楼主的要求，但是要对原窗体及代码大量改动。

hbcoltd

谢谢cm6705！
我用的是EXCEL2003，关键是怎么菜单也丢失了，打开其他工作表也没菜单。
请帮我实现上述功能吧，过一两天也行，谢谢啦。

hbcoltd

我已经调出菜单栏了，谢谢！请帮我实现一条与下一条的功能是按顺序翻阅每个审请人的信息，过一两天也行，谢谢啦

cm6705

原帖由 hbcoltd 于 2009-11-5 13:13 发表
谢谢cm6705！
我用的是EXCEL2003，关键是怎么菜单也丢失了，打开其他工作表也没菜单。
请帮我实现上述功能吧，过一两天也行，谢谢啦。

那你大概在论坛上下载了什么文件，把菜单给屏蔽了。试一下下面的代码：
进入VBE编辑器，插入模块。把下面代码HuiFu放入模块中.
Sub HuiFu()'恢复模块
   ActiveWindow.DisplayWorkbookTabs = True '恢复工作表标签
   ActiveWorkbook.Protect , , False '恢复工作表左上角图标和右上角最小化/最大化/关闭按钮
      With Application
         .CommandBars.DisableAskAQuestionDropdown = False '恢复帮助
         .CommandBars("Standard").Visible = True '恢复常用工具栏
         .CommandBars("Formatting").Visible = True '恢复格式工具栏
         .CommandBars("Stop Recording").Visible = True '恢复常用工具栏
         .CommandBars("ply").Enabled = True '恢复工作表标签右键
         .CommandBars("cell").Enabled = True '恢复工作表右键
         .DisplayFormulaBar = True '恢复编辑栏
         .DisplayStatusBar = True
         .Caption = ""   '恢复标题栏
      With .CommandBars(1)
         .Controls("文件(&F)").Visible = True '恢复工作表菜单
         .Controls("编辑(&E)").Visible = True
         .Controls("视图(&V)").Visible = True
         .Controls("插入(&I)").Visible = True
         .Controls("格式(&O)").Visible = True
         .Controls("工具(&T)").Visible = True
         .Controls("数据(&D)").Visible = True
         .Controls("窗口(&W)").Visible = True
         .Controls("帮助(&H)").Visible = True
      End With
   End With
End Sub
在VBE编辑器中"视图"---"工程资源管理器"中双击ThisWorkbook,将下面的代码放入弹出的代码窗口
Private Sub Workbook_Activate() '工作簿激活时
    Application.ScreenUpdating = False
    Call HuiFu '运行恢复模块
    Application.ScreenUpdating = True
End Sub
实在不行你将附件上传

cm6705

另外说明一下，完成保存工作薄再关闭。然后打开。

cm6705

原帖由 hbcoltd 于 2009-11-5 13:23 发表
我已经调出菜单栏了，谢谢！请帮我实现一条与下一条的功能是按顺序翻阅每个审请人的信息，过一两天也行，谢谢啦

你所说的不是有了吗？上一条和下一条就是按顺序查阅在库的所有审请人的详细信息啊。你能不能把你的要求说的详细一点。

hbcoltd

下一条是按“姓名”模糊查询的结果。如有同一人贷了两辆车，那就有二条查询结果信息（只有姓名+汽车牌照号码是为唯一的，只显示一条信息，无下一条），则下一条就是显示另一辆车的相关信息；还有同名同姓的（身份证号码不同），按“姓名”查询也可能查询出有2条及以上信息，则按下一条按钮就是显示这个姓名的下一条信息，而不是按1、2、3、4等顺序号显示。谢谢！

hbcoltd

请帮助实现上述功能，谢谢！

gfp12345678

关注，谢谢！