亲爱的

我正在寻找在一个组合框中切换两个动态范围的 vba 代码，我在 A 列下设置一个范围（例如 1,2,3,4,5），在 D(a,b,c,d、e)。并且有两个命令按钮（“字母”和“数字”）和一个组合框。当我点击“字母”按钮时，组合框的范围将是字母；当我点击“数字”按钮时，组合框的范围将是数字。我的代码如下：

Private Sub Cmd_letter_Click()
Dim x As String
x = "d1"
numberorletter.Clear
Call numberorletterprocedure
End Sub

Private Sub Cmd_number_Click()
Dim x As String
x = "a1"
numberorletter.Clear
Call numberorletterprocedure
End Sub

Private Sub numberorletterprocedure()
Dim x As String
Dim numberorletter As Range
Dim ws As Worksheet
Set ws = sheet1
Set numberorletter.List = sheet1.Range(x,sheet1.Range(x).End(xlDown)).Value
End Sub

然而，它不起作用，你能告诉我我犯了错误的哪一部分吗？如果它是通过创建一个函数而不是过程来完成的，它会是什么样子？谢谢！