返回列表 上一主題 發帖

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

wxad0285

帖子
8 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2013-9-12 
最後登錄
2014-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-21 15:43 | 只看該作者

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

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

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

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

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

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

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

還是我哪裡看漏掉了~

謝謝各位了
Combobox 二層下拉選單.rar (14.98 KB)
  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

  10. Private Sub ComboBox2_Change()
  11.     UserForm1.CommandButton2.SetFocus
  12. End Sub

  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

  20. Private Sub CommandButton2_Click()
  21.     Unload UserForm1
  22. End Sub



  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

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2013-10-21 16:13 | 只看該作者
回復 1# wxad0285


   
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2013-10-21 17:34 | 只看該作者
本帖最後由 c_c_lai 於 2013-10-21 17:37 編輯

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

  11. Private Sub ComboBox2_Change()
  12.     UserForm1.CommandButton2.SetFocus
  13. End Sub

  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

  21. Private Sub CommandButton2_Click()
  22.     Unload UserForm1
  23. End Sub

  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
複製代碼

TOP

wxad0285

帖子
8 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2013-9-12 
最後登錄
2014-1-17 
4#
發表於 2013-10-22 08:52 | 只看該作者
感謝GBKEE和c_c_lai大大熱心地回復

這樣就清楚許多了~

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

再一次感謝

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題