我的代码出现“权限被拒绝”错误

Question

在确定我的代码中的问题时，我需要帮助。我正在观看YouTube视频，内容涉及如何在ComboBox.1。中选择选项时如何自动填充空白字段。我已经按照教程进行操作，并将视频中的所有相关Ranges()替换为{{1} }在我的电子表格中。

我尝试重新命名我的范围，使其与他的名字完全一样。

Ranges()

我希望当用户在我的文件中选择一项投资时，其他空白字段会自动填充所需的数据。

Answer 1

您收到此错误，因为您已将组合框的.RowSource设置为Fundss

设置RowSource属性后，将无法使用Additem属性，因此代码在行Permission Denied上以Me.ComboBox1.AddItem ws.Cells(i, "A").Value失败，

解决方案

1. 从行源中删除Fundss，然后使用Additem OR
2. 请勿使用Additem将项目添加到组合框。只能使用其中一个。

我注意到了其他几个问题

1. 您在Next i中缺少ComboBox1_Change()
2. 您没有TextBox1。您有TB1，TB2等...
3. 如果您要在Combobox中选择一个 String 的Westpac，那么为什么要Val(Me.ComboBox1.Value)将其转换为 Integer ？