過去のQ&Aを参考にRSSで現在値をエクセルに書き出し、上がっているのか下がっているのかを記録したい。証券会社のテックデーターをエクセルで作りたい 移動平均線の30秒足とか10秒足を作りたいと考えています
セルに数式を入れVBAを動かすと固まってしまいます
詳細時間 現在値 出来高 売買代金 VWAP 約出来 現在値 増減
14:59:59 942.2 3452100 3269307 947.05 50400 -0.6
15:00:00 942.7 5219700 4935623 945.58 1767600 0.5
15:00:00 942.7 5219700 4935623 945.58 0 0.0
#N/A #N/A #N/A #N/A #N/A エクセルを立ち上げた時
: : 0 0 0.00
: : 0 0 0.00
: : 0 0 0.00
9:00:00 953 156200 148859 953.00
9:00:01 953.5 157200 149812 953.00
VBAで#N/Aが発生してエラーに そこで取引開始して数行にデーターが入ったらコメントアウトしていた箇所を復帰。後場引けまで正常に終了。
そこでファイルを開いたときに出るエラーを回避するには別のプロシージャを作るべきなのか
その場合どのように作るのがいいのか。行き詰った状態です わかる方 知恵を貸してください
Private Sub Worksheet_Calculate()
Dim A As Single
Dim B As Single
Dim c As Single '一つ前の現在値
Dim d As Single '現在値
MaxRow = Sheets("時系列").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("時系列").Range("A" & MaxRow) = Sheets("RSS").Range("E4") '時間
Sheets("時系列").Range("B" & MaxRow) = Sheets("RSS").Range("D4") '現在値
Sheets("時系列").Range("C" & MaxRow) = Sheets("RSS").Range("C4") '出来高
Sheets("時系列").Range("D" & MaxRow) = Sheets("RSS").Range("F4") '売買代金
Sheets("時系列").Range("E" & MaxRow) = Sheets("RSS").Range("G4") '出来高加重平均
' A = Sheets("時系列").Range("C1").End(xlDown).Offset(-1)
' B = Sheets("時系列").Range("C1").End(xlDown)
' Sheets("時系列").Range("F" & MaxRow) = B - A
'
' c = Sheets("時系列").Range("B1").End(xlDown).Offset(-1)
' d = Sheets("時系列").Range("B1").End(xlDown)
' Sheets("時系列").Range("G" & MaxRow) = d - c
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは
ご提示のマクロ自体は、シート間でデータを転記するだけのものなので、特に問題は無いと思います。
ただし、Calculateイベントで実行するような設定になっているようですので、どのような意図で作成されているのか不明です。
(同じ処理が頻発する可能性があるので・・)
他の部分の仕組みがどうなっているのか不明ですけれど、それらとの組み合わせ方などに問題があるのではないかと推測します。
以下は推測ですが・・・
多分、Calculateイベントでの処理をやめて、ブックが安定した状態で単独実行するようにすれば、何の問題も発生しないと思いますけれど・・・??
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 列の最終行に新たに入力されたらその値を自動参照 1 2023/01/21 09:59
- Visual Basic(VBA) VBAでのVlookupの扱い方 3 2021/11/23 01:25
- Excel(エクセル) 別のシートの最終行の値を参照するには 5 2022/12/15 13:18
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) 超難 日付に対するクロス集計 7 2021/12/06 20:56
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) EXCEL VBA シート貼り付け 3 2021/11/15 12:33
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ある表にフィルターをかけて出...
-
Lookup関数
-
セルの数を求めたい
-
Excelを無料で使うには? パソ...
-
IFとIFS関数
-
エクセルの数式バーのフォント...
-
EXCELの散布図で日付が1900年に...
-
エクセル日付 文字列の関数がエ...
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
【ExcelVBA】名前を付けて保存→...
-
Excelピボットテーブルの1行目
-
エクセルの問題です。絶対値の...
-
Excelの表示についての質問
-
Excel関数について教えてくださ...
-
エクセルのツールバーから数値...
-
Excelで表を作ったところに文字...
-
DATE関数で現在の年齢を出した...
-
Excelデータをコピペして、ペー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
楽天マーケットスピード RSSで...
-
FXのボラティリティ(出来高)...
-
為替の相関、逆相関のデータ
-
NYダウの時系列データ
-
ダウ平均の時系列データ
-
MT4 MT5の正確な1分足のデータ
-
初歩的な質問で済みません。デ...
-
為替の日足時系列データの区切...
-
NYダウ指数のヤフーファイナ...
-
為替
-
1時間毎の始値高値安値終値
-
キウイ円 2003年5月29日 4本値
-
ニューヨーク時間の終値とは何...
-
日経平均の過去データの入手に...
-
NYダウの数値の違いはどういう...
-
為替時系列データ取得可能サイト
-
通貨の値動きの履歴をリストで...
-
H株指数の過去15年間の時系列デ...
-
日足でのシステムトレード
-
今 4Gで テザリングを使ってSwi...
おすすめ情報
約定した株価が時間的にランダムなためにRSS専用シートにCalculateイベントでとらえています。
例えば株価はRSSシートのD4で捉えて変化するごとに時系列シートに順番に書き出し記録していくためCalculateイベントがいいと考えたからです。そしてここまではうまく動いたのですが コメント行がどうしても出だしでエラーになります。 VBAじゃなく関数だけならrowを使って最終行を指定し、ひとつ前の値を引くだけなのですが