Excel VBA質問箱 IV

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

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


20695 / 76732 ←次へ | 前へ→

【61450】Re:clickイベントへの引数の渡し方
質問  satsuki  - 09/5/8(金) 17:41 -

引用なし
パスワード
   ▼neptune さん:
お返事ありがとうございます。

>1.insatsu(MyShokichi As Shokichi)
>の定義に直して下さい。
>2.別にuserformを開くプロシージャを作成して下さい。
>3.Type Shokichi  を
>  public Type Shokichi  
>に明示的に広域のスコープを持たせて下さい。

2.別にuserform1を開くプロシージャを作成し、UserForm1を開くように
しました。
Public Sub Yobidashi()
   ・
   ・
 UserForm1.Show vbModeless
End sub

3.Publicでユーザー定義型を宣言しました。
Public Type Shokichi  
 TitleArea As Range
 TitleGyo As Integer
 gyo As Integer
 MaxRetsu as Integer
   ・
   ・
End Type

1.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引数の型が一致しません」というエラーがでます。
1 hits

【61444】clickイベントへの引数の渡し方 satsuki 09/5/8(金) 14:45 質問
【61446】Re:clickイベントへの引数の渡し方 neptune 09/5/8(金) 15:04 発言
【61447】Re:clickイベントへの引数の渡し方 satsuki 09/5/8(金) 16:12 質問
【61448】Re:clickイベントへの引数の渡し方 neptune 09/5/8(金) 16:47 回答
【61450】Re:clickイベントへの引数の渡し方 satsuki 09/5/8(金) 17:41 質問
【61451】Re:clickイベントへの引数の渡し方 neptune 09/5/8(金) 18:26 回答
【61462】Re:clickイベントへの引数の渡し方 satsuki 09/5/11(月) 9:49 お礼

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