我简单给你做了个样品,你自己修改吧 第一步,是给控件赋值,也就是将op1和op2显示在ListBox控件中,我通过命令完成的 Private Sub CommandButton1_Click() With ListBox1 .Clear .AddItem op1 .AddItem op2 End With End Sub
这样,ListBox中就有了这2个选项,不是我们一般的单选或者复选框那种的。
下面就是 选op1时,H2=H3 选op2时,H2=H4 插入代码: Private Sub ListBox1_Click() If ListBox1.Value = op1 Then Range(H2) = Range(H3) If ListBox1.Value = op2 Then Range(H2) = Range(H4) End Sub