Question

我希望有人可以帮忙吗？

我想根据组合框选择从其他工作表复制所选数据。需要做的是： -

如果组合框中的选择是＆＃34;访问定价＆＃34;然后我希望第二张纸的价格数据填入我的第一张纸的价格栏中。第一张表中已有一个默认价格数据需要先删除。

以下是我尝试的代码，但它无效。

Private Sub ComboBox2_Change()

 If ComboBox2.Value = "Access Pricing" Then
 Sheets("IV Fluids Pricing Grid").Range("k19:k27").Copy Sheets("Pricing Tier").Range("C6:C14")

 End If

End Sub

如果有人能指出我正确的方向，以便采取相对简单的方式，我们将不胜感激。

由于

阿布舍克巴克

Answer 1

我认为如果您使用单元格链接并更改公式会更容易。否则你可以试试这个假设名为Dropdown 1的组合框位于名为My Sheet

的工作表中

with sheets("My Sheet").shapes("Dropdown 1").ControlFormat

If .list(.value) = "Access Pricing" Then
  Sheets("IV Fluids Pricing Grid").Range("k19:k27").Copy Sheets("Pricing Tier").Range("C6:C14")
End If

end with

This是VBA中表单控件的一个很好的链接

复制＆amp;基于组合框选择的粘贴选择

1 个答案: