返回列表 上一主題 發帖

請教一段程式, 該如何寫,

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-5-18 19:43 | 只看該作者

請教一段程式, 該如何寫,

前輩們, 請教一段程式, 該如何寫, 請參照圖片說明,
先行謝謝!!
收藏 分享

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-5-18 21:02 | 只看該作者
回復 1# 周大偉

比較簡易的方式如下
  1. Private Sub UserForm_Initialize()
  2. arr = Sheets("工作表2").Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
  3. ComboBox1.List = arr
  4. End Sub
複製代碼

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
3#
發表於 2015-5-18 22:11 | 只看該作者
回復 2# lpk187
謝謝大大, 祝快樂

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題