新規会員登録における電話番号登録必須化のお知らせ

こんにちは 以下のようなコードで時刻になったら動作をするマクロを組んでいます。

実際には動くのですが、問題があります。
自動で動作中に画面がチラチラなり始めて、そこでフリーズのような形になってしまうのです。

一番おおもとになるデータは外部から読み込んでいるので、下のコードに問題が無ければそちらが問題になっているのかなぁと疑問に思っています。

その場合、外部からのデータ受信をマクロで一時中止する事も出来るのでしょうか?
もし出来るのであれば実際のコードを教えて頂きたいです。

よろしくお願い致します。

Sub 転記スタート()
'開始
Application.OnTime EarliestTime:=TimeValue("04:00:00"), Procedure:="開始"
EndSub

Sub 開始()
Sheets("〇〇〇").Select
Range("H2").Select
Selection.Copy

Range("R2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("H4:I31").Select
Selection.Copy

Range("R4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("BK4:BM31").Select

Selection.Copy
Range("BK36").Select

ActiveSheet.Paste

Sheets("▲▲▲").Select
Range("A1:C1").Select
EndSub

質問者からの補足コメント

  • うれしい

    再回答いただき、ありがとうございます。

    対象のファイルが触れない上に、体調まで、、

    試してみてお返事しますのでそれまでお願いします!

    ごめんなさい!

    No.6の回答に寄せられた補足コメントです。 補足日時:2022/02/07 20:31
教えて!goo グレード

A 回答 (6件)

連投ですみません



>その場合、外部からのデータ受信をマクロで一時中止する事も出来るのでしょうか?
データ受信と記してもいろいろあると思いますが、下記の情報は参考になりますでしょうか?
https://oshiete.goo.ne.jp/qa/3342738.html

https://oshiete.goo.ne.jp/qa/3035339.html

#4#5のコード纏め
Sub 開始()
Application.ScreenUpdating = False
With Sheets("〇〇〇")
.Range("R2").Value = .Range("H2").Value
.Range("R4").Resize(28, 2).Value = .Range("H4:I31").Value
.Range("BK4:BM31").Copy Destination:=.Range("BK36")
End With
Sheets("▲▲▲").Select
Range("A1:C1").Select
Application.ScreenUpdating = True
End Sub
この回答への補足あり
    • good
    • 0
この回答へのお礼

ありがとうございます。

差し当たり纏めたものを使いましたが、この部分ではなく、このあとすぐ行っている activeworkbook.saveが問題のようでした。

考えて頂き、ありがとうございました。

お礼日時:2022/02/13 02:44

他の方が指摘されるかも知れませんげ


#4に付け加え
xlPasteValues ならば 代入で良いと思います
    • good
    • 0
この回答へのお礼

はい、そうしてみます!

お礼日時:2022/02/05 20:35

こんばんは


他の要因が原因かもしれませんが、
コードのSelect Selection 問題ありなのでは?

Application.ScreenUpdatingなども含め、検討してみてください。
過去質問でも何度か触れられている事柄と記憶していますが、記憶違いかもしれません。
    • good
    • 0
この回答へのお礼

ありがとうござます。
マクロの記録で作ったヤツだったので再確認して見ます。

動作を遅くしたりするほどのマクロは動いてないのですが、画面更新も止めてみます!

お礼日時:2022/02/05 20:34

>>それをやっていて、その途中で質問してるんですよ?


大丈夫ですか?

タイトルだけ見て、まったく分かってないと思ったのでね。
失礼しました。
気分害したので、お仕舞い。
    • good
    • 0
この回答へのお礼

病気なんだね

知らない事には首を突っ込まないように
時間の無駄でしかないからね

お礼日時:2022/02/05 18:04

一応、最後まで読んでみましたが、


外部から読み込んでる感が伝わってこなくてよくわかりませんでした。

おっしゃる通り、たぶんそれが問題なんだろうなと思いました。
    • good
    • 0
この回答へのお礼

ありがとうございます。
ですよねぇ・・・

お礼日時:2022/02/05 17:31

エクセル マクロ は、質問文に書かれたように、実体は、エクセルVBAというプログラムです。


ですので、このプログラムを使いこなせて、修正・追加できれば、やりたいことがたぶんできるでしょう。
    • good
    • 0
この回答へのお礼

はい?

それをやっていて、その途中で質問してるんですよ?
大丈夫ですか?

お礼日時:2022/02/05 15:43

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング