Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69908 / 76738

←次へ　｜　前へ→


	【11343】Re:フォームを開くときに配列を渡すには

Kein - 04/3/6(土) 0:49 -


	引用なし

	パスワード

Variant型の配列を、標準モジュールで宣言しておくと配列を渡せます。
☆テスト環境 : UserForm1 → TextBox と CommandButton を配置
　　　　　　　 UserForm2 → ListBox を配置
　　　　　　　UserForm1のTextBoxに、カンマ区切りの文字列を入れて
　　　　　　　ボタンを押す。　
○標準モジュール

Public MyAry As Variant

○UserForm1モジュール

Private Sub CommandButton1_Click()
　 If InStr(1, TextBox1.Text, ",") = 0 Then Exit Sub
　 MyAry = Split(TextBox1.Text, ",")
　 UserForm1.Hide
　 UserForm2.Show
End Sub

○UserForm2モジュール

Private Sub UserForm_Initialize()
　 ListBox1.List() = MyAry
End Sub

Private Sub UserForm_Terminate()
　 Unload UserForm1
End Sub　

0 hits

▼

【11324】フォームを開くときに配列を渡すには 倉本正弐 04/3/5(金) 13:26