Excel VBA質問箱 IV

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

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


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

4789 / 76732

←次へ　｜　前へ→


	【77559】マクロ実行後に「応答なし」

viaggio - 15/10/22(木) 16:33 -


	引用なし

	パスワード

作成したマクロを実行し問題なく処理完了はするのですが、
その後、しばらく(1～2分ほど)「応答なし」となり動作が止まります。
同一ファイルでも、同じような現象が起きるマクロと起きないマクロがあります。
原因や解決策、わかりましたら教えてください。
現象が起きるマクロの一例↓
------------------------------------------------------------
Sub 選択した項目の前回登録情報をコピー()

Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

bName = Excel.ActiveWorkbook.Name
sName = Excel.ActiveSheet.Name

S_R = Selection(1).Row
E_R = Selection(Selection.Count).Row
S_C = Selection(1).Column
E_C = Selection(Selection.Count).Column

rc = MsgBox("選択しているセルの内容を、前回登録時の情報に書き換えます。" & (Chr(10) & Chr(13)) & _
"この機能はセルの位置が完全一致している時のみ使用できます。" & (Chr(10) & Chr(13)) & _
"よろしければ[OK]を押下してください。", vbOKCancel + vbQuestion, "※要注意※")
　　
　　　　If rc = vbOK Then
　　　　
　　　　　GoTo LABEL_1
　　　　　　
　　　　　　Else
　　　　　
　　　　　MsgBox "処理を中断します"
　　　　　Exit Sub
　　　　　End If

LABEL_1:
　　
　　Windows("151022_同一再稼働支援ツール.xlsm").Activate
　　Worksheets("登録票").Activate
　　Range(Cells(S_R, S_C), Cells(E_R, E_C)).Select

　　Selection.Copy
　　Windows(bName).Activate
　　Worksheets(sName).Activate
　　Range(Cells(S_R, S_C), Cells(E_R, E_C)).Select
　　
　　Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
　　　　xlNone, SkipBlanks:=False, Transpose:=False
　　　　
　　　　Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

0 hits

▼

【77559】マクロ実行後に「応答なし」 viaggio 15/10/22(木) 16:33