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

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

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-3-30 16:01 | 只看該作者

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

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

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

3^#

發表於 2014-3-30 16:16 | 只看該作者

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

Book4.rar (17.26 KB)

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

4^#

發表於 2014-3-31 15:56 | 只看該作者

回復 3# t8899

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

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

複製代碼

TOP

t8899

大學生 Rank: 4

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

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

t8899

大學生 Rank: 4

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

6^#

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

回復 t8899

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

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

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

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

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