根据组合框选择复制和粘贴选择答案

【问题标题】：Copy & Paste Selection Based On Combo Box Selection根据组合框选择复制和粘贴选择
【发布时间】：2018-04-16 18:41:37
【问题描述】：

我希望有人可以帮助解决这个问题？

我想根据组合框选择从另一个工作表中复制选定的数据。需要发生的是：-

如果组合框中的选择是“访问定价”，那么我希望第二张工作表中的价格数据填充到第一张工作表的价格列中。第一张表中已有默认价格数据，需要先删除。

下面是我试过的代码，但它不起作用。

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

如果有人可以为我指出正确的方向并找到一个相对简单的方法，我将不胜感激。

谢谢

阿布舍克

【问题讨论】：

根据组合框的单元格链接简单写一个智能公式不是更简单吗？

标签： excel combobox vba

【解决方案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中表单控制的好链接

【讨论】：

谢谢劳纳克。如何复制粘贴值而不是公式？