我试图使一个依赖的组合框在Excel中使用VBA。下面是我的代码:
Option Explicit
Private Sub conduitTypeBox_Change()
Select Case conduitTypeBox.Value
Case Is = "IMC"
conduitSizeBox.RowSource = "imcSize"
Case Is = "LFMC"
conduitSizeBox.RowSource = "lfmcSize"
Case Is = "RMC"
conduitSizeBox.RowSource = "rmcSize"
Case Is = "PVC (Schedule 80)"
conduitSizeBox.RowSource = "pvc80Size"
Case Is = "PVC (Schedule 40)"
conduitSizeBox.RowSource = "pvc40Size"
Case Is = "PVC (Type A)"
conduitSizeBox.RowSource = "pvcaSize"
Case Is = "PVC (Type EB)"
conduitSizeBox.RowSource = "pvcebSize"
End Select
End Sub
概念是用户选择导管的类型(例如,“IMC”),然后第二个组合框填充导管类型唯一的尺寸。我使用名称管理器为数据范围创建了一个名称(并确保它具有整个工作簿的范围),但是我得到了运行时错误'438':对象不支持此属性或方法。我明白问题是什么,但我不完全确定为什么这是一个问题。当我键入“conduitSizeBox.
”时,RowSource
不会出现在可用属性列表中。有人知道为什么吗?
我试着寻找其他的财产,没有找到任何适合我的需要。
1条答案
按热度按时间iqjalb3h1#
使用
Listfillrange
属性而不是Rowsource
。