Excel VBA質問箱 IV

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

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


69906 / 76738 ←次へ | 前へ→

【11345】Re:フォームを開くときに配列を渡すには
回答  Jカーター  - 04/3/6(土) 8:05 -

引用なし
パスワード
   こんにちは。
(何型の配列を渡したいのか不明なので3例ほど)

UserForm1モジュール
------------------------------------------------------------------------
Option Explicit
'Showの前にUserForm2側のプロシージャを使って配列を渡す
Private Sub CommandButton1_Click()
  Dim sAR(2) As String
  Dim lAR(2) As Long
  Dim vAR  As Variant
  
  sAR(0) = "A"
  sAR(1) = "B"
  sAR(2) = "C"
  
  lAR(0) = 1
  lAR(1) = 2
  lAR(2) = 3
  
  vAR = Array("XX", "YY", "ZZ")
  
  With UserForm2
    Call .ArraySet(sAR(), lAR(), vAR)
    .Show
  End With
End Sub

UserForm2モジュール
---------------------------------------------------------------------
'変数宣言はDimでOK
Option Explicit
Dim StrT() As String
Dim LngT() As Long
Dim VntT  As Variant

'配列を受け取るプロシージャ
Sub ArraySet(STmp() As String, LTmp() As Long, VTmp As Variant)
  StrT = STmp
  LngT = LTmp
  VntT = VTmp
End Sub

'確認用
Private Sub CommandButton1_Click()
  Dim V As Variant
  For Each V In StrT
    MsgBox V
  Next V
  For Each V In LngT
    MsgBox V
  Next V
  For Each V In VntT
    MsgBox V
  Next V
End Sub

ちょっとややこしいけど
標準モジュールはできれば使いたくないので・・・

※例なので
String,Long,Variantの三つを同時に書いています。
必要なところだけに絞って下さい。

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 回答

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