ComboBox1 讀不到??

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

樓主熱帖

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-23

8^#

發表於 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

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

7^#

發表於 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

複製代碼

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-23

6^#

發表於 2014-3-31 21:09 | 只看該作者

回復 t8899

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

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

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-23

5^#

發表於 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

TOP

owen06