Excel VBA组合框列表在模块中有选择，然后输出到单元格

似乎找不到这个问题的答案，我需要一个组合框，它位于一个有三个选项的用户表单中 例如租赁、购买和融资

然后将所选输入放入示例单元格A1中。如果我的excel工作表中已经有列表，我知道如何执行此操作，但我不希望excel工作表中的列表仅包含所选内容。因此，我假设我要求在模块内提供一个选项的编码列表，然后将结果输出到一个单元格中

任何帮助都将不胜感激我是个新手

---

感谢用户表单中的基本代码：

Private Sub ComboBox1_Change()
   If me.combobox1.listindex > -1 then sheets("Sheet name").Range("A1").value = me.combobox1.Value
End Sub

Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Array("Rental", "Purchase", "Finance")
End Sub

---

由于是描述而不是数字，我有点不确定，但这很有魅力，再次感谢Rory，对新手提问表示抱歉如果表单关闭，然后重新打开，我是否可以在表单中保留选择，我尝试使用Me.Combobox1.List=CStrRangeB10.Value，但该值不起作用。您需要我。Combobox1.Value而不是List再次感谢Rory。你是一位真正的大师