Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


41344 / 76732 ←次へ | 前へ→

【40469】Re:ユーザフォームのチェックボタンについて
質問  まっき  - 06/7/14(金) 13:06 -

引用なし
パスワード
   ▼ichinose さん:
>▼まっき さん:
>こんにちは。
>
>>教えていただきたいのですが、
>>
>>ユーザフォーム2にチェックボタンを20個つくり、それぞれに「01〜20」までの
>>値を代入して、それにチェックを入れ、コマンドボタンで入力すると
>>ユーザーフォーム1のテキストボックス1に、チェックを入れた値のものだけが
>>表示されるというのをやりたのですが、どうすればよいのでしょうか?
>このユーザーフォーム1とユーザーフォーム2の関係
>(ユーザーフォーム1から、ユーザーフォーム2を呼び出しているとか、
> ふたつともモードレスで表示しているとか)も記述してください。
>
>
>>
>>色々やってみたのですが、うまくいきません。
>できたら、こんなコードにしたけど駄目だった例も記述してください。
>まっき さんが記述したことも全て情報になりますから・・・。
>
>
>ユーザフォーム2(Userform2)のモジュールに
>
>'===================================
>Private Sub CommandButton1_Click()
>  Dim chkstr() As String
>  Dim cnt As Long
>  cnt = 0
>  Dim idx As Long
>  For idx = 1 To 20
>    If Controls("checkbox" & Format(idx, "00")).Value Then
>     'チェックボックスのコントロール名は
>     ' checkbox01とかcheckbox02・・・・checkbox20に設定されていると
>     ' とします
>     ReDim Preserve chkstr(1 To cnt + 1)
>     chkstr(cnt + 1) = Format(idx, "00")
>     cnt = cnt + 1
>     End If
>    Next
>  If cnt > 0 Then
>    UserForm1.TextBox1.Text = Join(chkstr(), ",")
>'ユーザフォーム1は、オブジェクト名がUserform1だとします
>    End If
>  Erase chkstr()
>End Sub
>
>試してみてください。

ご返事ありがとうございます。でも、
If Controls("checkbox" & Format(idx, "00")).Value Thenの部分で
「オブジェクトが見つかりません」とエラーがでます。

チェックボックスの名前もちゃんと合っています。

0 hits

【40464】ユーザフォームのチェックボタンについて まっき 06/7/14(金) 11:05 質問
【40467】Re:ユーザフォームのチェックボタンについて ichinose 06/7/14(金) 11:34 発言
【40469】Re:ユーザフォームのチェックボタンについて まっき 06/7/14(金) 13:06 質問
【40471】Re:ユーザフォームのチェックボタンについて ichinose 06/7/14(金) 13:38 発言
【40472】Re:ユーザフォームのチェックボタンについて ハチ 06/7/14(金) 13:43 発言
【40476】Re:ユーザフォームのチェックボタンについて まっき 06/7/14(金) 14:22 発言
【40480】Re:ユーザフォームのチェックボタンについて ハチ 06/7/14(金) 15:30 発言
【40482】Re:ユーザフォームのチェックボタンについて ichinose 06/7/14(金) 15:43 発言
【40489】Re:ユーザフォームのチェックボタンについて gako 06/7/14(金) 22:01 質問
【40499】Re:ユーザフォームのチェックボタンについて ichinose 06/7/15(土) 7:42 発言

41344 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free