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

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

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

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

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

实现效果

比如如下效果:

代码实现:

'刷新ComboBox1内容
Private Sub ComboBox1_DropButtonClick()
     ComboBox1.List() = get_arr("物流装箱清单", 2, 1)
End Sub
  • 第一行:ComboBox1_DropButtonClick()是ComboBox1控件下拉时候触发的事件过程,只要触发下拉动作就执行该过程代码;
  • 第二行:get_arr("物流装箱清单", …
VBA

1 / 1