Excel VBA質問箱 IV

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

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


41314 / 76732 ←次へ | 前へ→

【40499】Re:ユーザフォームのチェックボタンについて
発言  ichinose  - 06/7/15(土) 7:42 -

引用なし
パスワード
   ▼gako さん:
おはようございます。

>質問させていただいてもよろしいでしょうか。
>UserForm2を出すための「UserForm1.Show」のコードを入れる
>必要は無いのでしょうか。

[#40467] にも少し記述しましたが、このご質問には、

Userform1とUserform2の関係が明確に記述されていません。
ちょっと考えると、

1 モーダルモードでUserform1から、何かのタイミングでUserform2が呼び出される
(Showメソッドが使われる)場合

2 逆にgako さんが仰られているようにモーダルモードでUserform2から、何かのタイミングでUserform1が呼び出される(Showメソッドが使われる)場合

3 メインプロシジャーからモーダレスモードでUserform1,Userform2が表示される場合

Userform1とuserform2の関係によって、今回の事例ではわずかですが、
それでもコードの記述を変えなければならない箇所が出てきます。
今回私が提示したUserform2のコマンドボタンのクリックイベントプロシジャーは
予めUserform1は表示されているという想定でのコードです。

gako さんは上記の「2」のような想定をされていたのでしょうね?

この質問を読んだ人によって想定が様々ですよね?

だからこそ、Userform1とUserform2の関係をこの質問を読んだ人が
少しでも同一の想定ができるような記述が必要なんです。


上記の「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" & idx).Value Then
     'チェックボックスのコントロール名は
     ' checkbox1とかcheckbox2・・・・checkbox20に設定されていると
     ' とします
     ReDim Preserve chkstr(1 To cnt + 1)
     chkstr(cnt + 1) = Format(idx, "00")
     cnt = cnt + 1
     End If
    Next
  If cnt > 0 Then
    With UserForm1
     .TextBox1.Text = Join(chkstr(), ",")
     .Show
     End With
    End If
  Erase chkstr()
End Sub


こんなコードでUserform1は、表示されます。

尚、Userform1には、Textbox1のみ配置で

Userform1には、Initializeイベントが記述されていないものとします。

確認してみて下さい。

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 発言

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