VBA实战：电商仓储错拣逆还及退货上架（下）

接上讲：

中讲已经完成了主程序的设计，这一讲说一下其它功能按钮的实现和一些小细节；

一、功能按钮：

 1 '显示按钮
 2 Private Sub CommandButton2_Click()
 3 Application.Visible = True
 4 End Sub
 5 '隐藏按钮  --防止不小心点击，直接隐藏工作表
 6 Private Sub CommandButton3_Click()
 7 Application.Visible = FalseUserForm1.Show
 8 End Sub
 9 '退出不保存按钮
10 Private Sub CommandButton4_Click()
11 Application.Quit
12 ThisWorkbook.Close False
13 End Sub

二、通常我们在打开这个表格的时候，只希望显示采集窗口，而不显示工作表

所以我们可以直接在workbook_open事件中加入以下代码：

1 Private Sub Workbook_Open()
2 Application.Visible = False
3 UserForm1.Show vbModeless
4 End Sub

 

 

三、提示音模块

我们在VBE环境下直接插入模块并写入以下代码：

 1 Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long
 2 '错误提示音
 3 Sub errorsec()
 4     PlaySound ThisWorkbook.Path + "\error.wav", 0&, &H1
 5 End Sub
 6 '通过提示音
 7 Sub pass()
 8     PlaySound ThisWorkbook.Path + "\pass.wav", 0&, &H1
 9 End Sub
10 '其它提示音
11 Sub other()
12     PlaySound ThisWorkbook.Path + "\other.wav", 0&, &H1
13 End Sub

当然，要使用这些提示音效；我们必须在此excel文件存放的同目录(文件夹)中存放同名的wav声音文件；

 

 

这样在程序调用的时候，就可以直接调用了；

如此，整个退货上架的程序就设计完成了；如果还想加入某些小功能；可以再酌情添加，不再赘述。

posted @ 2019-12-11 13:48  無尘  阅读(303)  评论(0)  编辑  收藏  举报