本节说的是使用VBA实现点击按钮时，触发的事件过程。

比如，这里点击打包完成按钮时候，会触发一些过程，先判断装箱尺寸、毛重等信息是否填写，否则弹出提示框。

CommandButton1_Click()是按钮点击触发事件，点击CommandButton1按钮时，触发该过程。

'完成打包事件
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
MsgBox "装箱尺寸不能为空！", vbOKOnly
ElseIf TextBox2.Text = "" Then …

本节说的是使用VBA实现下拉列表框的实现，同时下拉框显示的数值是从另一个sheet中获取。

实现效果

比如如下效果：

代码实现：

'刷新ComboBox1内容
Private Sub ComboBox1_DropButtonClick()
ComboBox1.List() = get_arr("物流装箱清单", 2, 1)
End Sub

• 第一行：ComboBox1_DropButtonClick()是ComboBox1控件下拉时候触发的事件过程，只要触发下拉动作就执行该过程代码；
• 第二行：get_arr("物流装箱清单", …

1.获取当前路径所有文件名

Function get_file_arr()
Dim file_arr(), i
i = 1
this_path = ThisWorkbook.Path '获取当前工作簿所在路径
file_list = Dir(this_path & "\" & "*.*") …