Excel VBA質問箱 IV

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

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


64971 / 76734 ←次へ | 前へ→

【16340】Re:リストボックスのX印で閉じたことを知るには
お礼  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 "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入力
ではうまく動作します。
不思議????です。

0 hits

【16328】リストボックスのX印で閉じたことを知るには Kobasan 04/7/25(日) 15:10 質問
【16331】Re:リストボックスのX印で閉じたことを知... IROC 04/7/25(日) 15:33 回答
【16336】Re:リストボックスのX印で閉じたことを知... Kobasan 04/7/25(日) 16:06 質問
【16339】Re:リストボックスのX印で閉じたことを知... IROC 04/7/25(日) 17:01 回答
【16340】Re:リストボックスのX印で閉じたことを知... Kobasan 04/7/25(日) 18:42 お礼
【16343】Re:リストボックスのX印で閉じたことを知... IROC 04/7/25(日) 18:59 回答
【16346】Re:リストボックスのX印で閉じたことを知... Kobasan 04/7/25(日) 20:10 お礼
【16348】Re:リストボックスのX印で閉じたことを知... IROC 04/7/25(日) 21:22 回答
【16358】Re:リストボックスのX印で閉じたことを知... Kobasan 04/7/26(月) 8:17 お礼

64971 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free