ComboBox1 讀不到??

t8899

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

GBKEE

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

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

複製代碼

t8899

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

Book4.rar (17.26 KB)

下載次數: 10

2014-3-30 16:16

owen06

回復 3# t8899

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

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

複製代碼

t8899

回復  t8899

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

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

t8899

回復  t8899

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

框框 的數值10000 有無辦法另外指定等於b1的值??

下載 (11.46 KB)

2014-3-31 21:09

owen06

回復 5# t8899

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

1. Private Sub ComboBox1_Click()
   
2. [h1].Value = Sheet4.ComboBox1.Text
   
3.      With Sheet4.ComboBox1
   
4.              .Clear
   
5.              .AutoSize = True
   
6.              .AddItem Sheet1.[m2].Value + 4
   
7.      End With
   
8. [h1].Select
   
9. End Sub

複製代碼

t8899

至於你下面那個問題，我資質不好，看不太懂吶，至於你下面那個問題，我資質不好，看不太懂吶…
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