| |
▼neptune さん：
お返事ありがとうございます。
>１．insatsu(MyShokichi As Shokichi)
>の定義に直して下さい。
>２．別にuserformを開くプロシージャを作成して下さい。
>３．Type Shokichi を
> public Type Shokichi
>に明示的に広域のスコープを持たせて下さい。
２.別にuserform1を開くプロシージャを作成し、UserForm1を開くように
しました。
Public Sub Yobidashi()
・
・
UserForm1.Show vbModeless
End sub
３.Publicでユーザー定義型を宣言しました。
Public Type Shokichi
TitleArea As Range
TitleGyo As Integer
gyo As Integer
MaxRetsu as Integer
･
･
End Type
１.Sub insatsu(MyShokichi As Shokichi)の定義に直し、
Userform1のclickイベントの中でcallしました。
>settei、insatsu、UserForm内、その他の処理が良く判らないのでなんとも
>言えませんが、必要な所で
>>callして動かす
>です。
Sub insatsu(MyShokichi As Shokichi)
・
'印刷処理
・
End Sub
' Userformモジュール
Private Sub CommandButton1_Click()
call insatsu(MyShokichi As Shokichi) ←ここでエラー
' 行追加処理 ...
End Sub
Sub settei()は、変数に値を入れるプロシージャです。
Sub settei()
Dim MyShokichi As Shokichi
・
・
Set MyShokichi.TitleArea = '範囲
Set MyShokichi.TitleGyo = '数値
・
・
end sub
Sub insatsu(MyShokichi As Shokichi)などの中では、
ユーザー定義型を変数として使用しています。
UserForm1の中では、改ページ指定した後の足りない行を
挿入しています。
ユーザーフォーム以外は、すべて標準モジュールに記述しています。
call insatsu(MyShokichi As Shokichi)のところで、
「修正候補：区切り記号または）」というエラーがでます。
call insatsu(MyShokichi)としてみると
「Byref引数の型が一致しません」というエラーがでます。
|
|
satsuki
- 09/5/8(金) 17:41 -
