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

zjdh

修改一下宏，直接输入公式即可。
北京加工厂成品出入库存查询系统.rar (454.49 KB, 下载次数: 44)

2013-7-28 08:07 上传

点击文件名下载附件

ZeroBoll

zjdh 发表于 2013-7-28 08:07
修改一下宏，直接输入公式即可。

楼主，第二行以下的公式不知道那里出了问题，得不出面积，麻烦你帮我把库存表也改下吧，那里面的完整查询什么的都乱了，谢谢！！

zjdh

ZeroBoll 发表于 2013-7-28 16:47
楼主，第二行以下的公式不知道那里出了问题，得不出面积，麻烦你帮我把库存表也改下吧，那里面的完整查询 ...

绝对是乱了，而且几乎是都乱了！
我以为你有能力自己修改的，修改工作量很大，我暂时没空修改。

hxangel1314

版主，这个选择框怎么弄的大一点啊，输入数字后就变的很小了，无法选择。

zjdh

hxangel1314 发表于 2013-7-29 15:37
版主，这个选择框怎么弄的大一点啊，输入数字后就变的很小了，无法选择。

一定又是你改了宏！！
在“单据录入”的宏里
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   ......
        If Target.Column = 3 And Target.Row > 5 Then
            With Sheets("基础信息表")
                Myr = .[B65536].End(xlUp).Row
                Arrsj = .Range("A2:D" & Myr)
            End With
            TextBox1.Activate
            TextBox1 = ""
            With Me.TextBox1
                .Visible = True
                .Top = Target.Top
                .Left = Target.Left
                .Width = Target.Width
                .Height = Target.Height
            End With
            With Me.ListBox1
                .Visible = True
                .Top = Target.Top
                .Left = Target.Left + Target.Width
                .Width = Target.Width * 5
                .Height = Target.Height * 4
            End With
      ........
End Sub

hxangel1314

zjdh 发表于 2013-7-29 16:29
一定又是你改了宏！！
在“单据录入”的宏里
Private Sub Worksheet_SelectionChange(ByVal Target As  ...

哥，这个代码没有错，宏里面没有动哦。
我的意思是，输入后会越变越小，输错的话按删除键退回去，就变的更小，再输入就没办法看见了，就跟图片一样。

ZeroBoll

zjdh 发表于 2013-7-29 07:50
绝对是乱了，而且几乎是都乱了！
我以为你有能力自己修改的，修改工作量很大，我暂时没空修改。

有时间帮我弄弄，谢谢

zjdh

hxangel1314 发表于 2013-7-29 17:09
哥，这个代码没有错，宏里面没有动哦。
我的意思是，输入后会越变越小，输错的话按删除键退回去，就变的 ...

你怎么输的，我这正常啊！

hxangel1314

zjdh 发表于 2013-7-29 21:41
你怎么输的，我这正常啊！

版主，发现原因，在单据录入这一页，如果把页面缩小的话就会出现这种问题了，（80%.90%），如果是100%的页面就不会。

hxangel1314

版主，我用“Application.Dialogs(xlDialogPrinterSetup).Show”，如何实现点击“确定”后直接打印，点击“取消”则不打印，麻烦帮我写个VBA代码，谢谢！