owen06

回復 3# hray1234


   你照我這樣去改改看，可能是為textbox的內容為string，而工作表的數據為double，所以比對不出來的關係。

1. Private Sub CommandButton1_Click()
   
2. ans = UserForm1.ComboBox1.Value * 1
   
3. UserForm1.Label1.Caption = _
   
4. Application.VLookup(ans, 工作表1.Range("A:E"), 2, False)
   
5. End Sub

複製代碼

owen06

回復 5# hray1234

什麼樣的下拉式選單？方便弄個簡易的附檔來看看嗎？

owen06

回復 7# hray1234


    combobox的內容會等於label的寫法，但label的內容，似乎不會符合你要的清單列法耶
    可以煩請完整的詳述你想要的作法嗎？

1. Private Sub Label1_Click()
   
2. List = Array(UserForm1.Label1.Caption)
   
3. Sheet1.ComboBox1.List = List
   
4. End Sub

複製代碼

owen06

回復 9# hray1234

  這樣可以嗎？

1. Private Sub Label1_Click()
   
2. List = Array(UserForm1.Label1.Caption)
   
3. Sheet1.ComboBox1.List = List
   
4. Sheet1.Select
   
5. Unload Me
   
6. End Sub

複製代碼

owen06

回復 11# hray1234


    能否直接附個excel的壓縮檔來看看呢，這樣比較好了解問題所在。