| |
▼ハチ さん：
>▼まっき さん：
>>ご返事ありがとうございます。でも、
>>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
ありがとうございます。
コマンドボタンは2のほうにあります。
ちなみに、文字間違いは確認いたしましたがないです。
|
|
まっき
- 06/7/14(金) 14:22 -
