[已解决]combobox问题求助

liucs1983

目的：当将工作表sheet10中的A列中的日期的年份等于Combobox7中的数值时，sheet10中对应的B列的数值就增加到Combobox8中去。
(代码中表绿色的部分可以忽略）
问题：得到的Combobox8中的下拉列表中看不到条目(相当于列表中字体颜色和背景颜色一样的效果），但是条目存在，点击后Combobox8的文本框中能够正常显示。
请各位老师帮忙看看，谢谢了！
代码：
Private Sub ComboBox7_Change()

Dim m As Single, n As Single
Dim d As Object
Set d = CreateObject("scripting.dictionary")
m = Sheet10.Range("a100000").End(xlUp).Row
For n = 2 To m
   If (Year(Sheet10.Range("a" & n)) = ComboBox7.Text Or ComboBox7.Text = "") And (Month(Sheet10.Range("a" & n)) = ComboBox6.Text Or ComboBox6.Text = "") Then
      d(Sheet10.Range("b" & n)) = ""
   End If
Next

ComboBox8.List = d.keys
End Sub

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-7-11 16:29

需要转置一下
ComboBox8.List = Application.Transpose(d.keys)

跳转到最佳答案楼层

妞叫七七

上传表格吧，只是看看不出什么

liucs1983

妞叫七七 发表于 2013-7-11 12:29
上传表格吧，只是看看不出什么

已上传，麻烦帮看看，谢谢！

妞叫七七

需要转置一下
ComboBox8.List = Application.Transpose(d.keys)

liucs1983

妞叫七七 发表于 2013-7-11 16:29
需要转置一下
ComboBox8.List = Application.Transpose(d.keys)

原来这样，十分感谢！