RSSユーザー
更新に時間が掛かってしまいます
大野さん
お久しぶりです。
前回の質問の件（2021年04月05日の質問）ですが、
大野様のお陰でほぼ毎日2年間楽しく使用しております。
大変ありがとうございます。
注文の部分は除いて、1行毎に下に落としていくのをずっと続けております。
1点だけ、難点が出てきました。
更新するのに、非常に遅くなってしまいました。
15秒毎に下に落としていくため、1分間に4行更新されるはずなのですが、
2行程しか更新されません。1分間に30秒位が更新に時間がかかっている状態です。
岡三RSSの関数はTICKやQUOTE等10関数もありません。以前は100関数位試しに使ってみましたが、
遅れる事はありませんでした。また、エクセルの関数も10個もないですし、下の行も数百から数千位
しかデータがありません。
特徴としては、7行目に一旦降りて、そこで15秒程エクセルが固まってから8行目に行く感じです。
VBAの記述内容をどこか変更すればよろしいでしょうか。
PCは2台共Win10で、2台共同じ症状が出ます。
どうぞ、よろしくお願いします。
Sub 記録2()
'
' 記録2 Macro
'
'
Range("N5:S5").Select
Range("N5:S5").Select
Selection.Copy
Range("N7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
NextTime = Now + TimeValue("00:00:15")
Call Application.OnTime(NextTime, "記録2")
Application.CommandBars("岡三RSS2").Controls.Item("更新").Execute
End Sub
2023年05月16日
大野 了
RSSユーザーさん、こんにちは！！
2021年04月05日の質問を見てきました。
以前に, VBAでやり取りをさせていただいた方ですね。
こちらこそ、その節はお世話になりました。
さて、ご質問の件ですが、
残念ながらご記入いただいたVBAのコードだけでは、原因の追究は難しそうです。
更新に時間がかかっているとのことですが、ペーストのところの処理にかかる感じでしょうか？
2023年05月16日
RSSユーザー
はい、その通りです。
5行目を8行目にペーストするのですが、
ペーストしている最中にフリーズする感じです。
イメージ写真を載せました。
A行とC行が1銘柄のTICK、EからMがエクセルの関数、
O行とQ行とR行が岡三RSSの関数です。
本当に、感謝と御礼の限りでございます。
2023年05月16日
大野 了
RSSユーザさん、こんにちは
なるほどー
VBAだけでは正確な原因がつかめないですが、
もしかすると、画面描画か計算式の再計算で時間がかかってるのかもしれません。
VBAの遅い処理を以下のコードで挟んであげると解決するかもしれません
一点、注意点としてはVBAを強制終了させたりエラーで抜けたりすると
Excelの画面描画が止まったままになる可能性がありますので、ご注意ください！！
※その時は、エラーのハンドリング処理を追加してください。
==============================
Application.ScreenUpdating = False
Application.Calculation = xlManual
遅い処理
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
==============================
これで解決できるとよいのですがー
2023年05月17日
RSSユーザー
大野さん
PC再起動等色々やっているうちに解決していました。
再発しましたら、再度コードの追加をさせて頂きたいと思います。
この度も、大変ありがとうございました。
2023年05月18日
大野 了
RSSユーザーさん、こんにちは！！
再起動で直りましたかー
それはよかったです！！
2023年05月18日