使用基于VBA代码旁边的列值的表格中的值填充组合框

Question

我想在启动userform时填充一个组合框，其中列A中的值基于C列中的值。 即我的组合框选项应列出A栏中的项目，如果它在C栏中的相关值为＆＃34; PINK＆＃34;

Answer 1

您已经尝试过的一些代码是首选。但你应该尝试类似以下的东西。假设combobox1在UserForm1中：

Private Sub UserForm1_Initialize()

dim ws as worksheet
set ws = activesheet

rowsCount = ws.cells(ws.rows.count, 1).end(xlup).row

'loop over data in column A 
for i = 0 to rowsCount
    if ws.cells(i, 3).value = "PINK" then
        combobox1.AddItem(ws.cells(i, 1).value)
    end if
next i

end sub