返回列表 上一主題 發帖

關於combobox取值寫入sheet1的問題

bubaby0608

帖子
25 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
WIN 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
tw 
註冊時間
2011-6-3 
最後登錄
2013-4-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-22 01:16 | 只看該作者

關於combobox取值寫入sheet1的問題

各位大大您好：
                         小弟利用access 連結ComboBox1.AddItem myRcdSet(0)下拉清單使其值放入
                         請問各位大大要如何把選取下拉清單的內容放入sheet1的B欄中?
                         且放入B欄的值剛好寫到對應A欄資料最後一個?
                          請各位大大賜教了!!!:)
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-8-22 15:40 | 只看該作者
回復 1# bubaby0608
是這樣嗎?
  1. Private Sub ComboBox1_Change()
  2.     Range("A" & Rows.Count).End(xlUp).Offset(, 1) = ComboBox1
  3. End Sub
複製代碼

TOP

bubaby0608

帖子
25 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
WIN 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
tw 
註冊時間
2011-6-3 
最後登錄
2013-4-1 
3#
發表於 2011-8-22 20:15 | 只看該作者
回復 2# GBKEE

大大意思差不多接近了但是點選時，只有最後一筆資料有值
假如A欄資料到10列，是否值也能從B欄1列寫到10列呢?
以此類推，A欄值到哪，B欄就寫到哪，感謝大大賜教！

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2011-8-23 13:11 | 只看該作者
回復 3# bubaby0608
是如此嗎?
  1. Private Sub ComboBox1_Change()
  2.     Range("A:A").SpecialCells(xlCellTypeConstants).Offset(, 1) = ComboBox1
  3. End Sub
複製代碼

TOP

bubaby0608

帖子
25 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
WIN 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
tw 
註冊時間
2011-6-3 
最後登錄
2013-4-1 
5#
發表於 2011-8-23 20:36 | 只看該作者
回復 4# GBKEE

感謝大大~就是這個!受教了!

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題