Excel VBA質問箱 IV

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

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


76146 / 76738 ←次へ | 前へ→

【5017】MsgBoxでのWクリック防止
質問  ishy E-MAIL  - 03/4/17(木) 14:37 -

引用なし
パスワード
   皆さんこんにちは

MsgBoxでのWクリックを防止するにはどうしたら良いでしょうか。

例:保存先に指定されたフォルダにファイルがあれば
上書きするかメッセージを出します。

OKならそのまま上書きを行い、キャンセルなら
TextBoxにセットフォーカスを行い、ユーザに
再度、保存先を指定しなおしてもらいます。

このとき、OKボタンを早く押すと、エラーが出ます。
一回目のOKボタンでクリックで、このまま本文のモジュールを
動かすのですが、2回目のクリックですぐ本文のモジュールを
続いて追いかけて動かすために、エラーになってるようです。

この2回目のクリックを防ぎたいのです。

Sub test
dim SavePath as string

SavePath = D:\D:\Temp\test.XLS


  If Dir(SavePath, vbNormal) <> "" Then
    If MsgBox("指定されたフォルダには" & vbCrLf & _
    " " & SavePath & vbCrLf & _
    "と同名ファイルが存在しています。上書きしますか?", _
      vbInformation + vbOKCancel, ActiveSheet.Name) = vbCancel Then
      TextBox_FileSavePath.SetFocus
      Exit Function
    End If
  End If

end sub

特にこの時だけでなく、今までメッセージボックスのvbOKCancelボタンで
Wクリックについての処置をしてません。
みなさんはどのように処理されてますでしょうか。
教えて下さい。

2 hits

【5017】MsgBoxでのWクリック防止 ishy 03/4/17(木) 14:37 質問

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