如何在VBA中纠正过程太长

我现在终于修好了我所有的问题，程序太长了。
我已经看到了这个网站上的其他修复，但有一点模糊。
我的代码是这样开始的：

Private Sub ComboBox6_Change() If ComboBox1.Value = "CONVERTING" And ComboBox2.Value = "SHEETING" And ComboBox3.Value = "LITHO" And ComboBox4.Value = "LESS THAN 50BS" And ComboBox5.Value = "WIDTH > 46in" And ComboBox6.Value = "LENGTH > 60in" Then UserForm1.ListBox1.AddItem "SHEETING (LITHO, LESS THAN 50BS, WIDTH > 46in, LENGTH > 60in) FG $0.0389/LB" End If If ComboBox1.Value = "CONVERTING" And ComboBox2.Value = "SHEETING" And ComboBox3.Value = "LITHO" And ComboBox4.Value = "LESS THAN 50BS" And ComboBox5.Value = "WIDTH > 46in" And ComboBox6.Value = "60in >= LENGTH > 22in" Then UserForm1.ListBox1.AddItem "SHEETING (LITHO, LESS THAN 50BS, WIDTH > 46in, 60in>= LENGTH > 22in) FH $0.0318/LB" End If 

等等…我有6个不同的combobox任何帮助将不胜感激。
谢谢

Answer 1

我想你可以使用

  Private Sub ComboBox6_Change() Dim s as string If ComboBox1.Value = "CONVERTING" then s = ComboBox2.Value & "(" & ComboBox3.Value & "," & ComboBox4.Value s = s & "," & ComboBox5.value & "," & Combobox6.value Select case ComboBox6.index case 1 s = s & ") FG $0.0389/LB" case 2 s = s & ") FH $0.0318/LB" 

等等