|
▼カラスミ さん:
>標準モジュールにて、
>
>dim uriage as boolean
>uriage = false
>call F顧客(uriage)
>
>フォームのオープン時に
>
>Private Sub UserForm_Initialize(ByVal uriage As Boolean)
> CommandButton2.Enabled = uriage
>
>という風に変数uriageの値を渡したいのですが、functionプロシージャでは
>無いためかどうか解らないのですが、エラーとなります。
>フォームのオープン時に、コマンドボタンを使えるようにするか、しないか
>をしたいのですが、どうすればよろしいのでしょうか?
こんにちは
こんな感じで如何でしょうか?(変数をPublicで宣言する)
’標準モジュール
Public uriage As Boolean
Sub Test()
uriage = False
Call d顧客
End Sub
Private Sub d顧客()
UserForm1.Show
End Sub
’以下UserFormのモジュール
Private Sub UserForm_Initialize()
CommandButton2.Enabled = uriage
End Sub
|
|