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

VBA实战:电商仓储错拣逆还及退货上架(下)

 

 

三、提示音模块

我们在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声音文件;

VBA实战:电商仓储错拣逆还及退货上架(下)

 

 

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

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

上一篇:Vue 参数传递及重定向


下一篇:Vue-Router