遍历工作表上的ActiveX ComboBoxes并将命名范围分配给ListFill,可以通过以下步骤实现:
Sub AssignListFillToNamedRange()
Dim cb As OLEObject
Dim ws As Worksheet
Dim rng As Range
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为要操作的工作表名称
For Each cb In ws.OLEObjects
If TypeName(cb.Object) = "ComboBox" Then
Set rng = ws.Range(cb.Object.LinkedCell)
cb.Object.ListFillRange = rng.Address
End If
Next cb
End Sub
以上代码会遍历指定工作表上的所有ActiveX ComboBoxes,并将其LinkedCell属性所指向的命名范围分配给ListFillRange属性。这样,ComboBox的下拉列表将从命名范围中获取数据。
请注意,这里没有提及任何特定的云计算品牌商,因为这个问题与云计算无关。这是一个Excel VBA的问题,与云计算领域无关。
领取专属 10元无门槛券
手把手带您无忧上云