- 帖子
- 36
- 主題
- 8
- 精華
- 0
- 積分
- 44
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-1-8
- 最後登錄
- 2020-10-29
|
2#
發表於 2014-7-8 20:23
| 只看該作者
Private Sub UserForm_Activate()
Set x = Sheets("工作表1")
For i = 2 To 20
If x.Cells(i, 2) <> "" Then
ComboBox1.AddItem x.Cells(i, 2)
End If
Next i
End Sub
試試看用這段程式碼 |
|