セルに複数のIF条件文を入れたい時がある。入れ子にできるが非常に見づらくなる。そこで「IFS」がある
=IFS(E7>=B7,”Down”,F7<=B7,”UP”,TRUE,”–“)
「条件E7>=B7、処理”Down”」で対になる。左から優先判定されて条件が真ならそこで判定は終わる。
後ろの「TRUE,”–“」は、範囲外の判定のために使用
前2つのIF判定に該当しないときは、ハイフン2つを表示するという意味
なお約200以上の条件を追加できる（細かい数字は覚えていない）
=IFS(E7>=B7,soundAlert(1),F7<=B7,soundAlert(2),TRUE,”–“)
関数も利用できる。注意：ただし、更新できるセルは、当該マクロが設定されたセルに限られるかもしれない。つまり「他のセル」の値を変更とかできないかもしれない。
補足
=AND(IF,IF)
=OR(IF,IF)
みたいな記載条件もある。つまり演算子判定（IF AND IFみたいな）記載ではなく、カッコ内にAND,OR演算子が存在するみたいな条件文
マーケットスピードの株価チャートを見ていて、株価や板をずっと見ていると目が疲れてくる。
株価の変動が大きいときは我慢できるが、商いが薄いときは株価が動かず眠くなる。
そこで、楽天証券マーケットスピードのRSSを使用して株価情報を取得して必要な値になったら色の変化で表示させたら便利かもと思った。
このRSSを使用して株価情報をエクセルのシードに表示させるとどうなるか試してみた。
なお、エクセルを使用するために、毎月約1300円くらい支払う。年払いのほうが安いが毎回数ヶ月くらいしかエクセルを使わないので今回も月極にした。
姉妹ブログはこちらエクエルを使用してマーケットスピード2とRSSを利用して株価をチェックするメモ
・RSS（リアルタイムスプレッドシート）
「RSSとは、マーケットスピード投資情報ページ「市況情報（先物OP市況情報）」に表示される値（注）を特殊な関数（RSS関数）を用いて市販表計算ソフト『Microsoft Excel』に取り込み、セル上に表示させるツールです。」
https://www.rakuten-sec.co.jp/MarketSpeed/onLineHelp/msman1_11_1.html
マーケットスピードの機能でも株価情報を表示させることは可能だが、RSSとエクセルを使用することにヨテ自分だけの必要な情報のみを表示させるシートを作成することができる。
・VBAの注意点
IF文のelse if は[elseif]（他の言語は、大抵[else if]のようにスペースを入れる）
等価はイコール1つ（他の言語は大抵イコールが2つ必要）
ちなみにVBAとマクロは厳密に仕様が異なることがあるので確認するとよい
・使用環境：Windows10、エクセル Office365 マーケットスピード、RSS.exe
なお、RSSを登録するにはエクセルのマクロを有効にするなど、いくつか設定が必要である。
またRSSが実行できるようにセキュリティソフトの設定も必要。
これらの設定は楽天証券のホームページとグーグル先生が教えてくれる。
（数年経過すると、サイトが閉鎖されているのでネットの情報も永遠ではない）
・エクエルシート構成、マクロ仕様
‘VBAはシングルクォーテーションがコメントになる
‘Ctr+spaceで入力途中でコマンドの候補が表示される。簡易的な入力支援みたい
・動作環境：Windows,マーケットスピード、RSSを起動しマーケットスピードにログインしておく
‘Windowsのみ、RSSが対応しているのはWindowsのみでMacは動作しない
・目的
‘RSSで取得した情報を一定時間間隔で別セルにコピーする、時刻、比率等を記載
‘株価の動きを予測する資料とする
・動作手順
‘マーケットスピードにログインして、RSSを起動する「接続中」となる。「接続処理中」は接続できていないので接続中になるように調整すること
‘エクセルを起動して該当のファイルを開く
‘取得したい銘柄コードを入力する。この作業は手作業
‘マクロを実行させる。その後は、自動でセルのコピーが始まる
‘市場が開いていない時間帯はコピー処理は行わない。
‘２０２１・０４・２６
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 |
'グローバル変数 Public goFlag Public endFlag Sub getCode_Click() '登録ボタン 'B1 cell コードを入力して登録ボタンをクリックする If Cells(1, 2) = "" Then 'B1 cell MsgBox "コードが入力されていません" End ElseIf Len(Cells(1, 2)) <> 4 Then MsgBox "4文字ではありません。 文字数を確認してください" End End If 'B列に出力 RSSから情報を取得。マーケットスピード（ログイン）とRSS.exeを立ち上げる必要あり '事前に登録とエクセルの設定でマクロを実行可能にしておく Cells(2, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!銘柄名称" Cells(3, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!現在日付" Cells(4, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!現在値" Cells(5, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!最良売気配値１" Cells(6, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!OVER気配数量" Cells(7, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!UNDER気配数量" Cells(8, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!年初来高値" Cells(9, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!年初来安値" Cells(10, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!信用売残" Cells(11, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!信用売残前週比" Cells(12, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!信用買残" Cells(13, 2).Value = "=RSS|'" & Cells(1, 2) & ".T’!信用買残前週比" End Sub Sub anotherModule() cellmake '別のモジュールに記載した関数 セル（センタリング等、色設定）と文字（ボールド）の装飾マクロ、記録を使った End Sub Sub end_Click() '終了、停止ボタン マクロを停止させるフラグを設定 '停止させるときに、コピーしたGHI列を別のシートにコピーさせる '2021/04/26 Dim sheetName endFlag = False Debug.Print "push button" Debug.Print "endFlag:" & endFlag 'シートを追加して、GHI列をコピーする 'コピーの前にセルをコピーしておく If Range("I2").Value <> "" Then n = Cells(Rows.Count, "I").End(xlUp).Row Range("G1:I" & n).Copy 'G1からI行のまでを範囲コピーする sheetName = Format(Now(), "yyyy年mm月dd日hhnn") Worksheets.Add(After:=Worksheets(1), Count:=1).Name = sheetName Worksheets(sheetName).Activate ' シートをアクティブ Range("A1").PasteSpecial Paste:=xlPasteValues Else MsgBox "I2セルが空なのでコピーしませんでした" End If End Sub Sub macro110507a() 'イミディエイトウィンドウを 'すべてクリアする 処理が遅い Dim i As Integer For i = 1 To 1000 'Chr(8)=バックスペース Debug.Print Chr(8) Next i End Sub Sub ForCompareOverUnder() '実行ボタン、endFlag = Falseでループを抜ける '楽天証券マーケットスピードのRSS情報を一定間隔で取得してセルにコピーする '一定間隔3-5Sでループ、11：30か15：00で終了、9：00、12：30開始 'Over,Underの比率を算出してセルにコピーする '比率の変化で株価がどのように変わるかを調べる '目的：比率の変化で株価がどのように変わるのかを調べ、株価の上下転換点の予兆を探る '予兆を探るまたは予測することによって、株の買い時、売りどきを予測する 'または全く無関係かもしれないが、無関係の場合はそれがわかるだけでもよい '動作状況は、debug.printでイミディエイトウィンドウに出力している。 Dim zenbaStartTime, gobaStartTime, zenbaEndTime, gobaEndTime Dim nowTime Dim t As Long Dim nTime As Long Dim aTime Dim bTime, cTime, dTime Debug.Print "macro start" Debug.Print "---" t = Timer 'Loop用 nTime = 3 '3s goFlag = False 'Trueならループ開始になる。市場が開いている時間帯をチェックしてTrueにする endFlag = True 'falseで終了 '前場時間帯 zenbaStartTime = "09:00:00" zenbaEndTime = "11:30:00" '後場時間帯 gobaStartTime = "12:30:00" gobaEndTime = "15:00:00" 'GHI Clear 再実行のときにGHI列をクリアするので、実行前にデータを対比させる必要があるが今はない Columns("G").Clear '株価の列 Columns("H").Clear '率 Columns("I").Clear '時刻 '全部クリアされるので再度入力 Range("G1").Value = "株価" Range("H1").Value = "率" Range("I1").Value = "時刻" cellmake 'Module2のメソッド関数で、装飾ボールド等の処理をする '年のためにコード入力のチェック、整数かどうかのチェックはなし If Range("B1") = "" Then MsgBox "コードが入力されていません.B1セルに銘柄コード4桁を入力し登録ボタンをクリックしてください" End ElseIf Range("B2") = "" Then MsgBox "銘柄が表示されていません.B1セルに銘柄コード4桁を入力し登録ボタンをクリックしてください" End End If '--------loop Do DoEvents 'eventを受け付けるようにしておく、そうしないと強制終了しか方法がない nowTime = Time 'Time(Hour(Now()), Minute(Now()), Second(Now())) '市場以外の時間帯は、コピーしない。 '市場時間外でもループして、市場が始まったらセルのコピーを開始する。 '動いているかどうかわかり位くいので、セルに「実行中」と表示させると良いかもしれない ' nowTime < gobaStartTime Or nowTime > gobaEndTime Then '直接比較すると型が異なるので正しく判定できない aTime = CDate(nowTime) - CDate(zenbaStartTime) '前場 bTime = CDate(nowTime) - CDate(zenbaEndTime) '前場以降 cTime = CDate(nowTime) - CDate(gobaStartTime) '後場 dTime = CDate(nowTime) - CDate(gobaEndTime) '後場以降 If t + nTime < Timer Then '秒単位のタイマー Timeは時刻nTimeで指定した秒間隔でコピー処理を行う Debug.Print nTime&; "秒間隔 マーケット cell write" t = Timer '----Start Timer If aTime < 0 Or (bTime > 0 And cTime < 0) Or (dTime > 0) Then Debug.Print "時間外ですClose" & nowTime goFlag = False Else Debug.Print "市場open" goFlag = True End If If goFlag = True Then '市場が開いているときTrue 'セルをコピーする 'GHIにペーストする n = Cells(Rows.Count, "G").End(xlUp).Row + 1 '最終行の次の行番号を取得 'Range("G" & n).Select 'price Range("G" & n).Value = Range("B4").Value 'ここを株価 'Over Under Under/Overで比率を取得 小数点以下第3位まで表示、四捨五入 Range("H" & n).Value = Round(Range("B7") / Range("B6"), 3) 'ここを率に設定する Range("I" & n).Value = Time 'Now() Else '今はなにもしない。市場が開いていないときの処理 End If End If '-----end timer '----every Loop------------------------------------------------------------- If endFlag = False Then 'cancel buttonを作る 終了、停止ボタンをクリックするとフラグにFalseで終わる。DoEventsによりクリック処理を受ける Debug.Print "exit Loop" Debug.Print "sub_endFlag:" & endFlag Exit Do 'MsgBox "処理を終わります" End If 'Application.Wait Now() + 1 / 86400 '1s待つ でもWaitだとイベントを専有して、ほかの処理を受け付けない Loop Debug.Print "マクロ終了" End Sub |
作業はこれからで、アイデアだけをまとめておく
楽天証券の「マーケットスピード2」（２）のRSSと「マーケットスピード」（１）のRSSは構成が異なる。
「マーケットスピード」（１）（以下（１）とする）のRSSは実行形式であり、（１）を起動してRSS.exeを起動する必要があった。
一方「マーケットスピード2」（以下（２）とする）のRSSは、（２）を起動すれば使用できる。（２）用のRSS.exeは存在しない。
なお、エクセルのアドイン登録がどちらの場合も済んでいるものとする。
（1），（２）は同時に実行が可能である。
姉妹ブログはこちら
（１）の場合VBAでループ処理により、株価の取得からいくつかの処理を行っていた。
（２）で（１）の同様な機能を実行しようとしても、動作しなかった。
具体的には（１）を別名保存して、（２）用の関数名に置換した。大まかに置換することで実行可能。
必要な関数の変更を行ったが、（２）では実行できなかった。エラー等の発生はないが、マクロとVBAの組み合わせの相性が悪いようだった。
よって、
（２）で（１）と同様な機能を実行する場合、（２）で取得したデータをブックのシートのセルに貼り付け、その貼り付けたデータを別のブック（VBAコードあり）へコピーすることにした。
つまり、（２）のブックで株価等のデータを集め、別の処理をするブック（B)を作成し、ブック（B)にループ処理を行うVBAコードを記述することにした。
ブックA（マーケットスピード2のRSS）：株価等の情報をセルに確保
↓
ブックB（VBAコード）：株価等の情報をもとに適宜必要な処理を行う。
ブックAのマクロ
（これから）
ブックBのVBAコード
（これから）
楽天証券、マーケットスピード2のRSSの関数、ローソク足RSS2の機能 ＠RSSChart（）
9201コードのローソク足を取得例
２分足２M、2本取得（もっと多くのローソク足データを取得できる）
A2セルにマクロを記入すると、A3以降に出力結果が表示される。ローソク足データを取得することによりリバウンド時の状態を検知できる。また出来高の増減を把握できる
「マーケットスピード2」RSSのVBAと「マーケットスピード（１）」RSSのVBAは違うようだ。1で動いたエクセルVBAが、2では動かないところがあった。（１）でループ処理してたところが（２）では動かない。なので、（１）と（２）は別々の動作と考える必要があり、しばらくは（１）と併用するほうが良さそう。2021/08/27
Windows10、エクセル、MarketSpeed2（RSSはMarketSpeed2を起動するだけでよい）
株価をチェックして、安値高値でサウンドを再生
ちなみにヤフーファイナンスでも安値、高値に達したらメールで知らせてくれるサービスは存在するが、メールを見ないといけないし、複数の銘柄をチェックする場合は面倒になってくる。エクセルシートを見ながら、再生音で安値、高値をチェックできたら便利と思った。
エクセルを複数起動したい場合は、Windowキー＋Rファイルを指定して起動で[excel /x]と入力して起動させて、エクセルブックを開けばよい。
仕様
楽天証券、マーケットスピード、RSS.exeが必要。Windowsのみ。
VBAによるループ処理で、現在値と安値、高値を比較します。
DoEvntsでイベントを受け付けます。
安値、高値になるとサウンドが1回再生されます。達成チェック列（H2以降）の文字を消すと再度再生します。サウンドファイルは個別に用意をする必要があります。
コードを入力後は銘柄ボタンをクリックしないと株価を取得しません。
参考にしたサイト
https://dp-invest.hateblo.jp/entry/2020/11/09/192427
使い方
（１）コードを入力して銘柄ボタンをクリックすると銘柄名と株価を取得します。
（２）安値と高値を入力します。省略可能。
（３）チェック開始ボタンで比較実行
（４）終了ボタンで処理を停止
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 |
Public goFlag Public endFlag Sub mycolor(cell As String) ' ' color Macro 'マクロの記録で作成 ' Range(cell).Select With Selection.Font .color = -16776961 .TintAndShade = 0 End With With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent4 .TintAndShade = 0.799981688894314 .PatternTintAndShade = 0 End With End Sub Sub colorBack(cell As String) ' ' colorBack Macro ' ' With Selection.Font .color = -16776961 .TintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveCell.FormulaR1C1 = "" Range(cell).Select Range(cell).Value = "" End Sub Sub meigara() 'https://dp-invest.hateblo.jp/entry/2020/11/09/192427 'を参考にした Dim i As Integer Dim n, m As Integer Dim code n = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To n 'A2から以降のコード code = Cells(i, 1) If code <> "" Then Cells(i, 2).Value = "=RSS|'" & code & ".T’!銘柄名称" Cells(i, 3).Value = "=RSS|'" & code & ".T’!現在値" Else ' Cells(i, 2).Value = "" 'B cell Cells(i, 3).Value = "" 'C Cells(i, 8).Value = "" 'H cell End If Next i m = Cells(Rows.Count, "B").End(xlUp).Row For i = 2 To m If Cells(i, 1) = "" Then Cells(i, 2).Value = "" 'B cell Cells(i, 3).Value = "" 'C Cells(i, 4).Value = "" 'D Cells(i, 6).Value = "" 'F Cells(i, 8).Value = "" 'H cell colorBack ("H" & i) End If Next i m = Cells(Rows.Count, "D").End(xlUp).Row For i = 2 To m If Cells(i, 1) = "" Then Cells(i, 4).Value = "" 'D Cells(i, 6).Value = "" 'F Cells(i, 8).Value = "" 'H cell colorBack ("H" & i) End If Next i End Sub Sub endCheck() Range("E14").Value = "停止" endFlag = False Debug.Print "end" MsgBox "株価チェック終了しました" End Sub Sub kabuCheckAlert() 'チェック開始ボタンで実行 '株価をチェックして、指定した値に達したら警告音やアラートを表示する Dim t As Long Dim nTime As Long Dim n As Integer Dim strYasune Dim strTakane endFlag = True 'falseで処理を終わる nTime = 3 t = Timer strYasune = "安値です" strTakane = "高値です！！" 'H列を空欄にする m = Cells(Rows.Count, "H").End(xlUp).Row For i = 2 To m Range("H" & i).Value = "" Next i meigara Range("E14").Value = "実行中" Do DoEvents '------Start Timer If t + nTime < Timer Then '秒単位のタイマー Timeは時刻nTimeで指定した秒間隔でコピー処理を行う Debug.Print nTime&; "秒間隔 株価チェック 実行中" t = Timer 'nTime毎に株価をチェックする 'ここを行数分ループする n = Cells(Rows.Count, "A").End(xlUp).Row 'For next Start For i = 2 To n If Range("C" & i).Value <> "" And Range("D" & i).Value <> "" Then If Range("C" & i).Value <= Range("D" & i).Value Then If Range("H" & i).Value <> strYasune Then 'Hセルが空のときだけ再生し、すでにHセルに記載があれば音を再生しない Debug.Print "株価が安値に達しました" Range("H" & i).Value = strYasune mycolor ("H" & i) Shell "C:\Program Files\Windows Media Player\wmplayer.exe C:\Users\mased\Music\ヒューンと落下.mp3", 1 End If End If End If If Range("C" & i).Value <> "" And Range("F" & i).Value <> "" Then If Range("C" & i).Value >= Range("f" & i).Value Then If Range("H" & i).Value <> strTakane Then 'Hセルが空のときだけ再生し、すでにHセルに記載があれば音を再生しない Debug.Print "株価が高値に達しました" Range("H" & i).Value = strTakane mycolor ("H" & i) Shell "C:\Program Files\Windows Media Player\wmplayer.exe C:\Users\mased\Music\決定、ボタン押下37.mp3", 1 End If End If End If Next i 'For next end End If '----End Timer If endFlag = False Then Debug.Print "exit loop" Range("E14").Value = "停止" Exit Do End If Loop Debug.Print "End" End Sub |