過去の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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
楽天RSSからエクセルVBAを使用し確実にデータ受信する方法に関して質問です。
Visual Basic(VBA)
-
Excelに詳しい方、教えていただきたいです。 1つの決まったExcel形式(データは入っていない)
Excel(エクセル)
-
手書き日報にエクセルのデータを重ねて印刷したい
Excel(エクセル)
-
-
4
エクセルで同じ値が連続しているセルに色をつける方法を教えてください。
Excel(エクセル)
-
5
対応するExcelの計算式はありますか?
Excel(エクセル)
-
6
エクセル
Excel(エクセル)
-
7
エクセル 応用した置換方法
Excel(エクセル)
-
8
セル内の数式をVBAで書くと
Excel(エクセル)
-
9
エクセルでID番号を保持したまま横並びのデータを縦の一本のデータにしたい
Excel(エクセル)
-
10
excelの数字がE+になってしまいます。 数値に変えればセルでの見え方は治ることはわかるのですが、
Excel(エクセル)
-
11
次のような関数が作りたく、どなたかご教示いただけますでしょうか。 *****************
Excel(エクセル)
-
12
列の総当たりチェックの方法
Excel(エクセル)
-
13
int関数について。
Excel(エクセル)
-
14
B1にある文言がA1に含まれている場合の判定方法について
Excel(エクセル)
-
15
Excelについて質問です。
Excel(エクセル)
-
16
Excelで途中の行をデータとして扱わない方法 例えば、Excelに付いての質問です。 あるシートで
Excel(エクセル)
-
17
下記のような条件付き書式はどうやって設定したら良いのか教えていただきたいです。 180時間を満たない
Excel(エクセル)
-
18
エクセル 関数について
Excel(エクセル)
-
19
ある値に対して3番目に大きな値を、なければ2番目に大きな値、それもなければ1番大きな値を表示させたい
Excel(エクセル)
-
20
エクセル 印刷範囲
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CSVファイルについて質問です。
-
エクセルの「入力規則」のプル...
-
VBAについての質問です
-
関数の説明
-
Excelについて
-
Excelにいついて質問です。
-
[オプション]の[アクセスビリテ...
-
一つのセルに(例えばA1)入力...
-
エクセルで特定のセルに入力が...
-
【マクロ】名前を保存する際に...
-
Excelの関数について教えてくだ...
-
UNIQUE関数が使えないバージョ...
-
エクセル共有したが、アクセス...
-
エクセルファイルがファイルの...
-
Excelで縦軸の書式を0:00形式の...
-
エクセル vbaについて教えてく...
-
【Excel】数字を3倍にし、なお...
-
エクセルVBA、別ブックへ転記す...
-
エクセルであるセルに数字を入...
-
エクセル マクロ チェックボックス
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
楽天マーケットスピード RSSで...
-
日経平均の過去データの入手に...
-
H株指数の過去15年間の時系列デ...
-
1時間毎の始値高値安値終値
-
為替の日足時系列データの区切...
-
FXのボラティリティ(出来高)...
-
フリップダウンRJ45の差し込み方
-
米国株の移動平均線付きのチャ...
-
20代、NISA初心者の投資の勉強...
-
ニューヨークのカンカンカンは...
-
Nyダウて日本時間何時に終わる...
-
プチ株
-
昨日も今日も日経平均株価は大...
-
☆明日の日経平均株価予想☆
-
月曜の昼間は米国証券会社やっ...
-
ダウ、S&P500、ナスダック指数...
-
米国株の約定価額
-
始値の決まり方
-
ダウ! 世界の休日と株式
-
株の話です。 NYダウが上がって...
おすすめ情報
約定した株価が時間的にランダムなためにRSS専用シートにCalculateイベントでとらえています。
例えば株価はRSSシートのD4で捉えて変化するごとに時系列シートに順番に書き出し記録していくためCalculateイベントがいいと考えたからです。そしてここまではうまく動いたのですが コメント行がどうしても出だしでエラーになります。 VBAじゃなく関数だけならrowを使って最終行を指定し、ひとつ前の値を引くだけなのですが