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

av8d

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

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

oobird

附件示例
class_CheckBox.rar (10.13 KB)

下載次數: 24

2012-8-1 08:06

av8d

回復 2# oobird


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

GBKEE

回復 3# av8d
2# oobird  附檔 物件類別模組

1. Option Explicit
   
2. Public WithEvents CheckboxGroup As MSForms.CheckBox
   
3. Private Sub CheckboxGroup_Click()
   
4.    '-------方法1  直接給它
   
5.    UserForm1.TextBox1 = CheckboxGroup.Caption
   
6.    
   
7.    '-------方法2 點一下CommednBurron
   
8.    '說明 UserForm1模組 需 Public xlText as  String
   
9.      UserForm1.xlText = CheckboxGroup.Caption
   
10.    '說明 UserForm1中 CommednBurron 程式-> UserForm1.TextBox1 = UserForm1.xlText
    
11.    
    
12.    'MsgBox "You Click " & CheckboxGroup.Caption & vbNewLine & _
    
13.     "Value is " & CheckboxGroup.Value
    
14. End Sub

複製代碼

av8d

回復 4# GBKEE


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

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

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

class_CheckBox.rar (12.23 KB)

下載次數: 5

2012-8-1 21:34

Hsieh

回復 5# av8d

稍微了解一下物件類別的流程
class_CheckBox.rar (15.09 KB)

下載次數: 13

2012-8-2 00:19

GBKEE

回復 5# av8d
我在4# 有寫是 2# oobird  附檔 物件類別模組
物件類別模組 cControlArray 程序 如下

1. Option Explicit
   
2. Public WithEvents CheckboxGroup As MSForms.CheckBox
   
3. Private Sub CheckboxGroup_Click()
   
4.     UserForm1.xlText = CheckboxGroup.Caption
   
5. End Sub

複製代碼

UserForm1 的程式碼

1. Public xlText As String
   
2. Private Sub CommandButton1_Click()
   
3.    '說明 UserForm1中 CommednBurron 程式
   
4.    UserForm1.TextBox1 = UserForm1.xlText
   
5. End Sub
   
6. Private Sub UserForm_Initialize()
   
7. Dim cCBs As Integer
   
8. Dim ctl As Control
   
9.    cCBs = 0
   
10.    For Each ctl In Me.Controls
    
11.        If TypeName(ctl) = "CheckBox" Then
    
12.            cCBs = cCBs + 1
    
13.            ReDim Preserve aryCBs(1 To cCBs)
    
14.            Set aryCBs(cCBs).CheckboxGroup = ctl
    
15.        End If
    
16.    Next ctl
    
17. End Sub

複製代碼

我之所以不直接上傳檔案 是希望各位多練習才會進步的

av8d

回復 7# GBKEE


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

av8d

回復 7# GBKEE


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

GBKEE

回復 9# av8d

7# 是 UserForm1 的程式碼
有許多 UserForm 那在每一UserForm 程式碼中 依樣畫葫蘆寫下它自己的程式碼