一個下拉問題,

317

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

下載次數: 21

2012-4-21 20:20

Hsieh

回復 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

複製代碼

GBKEE

回復 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

複製代碼

317

謝謝两位版主大大, 小妹受教了, 謝謝謝!!