2009/10/31
エクセルで作るリアルタイム株価警報システム
エクセルで作るリアルタイム株価警報システム 第４８号 不定期発行 ━━━━━━━━━━━━━（広告）━━━━━━━━━━━━━ 自然治癒力で傷が治る。 では、自然記憶力は？ 話ができるのは自然に覚える記憶力があったから。 ブラインドタッチも自然の記憶力で覚えよう。 http://itterakoya.com/modules/order/ ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ 新型インフルエンザが流行の兆しを見せています。 冗談で「今のうちに罹ったほうが手当てして貰える。 後から罹るとウィルスも悪性になるし患者も病院から溢れると面倒見てもらえ なくなるから」 どっちにしても本心は罹りたくないので保存食を買い溜めしてこもる準備をす るしかないのかも。 それにしても、罹ったら他の病気が治るとかいった良性のインフルエンザなん てのがあったらいいですね。 癌になったら治療のためにインフルエンザを移して貰ってくるとかね。 製薬会社が儲からなくなるけど(^.^) ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 実行環境 Windows XP Excel 2002 Excel 2000では、speech が使えないため銘柄名を読み上げることはできませ んが、「sndPlaySound」を利用してある程度のことはできます。 「記録」シートで銘柄名と状況を文字で確認することができます。 Excell 2007では、日本語の読み上げが無くなってますので、ご注意ください。 このメールマガジンのホームページ エクセル株 http://xlkabu.com/ ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ ３１号からはヒント集になってます。 今回は逆日歩更新のチェックに関してお届けします。 Ａ列に１から１０まで番号を振り、Ｂ列に適当な数値を書き入れます。 次のような感じですね。 A B C 1 48 4 2 68 5 3 2 6 4 26 1 5 5 2 6 8 3 7 55 8 8 165 9 9 34 10 10 15 7 次のマクロを一回実行した後に、Ｂ列の数値を一つ変更して、再度マクロを実 行します。すると変更した行のＡ列の値がイミディエイト欄に表示されます。 Ｃ列を昇順に並べ替えてもＡ列の番号でチェックされるのがみそですね。 これは、値上がり率順などで並べ替えたりしたときにも正確に逆日歩に変更が あったことを知るために必要です。 Sub 配列比較() Dim cl Dim ii As Integer Dim aryNew逆日歩 As Variant Static ary逆日歩 As Variant Static 逆日歩bln As Boolean '実行する時間を設定 ' if .... then With Sheets(1) '再宣言 ReDim aryNew逆日歩(WorksheetFunction.Max(.Range(.Cells(2, "A"), _ .Cells(10, "A"))) - 1) '全ての"A"を項目clc("順番")へ '逆日歩の値を配列に代入 For Each cl In .Range(.Cells(1, "B"), _ .Cells(10, "B")) '全ての"B"を項目clc("逆日歩")へ aryNew逆日歩(CInt(.Cells(cl.Row, "A").Value) - 1) = cl.Value Next End With If Not IsEmpty(ary逆日歩) Then For ii = 0 To UBound(aryNew逆日歩) ' Debug.Print aryNew逆日歩(ii) & " " & ary逆日歩(ii) ' If aryNew逆日歩(ii) <> ary逆日歩(ii) Then Debug.Print ii + 1 & " で変更有" Exit For End If Next End If ary逆日歩 = aryNew逆日歩 Debug.Print "" End Sub 他に必要なところはカバーしてください。 分からないところは http://xlkabu.com/ の掲示板（フォーラム）を活用してください。 ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ 掲示板 ------------------------------------------------------------ 掲示板へのご質問に関しては、メールマガジンの内容について分からないまま で作動しないなどのごく基本的なことだけにしてください。エクセルに付いて の一般的な事柄はヤフー等で「エクセル ＶＢＡ 掲示板」等で検索するとお目 当てのアクティブな掲示板が見つかるでしょう。 こちらの掲示板に質問の投稿がありましたら、読者さんが回答してあげてくだ さい。私はこのメールマガジン作成にそれなりの時間を費やしているので今後 の参考にさせていただくだけで参加しないつもりです。 ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ ご注意 ------------------------------------------------------------ エクセルVBAで、数年間の株価をダウンロードしたり、株式購入を自動で行う などいろいろとウェブ関係のことも行えます。その為にはそのページを狙い撃 ちした専用のコードを正規表現などを交えて書きます。 しかし、そのページからはデータだけを頂戴する形になる場合、通常は歓迎さ れません。また、ページの仕様が変更になるとコードも書き直さなければなら ないなど煩雑な作業もその都度行わなければいけません。このように色んな問 題があるのでこのメールマガジンではウェブ関係については触れません。 当メールマガジン発行者へのご意見・ご感想・批判・突っ込み・御指導・その 他大歓迎です。ご質問やご要望などはメールマガジンに反映する場合があって も基本的に個人個人へのご返事は申し訳ありませんがご容赦ください。 著作権は発行人にあります。 アンケートを行った場合その結果は販促等で使用させて頂くことがあります。 このメールマガジンに掲載した説明に誤りがあってもこれにより生じた損失は いかなる理由があっても補償致しません。ご自分の責任でお願いします。 私自身は殆ど株のことは分かりません。 ですから、株価に関して一切意見を言うつもりはありませんが、万一そのよう に受け取られるような事を書いたにしても全く責任を取れないのでご注意願い ます。 ------------------------------------------------------------ 発行 ------------------------------------------------------------ このメールマガジンは、 『まぐまぐ』 http://www.mag2.com/m/0000191595.html から発行しています。 ------------------------------------------------------------ 登録解約 ------------------------------------------------------------ このメールマガジンの登録、解除は上記発行サイトからできます。 当方では登録、解除とも致しかねます。 うまくできないときは http://homepage2.nifty.com/terakoya/indx_hosoku.htm の 半角/全角 をクリックし、よく読んでご自分で行ってください。 当ホームページはグーグルから「３８１７５８」の番号だけでも辿り着けます。
-
-
登録した方には、まぐまぐの公式メルマガ（無料）をお届けします。
