VBA:将选择从组合框放入电子表格

时间:2016-06-01 15:40:02

标签: excel vba excel-vba

我想知道需要哪些命令才能从组合框中选择一个值并使用VBA将其插入到excel中的特定单元格中。如果从该组合框中进行另一个选择,我还需要它来覆盖该单元格中的内容。提前谢谢。

3 个答案:

答案 0 :(得分:1)

您需要一个指向组合框并检索其值的引用,然后将Excel中的单元格范围设置为该值。无论组合框是在表单上还是在工作表上,这都会有所不同:

在表单或工作表的代码中,您可以为组合框添加更改事件并对其进行编码以将数据插入工作表单元格引用中(例如,将Sheet1上的A1设置为值组合框值改变后的组合框。)

Public Sub ComboBox1_Change()
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = Me.ComboBox1.Value
End Sub

另外,我认为你可能需要一本更好的VBA书:)

答案 1 :(得分:1)

下面的

将改变组合框的值

ComboBox1.value = 100
下面的

将获取单元格的值

range("A1") = ComboBox1.Value

您也可以通过

设置组合框链接的单元格
  1. 开启设计模式。

  2. 右键单击组合框并选择属性

  3. 找到显示LinkedCell

  4. 的行
  5. 在更改组合框时自动更改范围

  6. 当您键入LinkedCell时,只需键入A1。 不是范围(" A1")或" A1"

答案 2 :(得分:0)

此代码为组合框创建水果列表,并将值放在单元格A1中。您需要使用组合框创建Userform。

Private Sub ComboBox1_Change()
    Range("A1").Value = ComboBox1.Value
End Sub

Sub Userform_Initialize()

    With Me.ComboBox1
        .AddItem "Apple"
        .AddItem "Banana"
        .AddItem "Orange"
    End With

End Sub