返回列表 上一主題 發帖

EXCEL VBA下拉式選單之問題

小華

帖子
36 
主題
8 
精華
0 
積分
44 
點名
0  
作業系統
win 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2013-1-8 
最後登錄
2020-10-29 
1# 跳轉到 »
發表於 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

試試看用這段程式碼

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題