这十项将是我的老板将为我定义的自定义选择选项。他希望它们可以从下拉菜单中选择，或者我认为它在VBA中被称为组合框。我需要帮助设置用户表单，以获得组合框设置，这样我就可以把他想要的代码。我甚至不知道如何设置一个组合框，使其可以有十个项目可供选择。我应该在今天晚些时候获得代码的规格，并将尽快发布它们。谢谢你的帮助。这是我正在为其制作新宏的旧版本代码的一部分。
- Option Explicit
- ' *** Public Declarations **** '
- Public strModelNum As String
- Public strSalesOrdNum As String
- Public objLayer As AcadLayer
- Private Sub cbo9_Change()
- On Error GoTo Err_Control
- If cbo9.Value = "U = Pueblo" Then
- dig9.Caption = "U"
- dig9.BackColor = &HFF00&
- stopgo9.BackColor = &HFF00&
- ElseIf cbo9.Value = "E = Charmes" Then
- dig9.Caption = "E"
- dig9.BackColor = &HFF00&
- stopgo9.BackColor = &HFF00&
- ElseIf cbo9.Value = "C = China" Then
- dig9.Caption = "C"
- dig9.BackColor = &HFF00&
- stopgo9.BackColor = &HFF00&
- ElseIf cbo9.Value = "" Then
- stopgo9.BackColor = &HFF&
- dig9.BackColor = &HFF&
- End If
- stopgo13.BackColor = &HFF&
- stopgo16.BackColor = &HFF&
- stopgo26.BackColor = &HFF&
- stopgo27.BackColor = &HFF&
- stopgo28.BackColor = &HFF&
- dig13.BackColor = &HFF&
- dig16.BackColor = &HFF&
- dig26.BackColor = &HFF&
- dig27.BackColor = &HFF&
- dig28.BackColor = &HFF&
- cbo13.Clear
- cbo16.Clear
- cbo26.Clear
- cbo27.Clear
- cbo28.Clear
- dig13.Caption = ""
- dig16.Caption = ""
- dig26.Caption = ""
- dig27.Caption = ""
- dig28.Caption = ""
- cbo16.Enabled = False
- cbo26.Enabled = False
- cbo27.Enabled = False
- cbo28.Enabled = False
- cbo13.AddItem "U = C/UL Listing"
- cbo13.AddItem "C = CE Listing"
- cbo13.Enabled = True
- cbo13.SetFocus
- Exit_Here:
- Exit Sub
- Err_Control:
- Debug.Print Err.Number
- MsgBox Err.Description
- End Sub
| 
置顶卡
