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

whkc2002

老师，您好，怎样把预收入库和发票入库区别开来

补充内容 (2016-4-30 15:22):
能否用颜色把它区别出来

补充内容 (2016-4-30 15:22):
能否用颜色把它区别出来

hu-filix

下载了，想用，可是打开提示错误。。。。可惜了啊

zjdh

hu-filix 发表于 2016-4-10 13:08
下载了，想用，可是打开提示错误。。。。可惜了啊

到一楼找答案

ygd528787

楼主，你好
能否告知工作表保护密码，我需要调整行距，还有修改单元格式中的数值小数位
我下载的是出入库系统6-4.6版本

zjdh

工作表保护密码:123
宏里有

ygd528787

谢谢，找到了

ygd528787

楼主，你好，又是我，现在我用的是6-4.6版的，六行出入库确实太少了
刚刚下载了a出入库系统6-3(文本编码)20行  版本的，出现了图片附件中的错误，怎么修改
Private Sub CommandButton1_Click()
    Dim soundName As String
    If ComboBox1.Text = "" Or TextBox1.Text = "" Then
        If ComboBox1 = "" Then
            MsgBox "用户名不能为空!", 48, "〖出入库系统〗-提示"
            ComboBox1.SetFocus
            Exit Sub
        ElseIf TextBox1 = "" Then
            MsgBox "密码不能为空!", 48, "〖出入库系统〗-提示"
            TextBox1.SetFocus
            Exit Sub
        End If
    Else
        ARR = Sheets("基础信息表").Range("U2:V" & Sheets("基础信息表").Range("M65536").End(3).Row)
        For I = 1 To UBound(ARR)
            If ARR(I, 1) = ComboBox1 And ARR(I, 2) = TextBox1.Text Then
                MsgBox ComboBox1.Text & "您好!欢迎您使用本系统!", 64, "〖出入库系统〗-欢迎词"
                Application.Visible = True
                Unload Me
                Exit Sub
            End If
        Next
   End If
        MsgBox "登录密码错误,请重新输入!", 48, "〖出入库系统〗-提示"
        TextBox1.Text = ""
        TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
    Dim soundName As String
    If MsgBox("确定要退出出入库系统吗?", 32 + vbYesNo, "〖出入库系统〗-提示") = vbYes Then
        ThisWorkbook.Close False
        Exit Sub
    End If
End Sub
Private Sub UserForm_Initialize()
    Label1.Caption = Sheets("基础信息表").Range("S2") & "库管系统"
    ARR = Sheets("基础信息表").Range("U2:V" & Sheets("基础信息表").Range("M65536").End(3).Row)

sclxjj

zjdh 发表于 2016-4-9 09:22
这需要重新设计各表格式及相关宏，牵一发动全身，工作量很大！

应该只是减少功能，毕竟你是原著，相信你能做出来。
我们公司现在需要一个统计材料的表格，我觉得你这个蛮适合的，但是牵涉到金额的都不需要。

xiao1202xiao

你好，你的小小出入库管理系统，在出库单里面，能不能加入导入出库数据，就是出库数据是按照一定格式写好，只要导入就可以填写完出库表的，这样的功能能实现吗，谢谢你

zjdh

ygd528787 发表于 2016-4-11 13:47
楼主，你好，又是我，现在我用的是6-4.6版的，六行出入库确实太少了
刚刚下载了a出入库系统6-3(文本编码)2 ...

控件问题，到1楼找答案。