ComboBox1 讀不到??

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

樓主熱帖

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

2^#

發表於 2014-3-30 16:16 | 顯示全部帖子

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

Book4.rar (17.26 KB)

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

3^#

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

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

4^#

發表於 2014-3-31 21:09 | 顯示全部帖子

回復 t8899

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

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

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

5^#

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