ど忘れ倉庫

機械学習　キタサンブラックのタイムを「重回帰線」で予想。

2017年12月24日第62回有馬記念(G1) の1着　キタサンブラックのタイムを「重回帰線」で予想。

使ったデータは
http://db.netkeiba.com/horse/2012102013/
から　
今回使用するパラメータを簡単にまとめる。

斤量　距離　頭数枠番　馬体重タイムで予測。

ツール →　分析ツール　→　回帰分析　

範囲指定　する
　入力Ｙ範囲：　機械学習させる目的変数　この場合　タイム
　　　　　　　　$F$4:$F$21　の範囲を機械学習させる。

　入力ｘ範囲：　機械学習させる説明変数　この場合　頭数　斤量　枠番　距離　馬体重
　　　　　　　　$A$4:$E$21　の範囲を機械学習させる。

分析結果は

切片 -3.412753883
X 値 1 -0.270996884
X 値 2 0.059027608
X 値 3 0.466900418
X 値 4 -0.035976977
X 値 5 0.029446148

となった。これを元に　2017/12/24　と2017/11/26
のタイムを予測

予測タイムの計算式コードに当てはめた結果。

Dim seki
Dim kyori
Dim tousu
Dim waku
Dim umataijyu

Dim b
Dim x1
Dim x2
Dim x3
Dim x4
Dim x5

Dim time

seki = 57
kyori = 2500
tousu = 16
waku = 1
umataijyu = 540

b = -3.41275388348363
x1 = -0.270996884
x2 = 0.059027608
x3 = 0.466900418
x4 = -0.035976977
x5 = 0.029446148

time = seki * x1 + kyori * x2 + tousu * x3 + waku * x4 + umataijyu * x5 + b
Cells(2, 7).Value = time

seki = 57
kyori = 2400
tousu = 17
waku = 2
umataijyu = 542

b = -3.41275388348363
x1 = -0.270996884
x2 = 0.059027608
x3 = 0.466900418
x4 = -0.035976977
x5 = 0.029446148

time = seki * x1 + kyori * x2 + tousu * x3 + waku * x4 + umataijyu * x5 + b
Cells(3, 7).Value = time

2017/12/24　　は　実タイム153秒を　152.0448　秒と予測
2017/11/26　　は　実タイム143秒を 146.6318　秒と予測

当たらずとも遠からず。

ＶＢＡ　ペイント起動して画面をプリントスクリーンで貼り付ける

ＶＢＡで　コマンドボタンを押したタイミングで　ペイント起動し　画面をprintscreenプリントスクリーンで貼り付ける。

まず　標準モジュールを追加し、標準モジュール内で宣言。

Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

コマンドボタンを押したら、画面をコピーして張り付けるコード。

Private Sub CommandButton1_Click()

Const VK_PrintScrn = &H2C '[PrintScrn]指定

Const KEYEVENT_EXTENDED_KEY = &H1 'キー押す
Const KEYEVENT_UP = &H2 'キー放す

'[PrintScrn]　＋　キー押す
keybd_event VK_PrintScrn, 0, KEYEVENT_EXTENDED_KEY, 0
'[PrintScrn]　＋　キー放す
keybd_event VK_PrintScrn, 0, KEYEVENT_EXTENDED_KEY Or KEYEVENT_UP, 0

Application.Wait Now + TimeSerial(0, 0, 2) '2秒待つ

paint = Shell("Mspaint.exe", vbNormalFocus) 'ペイント起動

Application.Wait Now + TimeSerial(0, 0, 2) '2秒待つ

'[CONTROL]　キー押す
keybd_event vbKeyControl, 0, KEYEVENT_EXTENDED_KEY, 0
'[V]　　キー押す
keybd_event vbKeyV, 0, KEYEVENT_EXTENDED_KEY, 0
'[V]　　キー放す
keybd_event vbKeyV, 0, KEYEVENT_EXTENDED_KEY Or KEYEVENT_UP, 0
'[CONTROL]　キー放す
keybd_event vbKeyControl, 0, KEYEVENT_EXTENDED_KEY Or KEYEVENT_UP, 0

End Sub

注意１　ＡＰＩ　を使う。
注意２　押したボタンは放す。KEYEVENT_UP
注意３　ペイント起動まで2秒まつ。

VBA 　エクセルのコマンドボタンからペイントを起動する

Shell　関数を使い　ペイントを起動させる。

Private Sub CommandButton1_Click()

paint = Shell("Mspaint.exe", vbNormalFocus)

End Sub

vba セルの文字を置き換える　文字を削る

Cells(1, 1)の"芝2500"の"芝"を削る。　"芝"を""に置き換え2500のみにする。

Dim aaa
Dim bbb
　 aaa = Cells(1, 1).Value
　 bbb = Replace(a, "芝", "")
　Cells(3, 1).Value = bbb

　

　1行で書くなら
　　

　Cells(3, 1).Value = Replace(Cells(1, 1).Value, "芝", "")

EXCELでWEBを開く

エクセルのコマンドボタンから　GOOGLE のページを開くコード。
OBJECT 宣言しないと動かない。開いたらojbectを開放する。

Private Sub CommandButton1_Click()

Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://www.google.co.jp/"

Set objIE = Nothing

End Sub

excel vba コマンドボタンからコードを書く

コマンドボタンをシートに貼り付けたら、　早速Command1ボタンをクリック。

Private Sub CommandButton1_Click() に　コードを書けば　Command1ボタンをクリックしたタイミングで　何かの処理ができる。

何かの処理　を　MSGBOX 　"ど忘れ"　で書いてみる。

MSGBOX 　"ど忘れ"　

1回保存して　Command1ボタンをクリックすれば　　ど忘れ　のメッセージがでる。

excel2000でVBA

EXCEL 2000 でＶＢＡを打ち込もうオとしたら　コマンドボタン　の在り処がわからなくなってしまった。　フォームの場所も忘れた！！　

なんのことはない。そういえばこんなとこにあった。

「表示」　→　「ツールバー」　→　「コントロールボックス」

UBUNTUのアプリてどこ？

アプリは左上の検索するところから　アプリの　名前を打ち込みます。

たとえばアプリ　「　スクリーンショット　」だと　検索で　S　って打てばもう候補として出てきます。

ちなみにこの「スクリーンショット」　が超便利なアプリだった。

WINDOUSでいう　画面コピー　ｐｒｔ　ｓｃ　して　ペイント立ち上げて　コピーして名前つけて保存　の　過程を

クリックひとつで　終わらせることができる。　しかも　カウントダウンタイマー機能もあるので　５秒後に　パシャ　ってのもできる。

保存先は自動的に HOME>ピクチャになる。

UBUNTU使ってたら急に日本語が打てなくなった。

日本語が打てなくなってしまいました。

やけくそで　ｌｏｇｏｕｔ　したら　打てるようになった。

そしてまた日本語が打てなくなった。

やけくそで２回ｌｏｇｏｕｔしたら　打てるようになった。

windowsユーザーだったが　linuxのＯＳ　ubuntu が気に入りだした。　まず日本語化

ubuntu　を最初に立ち上げると　当たり前だが　日本語ではない。
こんな感じで　シャットダウンを探すのも一苦労した。　　こまずはここを日本語化しなければ

日本語化するのは　超簡単だった。

右上の　system　setting 　をクリックすると　又選択だが新しいＢＯＸがでる。
ここで LANGAGE SET UPをクリックしよう　赤丸のとこ　これだけで日本語化になる。

５分くらい待ったかな。　こうなった

ど忘れ倉庫

機械学習 キタサンブラックのタイムを「重回帰線」で予想。

ＶＢＡ ペイント起動して画面をプリントスクリーンで貼り付ける

VBA エクセルのコマンドボタンからペイントを起動する

vba セルの文字を置き換える 文字を削る