如何制作这样的窗体出库单？真诚求助！

zengsijun · 发表于 2022-11-4 10:51

02761752696 发表于 2022-11-4 10:43
你一楼的图片哪来的啊，感觉在那个基础上改改就行了，重写的话还是有点工作量的

那个是网上的图片。。。我没有相应的附件

3190496160 · 发表于 2022-11-4 11:20

Private Sub CommandButton1_Click() '''添加
With Sheets("出库记录表")
   r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 7 To 14
      .Cells(r, i - 5) = Me.Controls("textbox" & i).Text
Next i
.Cells(r, 1) = r - 3
End With
End Sub
Private Sub CommandButton4_Click() '''新建
For i = 7 To 14
Me.Controls("textbox" & i).Text = ""
Next i
End Sub
Private Sub TextBox7_Change() '''输入日期生成单号
If TextBox7.Text = "" Then
TextBox8.Text = ""
Else
With Sheets("出库记录表")
      m = Trim(.Cells(Rows.Count, 3).End(xlUp))
      wh = Right(m, 3)
      rq = Left(m, 8)
      If rq = Format(Date, "yyyymmdd") Then
         TextBox8.Text = Format(Date, "yyyymmdd") & Format(Val(wh) + 1, "000")
      Else
         TextBox8.Text = Format(Date, "yyyymmdd") & Format(1, "000")
      End If
End With
End If
End Sub

3190496160 · 发表于 2022-11-4 11:21

只完成其中的三个功能，供参考，其他的等有时间吧

出库单.rar (20.04 KB, 下载次数: 33)

少如 · 发表于 2022-11-4 11:40

3190496160 发表于 2022-11-4 11:21
只完成其中的三个功能，供参考，其他的等有时间吧

期待完整成品早日出炉！

zengsijun · 发表于 2022-11-4 11:52

3190496160 发表于 2022-11-4 11:21
只完成其中的三个功能，供参考，其他的等有时间吧

麻烦您有时间帮帮我完善一下吧，谢谢了！

02761752696 · 发表于 2022-11-4 16:19

zengsijun 发表于 2022-11-4 11:52
麻烦您有时间帮帮我完善一下吧，谢谢了！

不知是不是这个意思，打印没写

哎，录个屏文件崩溃了，不知什么原因，白写了...
还有输出出库单是一条一条增加还是？？
先看看是不是这个意思吧

徐文祝 · 发表于 2022-11-4 18:13

zengsijun 发表于 2022-11-4 10:32
麻烦各位大侠帮下忙，我已上传了我自己画的窗体，但下面那个列表框我实在不会绘制了，还要相应的代码 ...

https://zhidao.baidu.com/question/1893986016684288460.html
窗体不熟，那个应该是叫表格控件，你按这个思路找找，或者百度一下，或者找个视频看看。祝好运

补充内容 (2022-11-9 10:12):
那个叫Listview控件。不好意思，之前的回复误导了。

zengsijun · 发表于 2022-11-4 18:53

02761752696 发表于 2022-11-4 16:19
不知是不是这个意思，打印没写

哎，录个屏文件崩溃了，不知什么原因，白写了...

是这样的，谢谢楼主！麻烦您帮我做一下，谢谢！

jiangxiaoyun · 发表于 2022-11-4 18:58

花点钱找人代做吧，做这个挺麻烦的。因为窗体增加了麻烦。

tspliu · 发表于 2022-11-4 21:58

这个也没有EXCEL本身表格录入方便呐

		自动登录	找回密码
密码			免费注册

[求助] 如何制作这样的窗体出库单？真诚求助！

评分

评分