回馈论坛，重磅来袭。原创【进销存管理】密码公开

深秋的黎明

gglili 发表于 2024-3-16 20:37
感谢大佬分享，后学之人用Office2021LTSC打开后出现这个，求解

要在同一个文件夹里添加一个自己喜欢的WAV格式的音乐文件。如果不需要，可以删除“欢迎”

深秋的黎明

zhumin1025 发表于 2024-3-16 19:26
做系统是很复杂的，楼主一定花了很长时间；不过发货单窗体不能适应屏幕大小，另外不知道是楼主还没做完还是 ...

重点是学习VBA代码在进销存管理的运用，尤其是模糊查询。其他的比如应收账款管理等，都是超链接，我在其他帖子里有示例。

深秋的黎明

这个系统是我入职一家纺机配件公司后自己琢磨出来的，以前经营中配件进库出库销售单据管理都纯手工，我利用在Excel论坛学习到的知识，整合后历时3个月搞成这套管理软件，并逐步优化。如今这家公司因为疫情倒闭了，但所有的管理系统依然有拷贝，我觉得这么实用代码埋没了实在可惜，而且不牵涉到版权问题。为此，好东西要大家一起分享学习。

深秋的黎明

Private Sub CommandButton43_Click()
TextBox9.Text = ""
TextBox24.BackColor = &HFFFF00
'--------粘贴来自鼠标右键复制的内容---------
On Error Resume Next
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
     .GetFromClipboard
     TextBox24.Text = .GetText '& Chr(10) & " OK  "
End With
'----件号格式化（只保留数字和英文字符）------
If CheckBox3.Value = True Then Exit Sub '如果需要获取金额，则终止
With CreateObject("Vbscript.RegExp")
        .Global = True
        .IgnoreCase = True
        .Pattern = "[^\d\na-zA-Z]"
        TextBox24.Text = .Replace(TextBox24.Text, "")
End With
End Sub

把文件夹里的图片导入Image

Image2.Picture = Nothing
a = Left(ListBox2.List(, 1), 9)
MyPic = ThisWorkbook.Path & "\配件图\" & a & ".jpg"
If Dir(MyPic) <> "" Then
Image2.Picture = LoadPicture(MyPic)
Image2.PictureSizeMode = 1


调整窗体出现在屏幕上的位置

Private Sub UserForm_Activate() '
'Me.Top = 40
'Me.Left = 30
End Sub

深秋的黎明

沈默00

支持原创，支持分享

h2016

学习学习，这个代码真的是有需要才会做，vba打造个人办公利器

Jancheaf

好东西学习了哈~~~~~~

313667354

留个脚印，感谢分享

838225419

超级赞，谢谢分享