| |
▼neptune さん：
お返事ありがとうございます。
>このような場合の為に、標準モジュールや、クラスモジュールなど
>外部に公開可能はモジュールが用意されています。
>こういう場合は、標準モジュールに記述した引数付きプロシージャを
>UserFormから呼び出す方法をとる事が多いと思います。
下記のようにSub insatsu()の中にUserForm1を呼び出す記述があるのですが、
UserForm1からinsatsu(MyShokichi As Shokichi)を呼び出すとなると、
UserForm1を開くモジュールはどのようにすればよいのでしょうか？
Sub insatsu()
・
・
・
UserForm1.Show vbModeless
End Sub
' Userformモジュール
Private Sub CommandButton1_Click()
' 行追加処理 ...
End Sub
>即ち標準モジュールに
>・ユーザー定義型の広域のスコープを宣言しておき、
>・public sub(又はfunction) insatsu(MyShokichi As Shokichi)
> のようなプロシージャを作成します。
下記の部分は標準モジュールに記述されており、他のプロシージャもすべて
標準モジュールに書いているのですが。
Type Shokichi
TitleArea As Range
TitleGyo As Integer
gyo As Integer
MaxRetsu as Integer
･
･
End Type
public insatsu(MyShokichi As Shokichi)のようにすると
プロシージャを作動させようとしたときのメニューにでないので
やはり下記モジュールからcallして動かすのですよね？
Sub settei()
・
・
Set MyShokichi.TitleArea = '範囲
Set MyShokichi.TitleGyo = '数値
・
・
call insatsu(MyShokichi As Shokichi)
end sub
|
|
satsuki
- 09/5/8(金) 16:12 -
