av8d

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-8-1 00:08 | 顯示全部帖子

[發問] 如何判斷我剛所打勾的CheckBox

For i = 1 To 4
If Me.Controls("CheckBox" & i).Value = True

以上是判斷1~4是否有被打勾~但是他每次一定會從1開始判斷~
是否有方法讓他判斷哪一個是我剛打勾的CheckBox

樓主熱帖

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

2^#

發表於 2012-8-1 20:37 | 顯示全部帖子

回復 2# oobird

大大~我的意思是~我有10個CheckBox
我希望我點一下CommednBurron後將我最後一個點下的CheckBox.Caption的值丟給TextBox1

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

3^#

發表於 2012-8-1 21:34 | 顯示全部帖子

回復 4# GBKEE

G大我的意思是~我有10個CheckBox
我希望我點一下CommednBurron後
將我最後一個點下的CheckBox.Caption & CommednBurron.Caption的值丟給TextBox1

再次感謝G大在颱風天裡抽空幫助~謝謝您!

剛測試了一下~方法2會出現錯誤~我將檔案上傳如下

class_CheckBox.rar (12.23 KB)

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

4^#

發表於 2012-8-2 13:42 | 顯示全部帖子

回復 7# GBKEE

感謝各位老師在颱風天沒放假還來幫忙~此答案讓我學習了物件類別模組~

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

5^#

發表於 2012-8-7 16:04 | 顯示全部帖子

回復 7# GBKEE

請問如果要所有UserForm~是否只能在UserForm1下新增UserForm2 ? 還是能一次宣告全部UserForm ?

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

6^#

發表於 2012-8-8 11:19 | 顯示全部帖子

如何複製UserForm

我想將UserForm1複製到UserForm2

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

7^#

發表於 2012-8-8 15:14 | 顯示全部帖子

回復 10# GBKEE

因為只改以下~程式會錯亂!
Private Sub CheckboxGroup_Click()
UserForm2.xlText = CheckboxGroup.Caption
UserForm3.xlText = CheckboxGroup.Caption
UserForm4.xlText = CheckboxGroup.Caption
End Sub

是否要對
xlText 和 CheckboxGroup 變數的宣告?

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

8^#

發表於 2012-8-13 14:07 | 顯示全部帖子

回復 14# GBKEE

大大~請問UserForm2.xlText的值是?

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

9^#

發表於 2012-8-13 14:29 | 顯示全部帖子

回復 7# GBKEE
Private Sub CommandButton1_Click()
'說明 UserForm1中 CommednBurron 程式
UserForm1.TextBox1 = UserForm1.xlText
End Sub

UserForm1.xlText的值~目前我對應不出來~請大大解說~謝謝!

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

10^#

發表於 2012-8-13 14:49 | 顯示全部帖子

回復 7# GBKEE

我在說明詳細一點~大大7樓的正式我要的需求~
但是當UserForm增加~所選取的最後一個CheckBox則無法指向到最後一次點選的~
Private Sub CheckboxGroup_Click()
UserForm2.xlText = CheckboxGroup.Caption
End Sub
以上沒問題

Private Sub CheckboxGroup_Click()
UserForm2.xlText = CheckboxGroup.Caption
UserForm3.xlText = CheckboxGroup.Caption
UserForm4.xlText = CheckboxGroup.Caption
End Sub
以上是UserForm增加後~出現了問題!

TOP