VBA窗体做数据录入界面，多级联菜单，请问我的代码错在哪里？

wolf412

ComboBoxPay控件如何进行设置的，请老师指导的

daley

时间有限,请测试,有问题再请告知:

百岁新手

原帖由 daley 于 2009-3-20 02:11 发表
时间有限,请测试,有问题再请告知:

版主辛苦，害你熬夜了，感谢得很啦！

百岁新手

原帖由 百岁新手 于 2009-3-20 09:00 发表

版主辛苦，害你熬夜了，感谢得很啦！

为了答谢版主及各位论坛同好，特将我的这个收支流水账上传，供有兴趣者研究。
特别指出：
1、这个东东是我参照了论坛中众多贴子的代码，并得到Daley版主和“薄才多学”的直接指导并提供代码，才完成的。我所做的工作，只是提了需求，并做了点编辑。
2、这个东东只提供了录入界面，用户友好性还可以，但功能不复杂，没有查询统计等。毕竟，用EXCEL记账的并不多，搞那么复杂没有太大意义。
3、之所以说这个东东的用户友好性还可以，主要有以下几点：一是除摘要和员工姓名指定汉字输入外，其他控件都不限输入法，采用的是EXCEL工作簿开启的输入法；二是以单据号作为关键控制字段，不允许录入单据号重复的记录（会有提示）；三是TAB键跳转，顺序已设置好；四是版主供献的DTPicker，方便录入时间（不用担心日期格式不规范）；四是凡复合框除员工姓名外，其他都不允许输入，只能选择；五是“薄才多学”贡献的代码很好地解决了科目代码、部门代码随着科目名称和部门名称变化自动更新的需求；六是版主的代码很好的解决了修改和删除已有记录的需要。
多级的级联菜单还可以用列表框结合字典来实现，并且效率会高很多，但是我还没达到把字典用法整明白的水平，所以暂时没有用上。
高手见笑了！
再次感谢Daley版主和“薄才多学”

daley

增加查询功能也很简单,晚上抽空再补充.

薄才多学

个人觉得应该少用日历控件，程序开发应尽量通用，当你开发的东西拿到另一台机器上没法用时你就会觉得以前有好多时间都被浪费了。


这个问题的解决方法简单的得很,只要在系统内放个控件包就可以:

在这里:
http://club.excelhome.net/viewth ... p;extra=&page=1

[ 本帖最后由 daley 于 2009-3-21 02:53 编辑 ]

百岁新手

原帖由 daley 于 2009-3-20 13:19 发表
增加查询功能也很简单,晚上抽空再补充.

可否劳烦版主，做一个数据透视的代码，即在SHEET3中，做数据透视，但是数据来源的区域应能自动选取USEDREGION。多谢！

百岁新手

原帖由 薄才多学 于 2009-3-20 17:48 发表
个人觉得应该少用日历控件，程序开发应尽量通用，当你开发的东西拿到另一台机器上没法用时你就会觉得以前有好多时间都被浪费了。

有这个问题？那可真是有麻烦了…

18sut

记号一下，看高手怎么把它完善

daley

查询按钮:
Private Sub CommandButton6_Click()
    On Error Resume Next
   
    With Sheets("收支流水账")
   
    If .Range("C" & Rows.Count).End(xlUp).Row < 15 Then Exit Sub
   
    y = Application.InputBox("请输入要查询的单据号：", "提示")
   
    If y = "" Then Exit Sub
   
    ListBox1.Clear
   
    Application.ScreenUpdating = False
    Dim x As Range
    For Each x In .Range("C15:C" & .Range("C" & Rows.Count).End(xlUp).Row)
   
    If x.Value = y And y <> "" Then
    Me.Height = 470
    ListBox1.AddItem x.Offset(0, -2) & "    " & x.Offset(0, -1) & "    " & x.Offset(0, 1) & "    " & x.Offset(0, 2) & "    " & x.Offset(0, 3) & "    " & x.Offset(0, 4)
    End If
    Next
    Set x = Nothing
    Application.ScreenUpdating = True
    End With
End Sub