| |
少し、狙いを整理してみてください。
要するに、Userformを処理の引き金とする事ですので、
フォームをModalで表示するのであれば、標準モジュールでも
構いません。Userformが閉じるまでコードの流れは
Stopしますから。Userformが閉じた後にUserformの
戻り値で処理を分配するだけですね。
しかし、今回の質問がUserformを表示したまま処理を
したいことですので、Modelessになります。
ならば、実現したいコードを標準モジュールに
書いてしまうと標準モジュールのコードは
そのまま進行します。なので、そのまま進行しても
影響されない部分に書く必要がありますね。
だから、直接Userformモジュールに記述することに
なります。
ご提示のコードだけじゃ全体が見えませんが、
考え方として↓の方法がよろしいかと思います。
（例）
' 標準モジュール
Sub insatsu()
Dim gyo As Long
Dim Ws As Excel.Worksheet
Dim HPBreak As Excel.HPageBreak
Set Ws = ActiveSheet
gyo = 50
ActiveSheet.DisplayPageBreaks = True
UserForm1.Show vbModeless
End Sub
' Userformモジュール
Private Sub CommandButton1_Click()
' 行追加処理 ...
MsgBox "行追加処理です。"
End Sub
|
|
Abyss
- 09/4/24(金) 13:36 -
