所以我试图创建一个动态列表框,除了列表框没有更新外,一切正常。如果查看属性,ListFillRange已更改,但实际框保持相同的范围。
我的代码如下:
Private Sub ListBox1_Click()
Dim Rng As String
Rng = "'Identificatie_&_WGK'!R2:R" & (Worksheets("Identificatie_&_WGK").Range("S2").Value + 1)
Worksheets("Etiketten").ListBox1.ListFillRange = Rng
End Sub
S2是需要显示的名称数量。