以编程方式将宏指定给excel中的组合框

时间:2014-11-19 09:13:09

标签: excel vba excel-vba combobox

我已经编写了一个宏来基本上获得一个带有组合框的表格。当用户更改组合框的值时,应该在表格单元格中填充该值

我写过的宏:

Sub Proc1()
    Cells(2, 1).Value = "MAT10"
    Cells(2, 2).Value = "Material ID (MID)"
    Cells(2, 3).Value = "Bulk Modulus(B)"
    Cells(2, 4).Value = "Average Density (rho)"
    Cells(2, 5).Value = "Speed of sound (C)"
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$E$2"), , xlYes).name = "Tab2"
        'No go in 2003
    ActiveSheet.ListObjects("Tab2").TableStyle = "TableStyleLight2"
    With Range("B3:B3")
    Set comb = ActiveSheet.DropDowns.Add(.Left, .Top, .Width, .Height)

    End With
    With comb
     .AddItem "75000000"
     .AddItem "75000001"
     .AddItem "75000002"
     .AddItem "75000003"
     .AddItem "75000004"
    End With
End Sub

现在,当用户更改组合框的值时,新值应出现在名为" MAT10"的列中的表中。我怎么能这样做?

我知道我们可以通过右键单击组合框来分配宏,但我想以编程方式

0 个答案:

没有答案