[已解决]窗体，复合框内容刷新问题

filon80

老师们，
请问窗体二级下拉框不能刷新（重新打开有效），见附件。
帮忙看下，谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-1 09:15

1. Private Sub ComboBox1_Change()
   
2.     Sheet1.[a1] = ComboBox1.Text
   
3.     ComboBox2.List = Sheet1.[YYA].Value
   
4. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

这个方法不错，可惜只有第一次变更才有效。

名称感觉不刷新。

hwc2ycy

1. Private Sub ComboBox1_Change()
   
2.     Sheet1.[a1] = ComboBox1.Text
   
3.     ComboBox2.List = Sheet1.[YYA].Value
   
4. End Sub

复制代码

hwc2ycy

忘了，直接再加载一次COMBOBOX2就好了。

妞叫七七

不用设置名称,还有公式,直接写代码就行了
Private Sub ComboBox1_Change()
Dim x, y, SR
x = Application.Match(ComboBox1.Text, Range("e:e"), 0)
y = Application.CountIf(Range("e:e"), ComboBox1.Text)
SR = "11!F" & x & ":F" & x + y - 1
ComboBox2.RowSource = SR
End Sub

filon80

感谢七七

filon80

感谢班长！