Excel VBA質問箱 IV

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

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


46477 / 76732 ←次へ | 前へ→

【35225】Re:クラスモジュールと配列
発言  kobasan  - 06/2/24(金) 0:41 -

引用なし
パスワード
   今晩は。

>どなたか教えて下さい。クラスモジュールでは、配列を引数に出来ないのですか?
>参考までにコードを載せます。よろしくお願い致します。

これで一応、配列を渡しています。参考にしてください。

'[クラスモジュール Class1]
Public Result As Variant '計算結果を格納するプロパティ
Private u As Variant

'dataAを設定するプロパティ
Public Property Let dataA(ByVal p As Variant)
  '計算.dataA =MyArray のとき、 P=MyArray の動作をする
  u = p
End Property

'計算処理するメソッド作成
Public Sub Calc()
  ReDim Result(1 To 2)
  Result(1) = u(0) + "+" + u(1)  '和
  Result(2) = u(0) + "*" + u(1)  '積
End Sub

'標準モジュール
Sub test()
Dim 計算 As New Class1  'インスタンスの生成
Dim MyArray As Variant
  MyArray = Array("a", "b")
  計算.dataA = MyArray

  計算.Calc    '計算を実行
  '
  '結果を表示
  MsgBox "和= " & 計算.Result(1) & vbCrLf & _
      "積= " & 計算.Result(2), , "aとbの計算結果"
End Sub
1 hits

【35224】クラスモジュールと配列 mmmm 06/2/23(木) 22:38 質問
【35225】Re:クラスモジュールと配列 kobasan 06/2/24(金) 0:41 発言
【35242】Re:クラスモジュールと配列 mmmm 06/2/24(金) 9:43 お礼

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