質問掲示板
岡三RSS
集いの広場

RSSユーザさん、こんにちは！！

いろいろと考えてみたのですが、
xxxx_Mを個別に更新させる方法は思いつかなかったので、
『シート1のQUOTE_M』『シート2のCANDLE_M』を取得する直前に計算式を書き込むというのはいかがでしょうか？

例えば・・・・

ある時刻：シート1のQUOTE_Mだけを動かしたい
1．シート2のCANDLE_Mを削除
2．シート1にQUOTE_Mを書き込む
3．手動取得

ある時刻：シート2のCANDLE_Mだけを動かしたい
1．シート1のQUOTE_Mを削除
2．シート2にCANDLE_Mを書き込む
3．手動取得


というような感じはいかがでしょうか！！

2021年08月16日

大野様
ありがとうございました。早速一部分ですが実験してみました！
ところで、QUOTE_Mは、シート1のD列に、縦に約8000行書き込まれております。
したがいまして、削除するのは、Range(Cells(1,4),Cells(8000,4)).clearでOKと思いますが、再度書き込むのは、
For i=1 to 8000
Cells(I,4)=”QUOTE_M(Cells(I,1),””,”現値”)”　　（Cells(I,1)＝銘柄コード）
Next I
となるのでしょうか？（コンパイルエラーでOKとなりませんでした！）
この書き込み方を教えていただければありがたいです。
　更に、書き込むのに相応な時間がかかりそうですが、他に高速で書き込む方法（出来れば数秒で）はあるでしょうか？
以上よろしくお願いいたします。

2021年08月16日

RSSユーザさん、こんにちは！！

現在、D列には
『QUOTE_M(A1,””,”現値”)』
などと記述されていますでしょうか？

それでしたら
For i=1 to 8000
Cells(i, 4) = "=QUOTE_M(A" & i & ","""",""現値"")"
Next i

としてあげれば大丈夫と思います。

処理が重たい場合は
Application.ScreenUpdating = False
と
Application.ScreenUpdating = True
で囲むとExcelの描画をいったん止めて、処理をするため高速になります。

注意点としては、エラーなどでVBAが止まった場合に
Application.ScreenUpdating = True
をかけていないと、描画が止まったままになりますので、ご注意ください！！

まとめますと以下のような記述をして頂くと大丈夫と思ます。

On Error GoTo ErrorHandler
Application.ScreenUpdating = False

For i=1 to 8000
Cells(i, 4) = "=QUOTE_M(A" & i & ","""",""現値"")"
Next i

ErrorHandler:
Application.ScreenUpdating = True

2021年08月16日

大野様
ありがとうございます。しかしながら、下の4行目のコンパイルエラーが
どうしても取れません。
Sub Kakikomi1()
Dim i As Integer
For i = 1 To 8000
Cells(i,1)="= QUOTE_M(A"&i&","""",""現値"")"
Next i
どうなおしても通りません。教えていただければありがたいです。


End Sub

2021年08月17日

どうやっても駄目なので、最後の手段で、大野様の行をコピー
した結果、一発で通りました！ありがとうございました！

2021年08月17日