Board logo

標題: 關於combobox取值寫入sheet1的問題 [打印本頁]
作者: bubaby0608    時間: 2011-8-22 01:16     標題: 關於combobox取值寫入sheet1的問題

各位大大您好：
                         小弟利用access 連結ComboBox1.AddItem myRcdSet(0)下拉清單使其值放入
                         請問各位大大要如何把選取下拉清單的內容放入sheet1的B欄中?
                         且放入B欄的值剛好寫到對應A欄資料最後一個?
                          請各位大大賜教了!!!:)
作者: GBKEE    時間: 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
複製代碼
作者: bubaby0608    時間: 2011-8-22 20:15

回復 2# GBKEE

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

回復 3# bubaby0608
是如此嗎?
  1. Private Sub ComboBox1_Change()
  2.     Range("A:A").SpecialCells(xlCellTypeConstants).Offset(, 1) = ComboBox1
  3. End Sub
複製代碼
作者: bubaby0608    時間: 2011-8-23 20:36

回復 4# GBKEE

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)