エクセル | ピクチャ

マーケットスピードの株価チャートを見ていて、株価や板をずっと見ていると目が疲れてくる。
株価の変動が大きいときは我慢できるが、商いが薄いときは株価が動かず眠くなる。
そこで、楽天証券マーケットスピードのRSSを使用して株価情報を取得して必要な値になったら色の変化で表示させたら便利かもと思った。
このRSSを使用して株価情報をエクセルのシードに表示させるとどうなるか試してみた。
なお、エクセルを使用するために、毎月約1300円くらい支払う。年払いのほうが安いが毎回数ヶ月くらいしかエクセルを使わないので今回も月極にした。

マーケットスピード2のRSSのマクロはこちら

姉妹ブログはこちらエクエルを使用してマーケットスピード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を起動する「接続中」となる。「接続処理中」は接続できていないので接続中になるように調整すること
‘エクセルを起動して該当のファイルを開く
‘取得したい銘柄コードを入力する。この作業は手作業
‘マクロを実行させる。その後は、自動でセルのコピーが始まる
‘市場が開いていない時間帯はコピー処理は行わない。
‘２０２１・０４・２６

'グローバル変数
Public goFlag
Public endFlag

Sub getCode_Click() '登録ボタン
'B1 cell　コードを入力して登録ボタンをクリックする
If Cells(1, 2) = "" Then 'B1 cell
    MsgBox "コードが入力されていません"
    End
ElseIf Len(Cells(1, 2)) &lt;&gt; 4 Then
   MsgBox "4文字ではありません。 文字数を確認してください"
   End
End If
'B列に出力　RSSから情報を取得。マーケットスピード（ログイン）とRSS.exeを立ち上げる必要あり
'事前に登録とエクセルの設定でマクロを実行可能にしておく
Cells(2, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!銘柄名称"
Cells(3, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!現在日付"
Cells(4, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!現在値"
Cells(5, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!最良売気配値１"
Cells(6, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!OVER気配数量"
Cells(7, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!UNDER気配数量"

Cells(8, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!年初来高値"
Cells(9, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!年初来安値"
Cells(10, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!信用売残"
Cells(11, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!信用売残前週比"
Cells(12, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".T’!信用買残"
Cells(13, 2).Value = "=RSS|'" &amp; Cells(1, 2) &amp; ".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:" &amp; endFlag
    'シートを追加して、GHI列をコピーする

    'コピーの前にセルをコピーしておく
    If Range("I2").Value &lt;&gt; "" Then
        n = Cells(Rows.Count, "I").End(xlUp).Row
        Range("G1:I" &amp; 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 &lt; gobaStartTime Or nowTime &gt; 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 &lt; Timer Then '秒単位のタイマー　Timeは時刻nTimeで指定した秒間隔でコピー処理を行う
     Debug.Print nTime&amp;; "秒間隔　マーケット　cell write"
     t = Timer
     '----Start Timer
        If aTime &lt; 0 Or (bTime &gt; 0 And cTime &lt; 0) Or (dTime &gt; 0) Then
            Debug.Print "時間外ですClose" &amp; 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" &amp; n).Select
            'price
            Range("G" &amp; n).Value = Range("B4").Value 'ここを株価
            
            'Over Under　Under/Overで比率を取得 小数点以下第3位まで表示、四捨五入
            Range("H" &amp; n).Value = Round(Range("B7") / Range("B6"), 3) 'ここを率に設定する
            Range("I" &amp; 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:" &amp; endFlag
        Exit Do
        'MsgBox "処理を終わります"
    End If
    
    'Application.Wait Now() + 1 / 86400 '1s待つ でもWaitだとイベントを専有して、ほかの処理を受け付けない
    
Loop

Debug.Print "マクロ終了"
End Sub

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

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 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

エクセル　マクロ　　ロト６の過去の当選番号と予想番号を比較する

エクセルオンラインがあれば、マクロも使えます。
つまり、パソコンがネットに繋がっていれば、無料でエクセルが使えるということです。
マイクロソフトもグーグルに負けていられないようで、無料のサービスを展開中です。
今まで、マクロを使うために、Office365と契約していましたが、エクセルオンラインがあればいまのところ毎月約千円を払う必要がありません。

1行に複数の列があって、複数の列で一致する条件で数を数えます。
他の言い方をすれば、科目の列があり、そしてその成績の列ががあったとします。
そしてこの1行が生徒です。
生徒が数十人いたとして、数学の成績がBの人が何人いたのかを探すときに使います。

通常であれば、1列の場合で1列の条件で検索するCOUNTIFが使えますが、複数の列の検索条件では探せません。
そこで、COUNTIFS() 関数を使うのだそうです。

次のサイトを参考にしました。
http://excel.nj-clucker.com/count-with-multiple-criteria-and/
複数の列に一致する条件で行数をcountする

ロト６の過去の当選番号と予想番号を比較して一致する行があればカウントします。
つまり、1以上ならば過去の当選番号と予想番号が一致したことになります。
そして０なら、一致した予想番号はなかったことになります。
いまのところ完全一致でしかカウントしてません。
部分一致なら、COUNTIFを使えばいいのかな？

マクロの説明

画像では６つ書くのが面倒だったので３つまで書いてます。
CountIFS複数条件_xlsx

=COUNTIFS($A:$A,F2,$B:$B,G2,$C:$C,H2)
１番目の検索条件
$A:$A　A列　＄は絶対参照セルになって、オートフィル（セルコピー）をしてもマクロのセルがずれません。）
F2　検索対象のセル番号
２番めの検索条件
$B:$B　B列
G2　検索対象のセル番号
以下同様にカンマで追加していきます。
使い方としては、左側に過去の当選番号をコピペして、右側に自分が予想した番号を入力します。
ここで注意するのは、番号は左側から右側に数字が大きくなる昇順で記入することです。
ランダムに入力してしまうと、列対列で比較するので数字が一致しなくなります。
本当なら、ランダムに入力しても、列対行の複数列で検索できるともっと便利なんですが。
その方法も今後探してみます。

2つのセルが同じ値かを確認したいときは

ちなみに
エクセルでセルに入力した値を比較する単純な方法はEXACTです。
これにより2つのセルが同じ値かを確認できます。

=EXACT(A1,B1)

1	=EXACT(A1,B1)

とすると、A1セルとB1セルの値を比較して同じ場合はTRUEとして表示され、違う場合はFALSEと表示されます。

ピクチャ

ピクチャは海外ドラマ、漫画、英単語語呂合わせ法、アイフォンアプリ等の記事を紹介します

「エクセル」タグアーカイブ

エクセルVBA、楽天証券マーケットスピードのRSSを使用して株価情報取得

エクセル　マクロ　　ロト６の過去の当選番号と予想番号を比較する

エクセル　マクロ　　ロト６の過去の当選番号と予想番号を比較する

マクロの説明

2つのセルが同じ値かを確認したいときは

#E1 エクセル　マクロを組むまずは最初に覚えること　セルとシート（0）

エクセル　マクロを組む

まずは最初に覚えること　セルとシート（0）

エクセル マクロ ロト６の過去の当選番号と予想番号を比較する

マクロの説明

2つのセルが同じ値かを確認したいときは

エクセル マクロを組む

まずは最初に覚えること セルとシート（0）

エクセル　マクロ　　ロト６の過去の当選番号と予想番号を比較する

エクセル　マクロを組む

まずは最初に覚えること　セルとシート（0）