[已解决]求好心人帮助，关于combobox

ericzhu2013

如题，我做了一个简单的combobox,就是想在选择完月份以后，具体信息那一栏能够显示出该月份所有price, Quantity和date的信息，最好能够一行一行显示，如excel那样，附件已经贴上。

您的小小帮助，将是我莫大的感激，先谢谢了

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-5 14:09

test_V.rar (42.51 KB, 下载次数: 11)

2013-12-5 14:08 上传

点击文件名下载附件

基本可用，操作改为跳转。

另外，查找时，只对查找到的第一个才会加载到MONTHINFO组合框中。

跳转到最佳答案楼层

hwc2ycy

代码写错了，没有WITH语句，哪来的.引用了。

hwc2ycy

把你的需求讲清楚，代码太难读了。
一个表里N多小表，都不你想实现什么。

ericzhu2013

hwc2ycy 发表于 2013-12-5 11:57
把你的需求讲清楚，代码太难读了。
一个表里N多小表，都不你想实现什么。

感谢你的回复，其实我就是在combobox选择“月份”之后，下面“具体信息”那一栏里面，能够出现该月份所有的操作记录
比如“Price， Quantity， date”这些数据，最好能一行一行的表示出来。

最终的目的是，在具体信息里面选择一行，然后转去def或者ghi的工作表。

不知道是否说清楚，再次谢谢你的回复。

hwc2ycy

ericzhu2013 发表于 2013-12-5 12:12
感谢你的回复，其实我就是在combobox选择“月份”之后，下面“具体信息”那一栏里面，能够出现该月份所有 ...

表格不规范。

ericzhu2013

hwc2ycy 发表于 2013-12-5 12:51
表格不规范。

Private Sub ComboMonth_Enter()
Dim i As Long
Sheet1.ComboMonth.Clear
With Sheet1.ComboMonth
For i = 2 To 65535
If Sheet1.Cells(i, 1) = ("Jan" Or "Feb" Or "Mar" Or "Apr" Or "May" Or "Jun" Or "Jul" Or "Aug" Or "Sep" Or "Oct" Or "Nov" Or "Dec") Then
.AddItem Sheet1.Cells(i, 1)
Else
Exit For
End If
Next
End With
End Sub


Private Sub ComboInfo_Enter()

Dim Info As String
Dim i As Long

For i = 2 To 65535
If Sheet1.Cells(i, 2) = "" Then
Exit For
Else
If Sheet1.Cells(i, 1) = ComboBox1.Text Then
ComboBox2.AddItem Sheet1.Cells(i, 2)
End If
End If
End Sub

我把code贴出来了，版主帮忙看看吧

hwc2ycy

test_V.rar (42.51 KB, 下载次数: 11)

2013-12-5 14:08 上传

点击文件名下载附件

基本可用，操作改为跳转。

另外，查找时，只对查找到的第一个才会加载到MONTHINFO组合框中。