Board logo

標題: [發問] 各位先進大家好，這次有另外的問題 [打印本頁]
作者: wxad0285    時間: 2013-10-21 15:43     標題: 各位先進大家好，這次有另外的問題

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

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

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

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

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

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

還是我哪裡看漏掉了~

謝謝各位了
[attach]16403[/attach][attach]16403[/attach]
  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    時間: 2013-10-21 16:13

回復 1# wxad0285


    [attach]16404[/attach]
作者: c_c_lai    時間: 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
複製代碼
作者: wxad0285    時間: 2013-10-22 08:52

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

這樣就清楚許多了~

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

再一次感謝



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)