返回列表 上一主題 發帖

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

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
複製代碼
收藏 分享

wxad0285

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

這樣就清楚許多了~

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

再一次感謝

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題