返回列表 上一主題 發帖

一個下拉問題,

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題