是否要寫30個 Private Sub CheckBox*_Change()才可?

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

7^#

發表於 2011-1-30 14:42 | 只看該作者

本帖最後由 FAlonso 於 2011-1-30 16:34 編輯

那個msforms是怎樣出來的? 我的vba沒有這個選擇

已解決..工具->設定引用項目->瀏覽->找windows\system32\fm20.dll便OK

80 字節以內
不支持自定義 Discuz! 代碼

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

6^#

發表於 2011-1-29 01:39 | 只看該作者

回復 5# yangjie

亦感謝GBKee 版主曾經指導類別模組VBA
很高興能夠突破此難題

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

5^#

發表於 2011-1-29 01:34 | 只看該作者

回復 2# Hsieh

謝謝Hsieh版主:    OK 了  做以下修正就OK了
Option Explicit
Dim newcontrol() As New Class1
Private Sub UserForm_Initialize()
  ReDim newcontrol(1 To 27)
For I = 1 To 27
      Set newcontrol(I).Comd = Controls("CheckBox" & I)
Next
End Sub
於類別模組下
Public WithEvents Comd As MSForms.CheckBox
Private Sub Comd_Click()
userform3.ListBox1.Clear
For I = 1 To 27
      If userform3.Controls("CheckBox" & I).Value = True Then
         x = userform3.Controls("CheckBox" & I).Caption
         userform3.ListBox1.AddItem x
      End If
Next
End Sub

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

4^#

發表於 2011-1-29 01:25 | 只看該作者

本帖最後由 yangjie 於 2011-1-29 01:51 編輯

回復 2# Hsieh

請教Hsieh版主:
自己嘗試看看
Option Explicit
Dim newcontrol() As New Class1
Private Sub UserForm_Initialize()
  ReDim newcontrol(1 To 27)
For I = 1 To 27
      Set newcontrol(I).Comd = Controls("CheckBox" & I)
Next
End Sub
於類別模組下
Public WithEvents Comd As MSForms.CommandButton
Private Sub Comd_Click()
ListBox1.Clear
For I = 1 To 27
      If Controls("CheckBox" & I).Value = True Then
         x = Controls("CheckBox" & I).Caption
         ListBox1.AddItem x
      End If
Next
End Sub
不知哪裡出差錯???

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

3^#

發表於 2011-1-29 00:58 | 只看該作者

回復 2# Hsieh

請教Hsieh版主:
可否教個範例(因從未寫過)