返回列表 上一主題 發帖

一個下拉問題,

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-21 20:21 | 只看該作者

一個下拉問題,

大大們,好
小妹有一下拉問題請協助, 附件有明細說明, 先行謝謝!!
Book1.rar (10.47 KB)
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
249  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-17 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-4-21 21:29 | 只看該作者
回復 1# 317
  1. Private Sub Worksheet_Activate()
  2. ComboBox1.ColumnCount = 2
  3. ComboBox1.Clear
  4. With 工作表1
  5.    For Each a In .Range(.[A3], .[A3].End(xlDown))
  6.    With ComboBox1
  7.    .AddItem a & "," & a.Offset(, 1)
  8.    .List(r, 0) = a: .List(r, 1) = a.Offset(, 1)
  9.    r = r + 1
  10.    End With
  11.    Next
  12. End With
  13. ComboBox1.TextColumn = 1
  14. ComboBox1.LinkedCell = "C3"
  15. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-4-21 21:42 | 只看該作者
回復 1# 317
工作表3 的程式碼
  1. Private Sub Worksheet_Activate()                   '從其他工作表 移動到 這工作表時 自動執行的預設事件
  2.     Ar = Sheet1.Range("A3:B" & Sheet1.[B3].End(xlDown).Row).Value ' A3:B欄位資料 置入陣列
  3.     With ComboBox1
  4.         .ColumnCount = 2                             '指定下拉式清單方塊或清單方塊的顯示行數
  5.         .TextColumn = 1                              '在使用者選取一列時，識別要儲存 Text 屬性中的 ComboBox 或 ListBox 的資料行。
  6.         .LinkedCell = "C3"                           '傳回或者設定連線指定控制值的工作表範圍
  7.         .Font.Size = 14                              '設定 字體大小
  8.         .BackColor = &HFFFF&                          '背景色彩。
  9.         .TextAlign = fmTextAlignCenter                '文字在控制項中的對齊方式
  10.         .Clear                                       '清除控制項的內容
  11.         .List = Sheet1.Range("A3:B" & Sheet1.[B3].End(xlDown).Row).Value ' A3:B欄位資料 置入陣列
  12.         'List 屬性  傳回或設定 ListBox 或 ComboBox 的清單輸入項
  13.     End With
  14. End Sub
複製代碼

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
4#
發表於 2012-4-22 06:37 | 只看該作者
謝謝两位版主大大, 小妹受教了, 謝謝謝!!

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題