Excel VBA質問箱 IV

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

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


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

7181 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【40674】キャンセルするとその先のマクロを実行しないｑ たっちゃん 06/7/20(木) 12:07

【40675】Re:キャンセルするとその先のマクロを実行... ｍ2ｍ10 06/7/20(木) 12:21

【40678】Re:キャンセルするとその先のマクロを実行... Jaka 06/7/20(木) 12:36

【40684】Re:キャンセルするとその先のマクロを実行... たっちゃん 06/7/20(木) 13:45


	【40674】キャンセルするとその先のマクロを実行し...

たっちゃん - 06/7/20(木) 12:07 -


	引用なし

	パスワード

「filedialogでファイルを開き、
そのファイルのSheet1をコピーし、元のファイルのSheet3に貼り付ける」
というマクロを組んでいます。

filedialogでキャンセルをしても、元のファイルのSheet1をコピーし、
元のファイルのSheet3に貼り付け、尚且つSheet1にも貼り付けてしまいます。

そこで、Filedialogのファイルを開く画面でキャンセルがされた場合には
その先のマクロを実行しない処理を行いたいのですが、
どうしたらよいのでしょうか？
どなたか教えてくださいませんでしょうか？


	【40675】Re:キャンセルするとその先のマクロを実...

ｍ2ｍ10 - 06/7/20(木) 12:21 -


	引用なし

	パスワード

こんちは

キャンセルの処理前後のマクロを入れて下さい。


	【40678】Re:キャンセルするとその先のマクロを実...

Jaka - 06/7/20(木) 12:36 -


	引用なし

	パスワード

どんなダイアログか解りませんが

pp = Application.Dialogs(xlDialogOpen).Show
If pp = False Then
　 MsgBox "キャンセル"
End If

もしくは、
GetOpenFilename
で、検索してみるとか....。


	【40684】Re:キャンセルするとその先のマクロを実...

たっちゃん - 06/7/20(木) 13:45 -


	引用なし

	パスワード

▼Jaka さん：
>どんなダイアログか解りませんが
>
>pp = Application.Dialogs(xlDialogOpen).Show
>If pp = False Then
>　 MsgBox "キャンセル"
>End If
>
>もしくは、
>GetOpenFilename
>で、検索してみるとか....。

Jakaさん、M2Mさん
ありがとうございました。
キャンセルの場合の式が入っていなかったため、
マクロが進んでしまったんですね。
キャンセルの場合のIf文を入れたら機能しました。

ありがとうございました。


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

7181 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free