| |
▼まっき さん：
>ご返事ありがとうございます。でも、
>If Controls("checkbox" & Format(idx, "00")).Value Thenの部分で
>「オブジェクトが見つかりません」とエラーがでます。
>
>チェックﾎﾞｯｸｽの名前もちゃんと合っています。
横から失礼します。
Controls("checkbox" → Checkbox となっているのではないですか？
UserForm2チェックボックス全部が
対象ならこんな感じでもできると思います。
コマンドボタンはForm1とForm2どっちにあるのでしょうか？
'UserForm2モジュール
Option Explicit
Private Sub UserForm_Initialize()
Dim Obj As Object
Dim i As Integer
i = 1
For Each Obj In Me.Controls
If TypeName(Obj) = "CheckBox" Then
Obj.Tag = Format(i, "00")
i = i + 1
End If
Next Obj
End Sub
'コマンドボタンのあるFormモジュールへ
Private Sub CommandButton1_Click()
Dim Str As String
Dim Obj As Object
For Each Obj In UserForm2.Controls
If TypeName(Obj) = "CheckBox" Then
If Obj.Value = True Then
Str = Str & "," & Obj.Tag
End If
End If
Next Obj
UserForm1.TextBox1.Value = Mid(Str, 2)
End Sub
|
|
ハチ
- 06/7/14(金) 13:43 -
