接上讲：
中讲已经完成了主程序的设计，这一讲说一下其它功能按钮的实现和一些小细节；
一、功能按钮：
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声音文件；
这样在程序调用的时候，就可以直接调用了；
如此，整个退货上架的程序就设计完成了；如果还想加入某些小功能；可以再酌情添加，不再赘述。