小小出入库管理系统(2012年12月又作了更新)

myfmwl

zjdh 发表于 2014-10-7 08:23
管理员密码：9999
其他人员密码：123

持续关注……，，厉害

aa0077321

学习学习学习

cesh1

谢谢大大的无私分享

wanglihua83@163

WPS能打开么？我怎么打不开呢

zjdh

可能不行，我没那环境无法测试。

excelneko

请问这是什么问题
某次进入库存物资明细账后
输入要查询的物资型号就弹出1004错误窗口

按调试就出现下面一堆代码

现在库存物资明细账这个功能完全用不了了
每次都是弹出1004窗口
求解决办法

Public Myr&, Arrsj
Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Sheets("数据库")
        .Unprotect 123
        .Range("A2:S" & .Range("A65536").End(3).Row).Sort Key1:=.Range("C2"), Order1:=xlAscending
        .Protect 123
    End With
    If Range("M65500").End(3).Row > 600 Then   '删除多余格式行
        ActiveSheet.Unprotect
        Rows("550:600").Delete
        ActiveSheet.Protect 123
    End If
    MX
    Application.ScreenUpdating = True
End Sub
Private Sub ListBOX1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ActiveCell = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
    Me.ListBox1.Clear
    Me.TextBox1 = ""
    Me.ListBox1.Visible = False
    Me.TextBox1.Visible = False
End Sub
Private Sub TextBOX1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim t%
    On Error Resume Next
    With TextBox1
        Select Case KeyCode
        Case 13    '回车
            .TopLeftCell = TextBox1.Value
            KeyCode = 0
        Case 40    '向下
            ListBox1.Activate
        Case 27    'Esc
            TextBox1.Visible = False
            ListBox1.Visible = False
            Selection.Select
        End Select
    End With
End Sub

zjdh

excelneko 发表于 2015-1-21 10:35
请问这是什么问题
某次进入库存物资明细账后
输入要查询的物资型号就弹出1004错误窗口

将文件发于我的邮箱看看：dh_dq@163.com

wangxk0807

楼主，6-4.5版本导入不成功，6-4.1版本可以，什么原因

wangxk0807

楼主，6-4.5版本导入备份数据不成功，6-4.1版本可以，什么原因

zjdh

wangxk0807 发表于 2015-1-26 17:17
楼主，6-4.5版本导入备份数据不成功，6-4.1版本可以，什么原因

有点小BUG
请下载6-4.6版