|
▼まっき さん:
>ご返事ありがとうございます。でも、
>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
|
|