[發問] 各位先進大家好，這次有另外的問題

wxad0285

各位大大好，以下是我到網路上找到其他人設計的下拉式選單

我知道版上已經有許多相關的討論了，我也都看過了，但卻讓我搞得更混亂@_@

我的問題是，如何在表單中所建立的下拉式選單(ComboBox)中，引入第二個工作表的資料，並且出現資料選項，選擇完成後輸入在第一個工作表的表格中

附檔是這位大大所設計的，並且具有我所講的功能

但是我完全看不懂他在程式碼裡寫了什麼，也沒有提到工作表2，卻達到這樣的效果

所以想請教各位指點一下迷津

還是我哪裡看漏掉了~

謝謝各位了
Combobox 二層下拉選單.rar (14.98 KB)

下載次數: 4

2013-10-21 15:42

1. Private Sub ComboBox1_Change()
   
2.     With UserForm1
   
3.         IT = "模具編號" & .ComboBox1.Value
   
4.         .ComboBox2.RowSource = Names(IT)
   
5.         .ComboBox2.ListIndex = 0
   
6.         .CommandButton2.SetFocus
   
7.     End With
   
8. End Sub
   
9. 
   
10. Private Sub ComboBox2_Change()
    
11.     UserForm1.CommandButton2.SetFocus
    
12. End Sub
    
13. 
    
14. Private Sub CommandButton1_Click()
    
15.     r = [a65536].End(3).Row + 1
    
16.     Cells(r, 1).Value = ComboBox1.Value
    
17.     Cells(r, 2).Value = ComboBox2.Value
    
18. End Sub
    
19. 
    
20. Private Sub CommandButton2_Click()
    
21.     Unload UserForm1
    
22. End Sub
    
23. 
    
24. 
    
25. 
    
26. Private Sub UserForm_Initialize()
    
27.     With UserForm1
    
28.         .ComboBox1.RowSource = Names("機台")
    
29.         .ComboBox1.ListIndex = 0
    
30.         .CommandButton2.SetFocus
    
31.     End With
    
32. End Sub

複製代碼

GBKEE

回復 1# wxad0285


   

下載 (84.22 KB)

2013-10-21 16:13

c_c_lai

回復 1# wxad0285
以下是你原本的思路 (未使用 "公式->名稱管理員 " (2010)  ； "插入->定義名稱" (2003))：

1. Private Sub ComboBox1_Change()
   
2.     With UserForm1
   
3.         '  IT = "模具編號" & .ComboBox1.Value
   
4.         '  .ComboBox2.RowSource = Names(IT)
   
5.         .ComboBox2.RowSource = "Sheet2!" & Sheets("Sheet2").Range(Chr(Asc(.ComboBox1.Value) + 1) & "1:" & Chr(Asc(.ComboBox1.Value) + 1) & "3").Address
   
6.         .ComboBox2.ListIndex = 0
   
7.         .CommandButton2.SetFocus
   
8.     End With
   
9. End Sub
   
10. 
    
11. Private Sub ComboBox2_Change()
    
12.     UserForm1.CommandButton2.SetFocus
    
13. End Sub
    
14. 
    
15. Private Sub CommandButton1_Click()
    
16.     r = [a65536].End(3).Row + 1
    
17.     Cells(r, 1).Value = ComboBox1.Value
    
18.     Cells(r, 2).Value = ComboBox2.Value
    
19. End Sub
    
20. 
    
21. Private Sub CommandButton2_Click()
    
22.     Unload UserForm1
    
23. End Sub
    
24. 
    
25. Private Sub UserForm_Initialize()
    
26.     With UserForm1
    
27.         '  .ComboBox1.RowSource = Names("機台")
    
28.         .ComboBox1.RowSource = "Sheet2!" & Sheets("Sheet2").[A1:A3].Address
    
29.         .ComboBox1.ListIndex = 0
    
30.         .CommandButton2.SetFocus
    
31.     End With
    
32. End Sub

複製代碼

wxad0285

感謝GBKEE和c_c_lai大大熱心地回復

這樣就清楚許多了~

關於程式碼的部分我再去研究看看

再一次感謝