[下载]【VBA入门点滴】组合框筛选

hjcdy

<p>看看先</p>

168216130B

学习

BJCY

ddddd

东来东往

<p>i学习</p>

wmy920130

[em01][em01]

zjplsm

<p>多谢了</p><p></p><p></p><p></p>[em21][em21]

wtydxl

看一下

wtydxl

<p>不能运行！</p><p>rivate Sub UserForm_Initialize()<br/>&nbsp;&nbsp;&nbsp; For <font style="BACKGROUND-COLOR: #ffff00;">i </font>= 2 To Sheets("SHEET1").[a65536].End(xlUp).Row<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For J = 0 To ComboBox1.ListCount - 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Year(Cells(i, 1).Value) Like ComboBox1.List(J) Then GoTo 100<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next J<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ComboBox1.AddItem Year(Cells(i, 1).Value)</p>

caihm01

[em01]