Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64975 / 76738

←次へ　｜　前へ→


	【16340】Re:リストボックスのＸ印で閉じたことを知るには

Kobasan - 04/7/25(日) 18:42 -


	引用なし

	パスワード

IROCさんへ　　早々に解答有り難うございました。
　リストボックスではなく、ユーザーフォームでした。
何とか動作しましたが、新しい疑問も出ました。

Unload Form入力　の位置でうまく動作したりしなかったりするのはなぜですか。
どちらでも動作しそうなのですが。

ユーザーフォーム　Form入力に下記コードを書き
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
　　FLAG = CloseMode
　　'CloseMode = 0　 MsgBox "Ｘボタンです"
　　'CloseMode = 1　 MsgBox "Ｘボタン以外です"
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入力
ではうまく動作します。
不思議？？？？です。

0 hits

▼

【16328】リストボックスのＸ印で閉じたことを知るには Kobasan 04/7/25(日) 15:10