台灣最大程式設計社群網站
線上人數
801
 
會員總數:244998
討論主題:188957
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> EXCEL VBA 下拉式選單疑問
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
EXCEL VBA 下拉式選單疑問
價值 : 100 QP  點閱數:571 回應數:6

樓主

阿高
門外漢
0 1
18 3
發送站內信

我想讓幾個ComboBox和TextBox連動顯示資料,但是遇到一個問題,ComboBox1和ComboBox3都可以正常作用,讓ComboBox2和其他TextBox顯示資料,但是ComboBox2沒辦法讓ComboBox1和ComboBox3和其他TextBox顯示資料,都是用一樣的程式碼,搞了一個禮拜不知道問題到底出在哪裡,請求各位大神幫忙解答@@
程式碼如下:
Private Sub ComboBox1_Change()

Dim j As Integer

j = 1

Do
j = j + 1

If Sheets("工作表1").Range("B" & j) = "" Then Exit Do

If Sheets("工作表1").Range("B" & j) = ComboBox1 Then

ComboBox2 = Sheets("工作表1").Range("A" & j)
TextBox1 = Sheets("工作表1").Range("E" & j)
TextBox2 = Sheets("工作表1").Range("F" & j)
TextBox3 = Sheets("工作表1").Range("O" & j)

End If

Loop

If ComboBox1 = "" Then
ComboBox2 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End If

End Sub


Private Sub ComboBox2_Change()

Dim j As Integer

j = 1

Do
j = j + 1

If Sheets("工作表1").Range("A" & j) = "" Then Exit Do

If Sheets("工作表1").Range("A" & j) = ComboBox2 Then

ComboBox1 = Sheets("工作表1").Range("B" & j)
TextBox1 = Sheets("工作表1").Range("E" & j)
TextBox2 = Sheets("工作表1").Range("F" & j)
TextBox3 = Sheets("工作表1").Range("O" & j)

End If

Loop

If ComboBox2 = "" Then
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End If

End Sub

Private Sub ComboBox3_Change()
ComboBox2 = ""
ComboBox2.Clear
ComboBox1.Clear
TextBox5 = ""
TextBox3 = ""
TextBox4 = ""

Dim j As Integer

j = 1

Do
j = j + 1

If Sheets("工作表1").Range("D" & j) = "" Then Exit Do

If Sheets("工作表1").Range("D" & j) = ComboBox3 Then

ComboBox2.AddItem Sheets("工作表1").Range("A" & j)
ComboBox1.AddItem Sheets("工作表1").Range("B" & j)

End If

Loop
End Sub

搜尋相關Tags的文章: [ EXCEL VBA ] ,
本篇文章發表於2019-02-18 20:45
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

roar
檢舉此回應
檔案可以post看看嗎?
本篇文章回覆於2019-03-04 13:28
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

阿高
檢舉此回應
檔案網址:https://drive.google.com/open?id=12b95vN54FBBi7Bj1vTnCPJJBs1zDsTaW
本篇文章回覆於2019-03-04 14:34
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

roar
檢舉此回應
高你是要求,商品編號1按下去時,商個品名稱1和商品類別1要依combobox的選取結果,顯示查詢後的資料嗎?
本篇文章回覆於2019-03-06 13:37
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
作者回應

阿高
檢舉此回應
roar 對,可是一直沒辦法讓他們連動@@
本篇文章回覆於2019-03-06 14:08
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
最有價值解答

roar
檢舉此回應
參考看看: https://drive.google.com/open?id=1fHmbeF2ShDqRoZ6iK38SB4jd5b7USJn7
但有些程序好像不是很順,如由編號要再去看類別

在開ㄝ氻妍茷~編號combobox data 放入
Dim s As Integer
s = 1
Do
s = s + 1

商品編號1.AddItem Sheets("庫存資料").Range("A" & s)

Loop Until Sheets("庫存資料").Range("A" & s) = ""
本篇文章回覆於2019-03-06 15:49
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
作者回應

阿高
檢舉此回應
roar 謝謝大神幫我解決問題😁😁😁
本篇文章回覆於2019-03-08 14:23
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.