過去の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)
-
指定した範囲から、文字A、文字Bの数をそれぞれカウントする数式が知りたいです。よろしくお願いします。
Excel(エクセル)
-
[大至急!]ExcelSheetFreeの使い方がわかりません
Excel(エクセル)
-
-
4
数字をコンマで区切った文字列の集計のマクロの修正
Excel(エクセル)
-
5
エクセルでID番号を保持したまま横並びのデータを縦の一本のデータにしたい
Excel(エクセル)
-
6
Excelでオートフィルをした時に,値のバグについて
Excel(エクセル)
-
7
Excelに詳しい方、教えていただきたいです。 1つの決まったExcel形式(データは入っていない)
Excel(エクセル)
-
8
Excel初心者です、教えてください。
Excel(エクセル)
-
9
IF関数を使用した数字に、カンマとテキストをつけたい
Excel(エクセル)
-
10
エクセル
Excel(エクセル)
-
11
int関数について。
Excel(エクセル)
-
12
対応するExcelの計算式はありますか?
Excel(エクセル)
-
13
次のような関数が作りたく、どなたかご教示いただけますでしょうか。 *****************
Excel(エクセル)
-
14
手書き日報にエクセルのデータを重ねて印刷したい
Excel(エクセル)
-
15
エクセル 応用した置換方法
Excel(エクセル)
-
16
B1にある文言がA1に含まれている場合の判定方法について
Excel(エクセル)
-
17
Excelについて質問です。
Excel(エクセル)
-
18
Excelで途中の行をデータとして扱わない方法 例えば、Excelに付いての質問です。 あるシートで
Excel(エクセル)
-
19
下記のような条件付き書式はどうやって設定したら良いのか教えていただきたいです。 180時間を満たない
Excel(エクセル)
-
20
エクセルで同じ値が連続しているセルに色をつける方法を教えてください。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル②
-
【マクロ】顧客番号にて一致さ...
-
エクセルVBA、別ブックへ転記す...
-
vba Bookを最小にせずに、UserF...
-
エクセルの計算
-
(マクロ)データをAブックからB...
-
Excelでセルの値が同じか...
-
指定文字の間に
-
エクセルでの作業計算方法について
-
エクセルの暗号化なしのバーの...
-
エクセルを使っていて2024/5/15...
-
【マクロ】必要な項目(列)の...
-
エクセル:一覧表に存在する文...
-
Excel
-
エクセル関数を教えてください
-
Googleスプレッドシートでファ...
-
Microsoft 365の Excel を使用...
-
はがきについて。
-
エクセルで 例えば 伊藤と名前...
-
【マクロ】その時、その時で変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
楽天マーケットスピード RSSで...
-
日経平均の過去データの入手に...
-
1時間毎の始値高値安値終値
-
為替の日足時系列データの区切...
-
FXのボラティリティ(出来高)...
-
H株指数の過去15年間の時系列デ...
-
米国株の移動平均線付きのチャ...
-
フリップダウンRJ45の差し込み方
-
20代、NISA初心者の投資の勉強...
-
Nyダウて日本時間何時に終わる...
-
ニューヨークのカンカンカンは...
-
昨日も今日も日経平均株価は大...
-
プチ株
-
☆明日の日経平均株価予想☆
-
株の話です。 NYダウが上がって...
-
始値の決まり方
-
月曜の昼間は米国証券会社やっ...
-
ダウ、S&P500、ナスダック指数...
-
ダウ! 世界の休日と株式
-
米国株の約定価額
おすすめ情報
約定した株価が時間的にランダムなためにRSS専用シートにCalculateイベントでとらえています。
例えば株価はRSSシートのD4で捉えて変化するごとに時系列シートに順番に書き出し記録していくためCalculateイベントがいいと考えたからです。そしてここまではうまく動いたのですが コメント行がどうしても出だしでエラーになります。 VBAじゃなく関数だけならrowを使って最終行を指定し、ひとつ前の値を引くだけなのですが