「マクロ」タグアーカイブ

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

マーケットスピードの株価チャートを見ていて、株価や板をずっと見ていると目が疲れてくる。
株価の変動が大きいときは我慢できるが、商いが薄いときは株価が動かず眠くなる。
そこで、楽天証券マーケットスピードの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

株価チェックEXCELマクロ、安値高値

株価をチェックして、安値高値でサウンドを再生

ちなみにヤフーファイナンスでも安値、高値に達したらメールで知らせてくれるサービスは存在するが、メールを見ないといけないし、複数の銘柄をチェックする場合は面倒になってくる。エクセルシートを見ながら、再生音で安値、高値をチェックできたら便利と思った。

エクセルを複数起動したい場合は、Windowキー＋Rファイルを指定して起動で[excel /x]と入力して起動させて、エクセルブックを開けばよい。

仕様
楽天証券、マーケットスピード、RSS.exeが必要。Windowsのみ。
VBAによるループ処理で、現在値と安値、高値を比較します。
DoEvntsでイベントを受け付けます。
安値、高値になるとサウンドが1回再生されます。達成チェック列（H2以降）の文字を消すと再度再生します。サウンドファイルは個別に用意をする必要があります。
コードを入力後は銘柄ボタンをクリックしないと株価を取得しません。

参考にしたサイト

https://dp-invest.hateblo.jp/entry/2020/11/09/192427

使い方

（１）コードを入力して銘柄ボタンをクリックすると銘柄名と株価を取得します。
（２）安値と高値を入力します。省略可能。
（３）チェック開始ボタンで比較実行
（４）終了ボタンで処理を停止

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 &lt;&gt; "" Then
        Cells(i, 2).Value = "=RSS|'" &amp; code &amp; ".T’!銘柄名称"
        Cells(i, 3).Value = "=RSS|'" &amp; code &amp; ".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" &amp; 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" &amp; 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" &amp; i).Value = ""
    Next i
    
    meigara
   Range("E14").Value = "実行中"
    Do
        DoEvents
     '------Start Timer
        If t + nTime &lt; Timer Then '秒単位のタイマー　Timeは時刻nTimeで指定した秒間隔でコピー処理を行う
            Debug.Print nTime&amp;; "秒間隔　株価チェック　実行中"
            t = Timer
            'nTime毎に株価をチェックする
            'ここを行数分ループする
            n = Cells(Rows.Count, "A").End(xlUp).Row
            'For next Start
            For i = 2 To n
                If Range("C" &amp; i).Value &lt;&gt; "" And Range("D" &amp; i).Value &lt;&gt; "" Then
                    If Range("C" &amp; i).Value &lt;= Range("D" &amp; i).Value Then
                        If Range("H" &amp; i).Value &lt;&gt; strYasune Then 'Hセルが空のときだけ再生し、すでにHセルに記載があれば音を再生しない
                            Debug.Print "株価が安値に達しました"
                            Range("H" &amp; i).Value = strYasune
                            mycolor ("H" &amp; 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" &amp; i).Value &lt;&gt; "" And Range("F" &amp; i).Value &lt;&gt; "" Then
                    If Range("C" &amp; i).Value &gt;= Range("f" &amp; i).Value Then
                        If Range("H" &amp; i).Value &lt;&gt; strTakane Then 'Hセルが空のときだけ再生し、すでにHセルに記載があれば音を再生しない
                            Debug.Print "株価が高値に達しました"
                            Range("H" &amp; i).Value = strTakane
                            mycolor ("H" &amp; 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

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 = "実行中"

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

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

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

グーグルスプレッドシートで件数の数値を取得したいマクロ

グーグルスプレッドシートで件数の数値を取得したい

例
3月3日：138件
この中の138の数値を取得したい

A列に「3月3日：138件」という文字列がある
そこから「138」の数字を取得したい

件数の数字を取得
‘=MID(A4,find(“：”,A4)+1,LEN(A4)-find(“：”,A4)-1)
文字列セル、文字を検索した位置に1文字分加算したところから、文字数から検索文字の位置から1文字少ない

日付を取得
’=MID(A4,1,find(“：”,A4)-1)
文字列セル、文字の最初、文字を検索した位置から1文字前の文字数

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

エクセルオンラインがあれば、マクロも使えます。
つまり、パソコンがネットに繋がっていれば、無料でエクセルが使えるということです。
マイクロソフトもグーグルに負けていられないようで、無料のサービスを展開中です。
今まで、マクロを使うために、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と表示されます。

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

エクセル　マクロを組む

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

マクロがあるからエクセルを使う人も多いと思います。
マクロを使うことで、数値を計算したり、値を取得して更に編集したりすることができます。
続きを読む →

ピクチャ

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

「マクロ」タグアーカイブ

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

株価チェックEXCELマクロ、安値高値

グーグルスプレッドシートで件数の数値を取得したいマクロ

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

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

マクロの説明

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

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

エクセル　マクロを組む

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

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

マクロの説明

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

エクセル マクロを組む

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

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

エクセル　マクロを組む

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