|
IROCさんへ 早々に解答有り難うございました。
リストボックスではなく、ユーザーフォームでした。
何とか動作しましたが、新しい疑問も出ました。
Unload Form入力 の位置でうまく動作したりしなかったりするのはなぜですか。
どちらでも動作しそうなのですが。
ユーザーフォーム Form入力に下記コードを書き
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
FLAG = CloseMode
'CloseMode = 0 MsgBox "Xボタンです"
'CloseMode = 1 MsgBox "Xボタン以外です"
End Sub
Module1に下記コードを書き
Public FLAG As Variant
sheet1に下記コードを書きましたが
'----------------"データ入力"
Form入力.Show
data = Form入力.ListBox1.Value
Unload Form入力
'------------------------------------
If FLAG = 1 Then Cells(行, 列) = data
ではうまく動作しません。
'----------------"データ入力"
Form入力.Show
data = Form入力.ListBox1.Value
'------------------------------------
If FLAG = 1 Then Cells(行, 列) = data
Unload Form入力
ではうまく動作します。
不思議????です。
|
|