早速ですが、お聞きしたいことがあります。

データ構造の配列を作成したのですが、それを行ごとに、別の標準モジュールに渡したいのですが
Errになってしまいうまく渡すことができません。

どなたか、教えてください。よろしくお願いします。

> データ構造の配列を作成したのですが、それを行ごとに、別の標準モジュールに渡したいのですが
> Errになってしまいうまく渡すことができません。

データ構造の配列・・・？
宣言文とかあれば分かりやすいのですが・・・

Dim usrStruct(99) As TestStruct

Type TestStruct
    intHoge As Integer
    strFuga As String
End Type

こんな感じなんでしょうか・・・？

返信ありがとうございます。
ソースを抜粋して載せてみました。

引数を受け取ろうとすると落ちるんですよ...


標準モジュール内-------------------------------------------------

定義
Private Type EntaiData
    KCode           As String
    KanaName        As String
    dtSiharai       As String
    Entaikin        As String
    Zante           As String
    Misyuukin       As String
    OkRisoku        As String
    NgRisoku        As String
    Gankin          As String
End Type

Private Prig_EntaiData() As EntaiData

受渡し

Cas_ExcelEdit0750(Prig_EntaiData(LoopCnt)) = False Then

------------------------------------------------------------------------------
違う標準モジュール内-------------------------------------------------
受け取り 部分
ここに遷移した瞬間落ちます。
Public Function Cas_ExcelEdit0750(ByRef Test() As EntaiData) As Boolean

------------------------------------------------------------------------------

> 標準モジュール内-------------------------------------------------
> Private Type EntaiData
(中略)
> End Type

『Private宣言されたユーザーデータ型』を『違う標準モジュール内』で使う事はできないかと。

あと、

>  Cas_ExcelEdit0750(Prig_EntaiData(LoopCnt)) = False Then

こういう渡し方をするんであれば

> Public Function Cas_ExcelEdit0750(ByRef Test() As EntaiData) As Boolean

受け側は配列にする必要はないと思います。

皆様のおっしゃるとおり

Private Type EntaiData　→ Public Type EntaiData
                 +
Cas_ExcelEdit0750(Prig_EntaiData()) = False Then

と修正したところ、引数を受け渡すことがでしました。
大変ありがとうございました。