麻辣家族討論版版 - Powered by Discuz! Board

標題: ComboBox1 讀不到?? [打印本頁]

作者: t8899 時間: 2014-3-30 14:33 標題: ComboBox1 讀不到??

Private Sub ComboBox1_Click()
[h1].Value = Sheet4.ComboBox1.Text
End Sub
Private Sub ComboBox1_Change()
ComboBox1 = Sheet4.Range("a1:a10")
End Sub

作者: GBKEE 時間: 2014-3-30 16:01

回復 1# t8899
ComboBox1 讀不到?? 要看看你的檔案

Private Sub ComboBox1_Change()
ComboBox1.List = Sheet4.Range("a1:a10").Value
End Sub

複製代碼

作者: t8899 時間: 2014-3-30 16:16

回復 t8899
ComboBox1 讀不到?? 要看看你的檔案
GBKEE 發表於 2014-3-30 16:01

[attach]17907[/attach]

作者: owen06 時間: 2014-3-31 15:56

回復 3# t8899

因為你是用combobox change，如果你沒改變內容，動作就不會執行，所以不會去抓資料
用gotfocus就可以了

Private Sub ComboBox1_GotFocus()
ComboBox1.List = Sheet4.Range("a1:a10").Value
End Sub

複製代碼

作者: t8899 時間: 2014-3-31 20:22

回復 t8899

因為你是用combobox change，如果你沒改變內容，動作就不會執行，所以不會去抓資料
用got ...
owen06 發表於 2014-3-31 15:56

下面這段要用何方法來觸動較好??
  With Sheet4.ComboBox1
                     .Clear
                     .AutoSize = True
                     .AddItem Sheet1.[m2].Value + 4
                  End With

作者: t8899 時間: 2014-3-31 21:09

回復 t8899

因為你是用combobox change，如果你沒改變內容，動作就不會執行，所以不會去抓資料
用got ...
owen06 發表於 2014-3-31 15:56

框框的數值10000 有無辦法另外指定等於b1的值??
[attach]17917[/attach]

作者: owen06 時間: 2014-4-1 09:39

回復 5# t8899

要觸動這個條件，這樣設就行了，至於你下面那個問題，我資質不好，看不太懂吶…

Private Sub ComboBox1_Click()
[h1].Value = Sheet4.ComboBox1.Text
With Sheet4.ComboBox1
.Clear
.AutoSize = True
.AddItem Sheet1.[m2].Value + 4
End With
[h1].Select
End Sub

複製代碼

作者: t8899 時間: 2014-4-1 09:57

至於你下面那個問題，我資質不好，看不太懂吶，至於你下面那個問題，我資質不好，看不太懂吶…
owen06 發表於 2014-4-1 09:39

我試出來了
Sheet4.ComboBox1.Text====>就是框框的數字
Private Sub ComboBox1_GotFocus()
Sheet4.ComboBox1.Text = Sheet4.Range("b1").Value
ComboBox1.List = Sheet4.Range("a1:a10").Value
End Sub

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