Excel VBA質問箱 IV

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

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


46478 / 76732 ←次へ | 前へ→

【35224】クラスモジュールと配列
質問  mmmm  - 06/2/23(木) 22:38 -

引用なし
パスワード
   クラスモジュールで配列を引数とするプロパティを作り、標準モジュールから
そのプロパティに配列をセットしようとしたら、「配列には割り当てられません」
というコンパイルエラーが返ってきました。また、配列を引数とするメソッドを
作成し、標準モジュールからそのメソッドに配列をセットしようとしたら、
「型が一致しません:配列またはユーザ定義型を指定してください。」と、
配列を指定してるのにもかかわらず怒られました。

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

(クラスモジュールClass1 プロパティ版)
Private this_TestData() As String
'
' Let PTestData() 文字列の配列のSETTER
'     引数: 文字列の配列
'   処理概要: 文字列の配列をセットする。
'
Public Property Let PTestData(ByRef strTestData() As String)
  this_TestData = strTestData
End Property
(標準モジュール プロパティ版)
Sub Test_Array()
  Dim MyArray(3) As String
  Dim objTest As Class1

  objTest.PTestData = MyArray
End Sub

(クラスモジュールClass1 メソッド版)
Private this_TestData() As String
'
' ArrayTestData() 文字列の配列を設定
'     引数: 文字列の配列
'   処理概要: 文字列の配列をセットする。
'
Public Sub ArrayTestData(ByRef strTestData() As String)
  this_TestData = strTestData
End Sub
(標準モジュール メソッド版)
Sub Test_Array()

  Dim MyArray(3) As String
  Dim objTest As Class1

  objTest.ArrayTestData (MyArray)
End Sub
0 hits

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

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