Excel VBA質問箱 IV

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

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


69902 / 76732 ←次へ | 前へ→

【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 質問
【11325】Re:フォームを開くときに配列を渡すには Jカーター 04/3/5(金) 13:43 回答
【11345】Re:フォームを開くときに配列を渡すには Jカーター 04/3/6(土) 8:05 回答
【11346】Re:フォームを開くときに配列を渡すには Jカーター 04/3/6(土) 8:19 回答
【11412】Re:フォームを開くときに配列を渡すには 倉本正弐 04/3/8(月) 20:58 お礼
【11414】Re:フォームを開くときに配列を渡すには Jカーター 04/3/8(月) 21:16 回答
【11343】Re:フォームを開くときに配列を渡すには Kein 04/3/6(土) 0:49 回答

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