ど忘れ倉庫 https://mudanishita.iku4.com/ Thu, 01 Mar 2018 11:01:01 GMT ja © Ninja Tools Inc. 機械学習　キタサンブラックのタイムを「重回帰線」で予想。

使ったデータは
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　秒と予測


当たらずとも遠からず。




]]> EXCEL https://mudanishita.iku4.com/excel/%E6%A9%9F%E6%A2%B0%E5%AD%A6%E7%BF%92%E3%80%80%E3%82%AD%E3%82%BF%E3%82%B5%E3%83%B3%E3%83%96%E3%83%A9%E3%83%83%E3%82%AF%E3%81%AE%E3%82%BF%E3%82%A4%E3%83%A0%E3%82%92%E3%80%8C%E9%87%8D%E5%9B%9E%E5%B8%B0%E7%B7%9A%E3%80%8D%E3%81%A7%E4%BA%88%E6%83%B3%E3%80%82 Thu, 01 Mar 2018 11:01:01 GMT mudanishita.iku4.com://entry/13 ＶＢＡ　ペイント起動して画面をプリントスクリーンで貼り付ける
まず　標準モジュールを追加し、標準モジュール内で宣言。



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秒まつ。

]]> EXCEL VBA https://mudanishita.iku4.com/excel%20vba/%EF%BC%B6%EF%BC%A2%EF%BC%A1%E3%80%80%E3%83%9A%E3%82%A4%E3%83%B3%E3%83%88%E8%B5%B7%E5%8B%95%E3%81%97%E3%81%A6%E7%94%BB%E9%9D%A2%E3%82%92%E3%83%97%E3%83%AA%E3%83%B3%E3%83%88%E3%82%B9%E3%82%AF%E3%83%AA%E3%83%BC%E3%83%B3%E3%81%A7%E8%B2%BC%E3%82%8A%E4%BB%98%E3%81%91%E3%82%8B Wed, 28 Feb 2018 14:20:28 GMT mudanishita.iku4.com://entry/12 VBA 　エクセルのコマンドボタンからペイントを起動する Shell　関数を使い　ペイントを起動させる。

Private Sub CommandButton1_Click()

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

End Sub

]]> EXCEL VBA https://mudanishita.iku4.com/excel%20vba/vba%20%E3%80%80%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%E3%81%AE%E3%82%B3%E3%83%9E%E3%83%B3%E3%83%89%E3%83%9C%E3%82%BF%E3%83%B3%E3%81%8B%E3%82%89%E3%83%9A%E3%82%A4%E3%83%B3%E3%83%88%E3%82%92%E8%B5%B7%E5%8B%95%E3%81%99%E3%82%8B Tue, 27 Feb 2018 15:51:02 GMT mudanishita.iku4.com://entry/11 vba セルの文字を置き換える　文字を削る

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 VBA https://mudanishita.iku4.com/excel%20vba/vba%20%E3%82%BB%E3%83%AB%E3%81%AE%E6%96%87%E5%AD%97%E3%82%92%E7%BD%AE%E3%81%8D%E6%8F%9B%E3%81%88%E3%82%8B%E3%80%80%E6%96%87%E5%AD%97%E3%82%92%E5%89%8A%E3%82%8B Tue, 27 Feb 2018 15:38:19 GMT mudanishita.iku4.com://entry/10 EXCELでWEBを開く 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 https://mudanishita.iku4.com/excel/excel%E3%81%A7web%E3%82%92%E9%96%8B%E3%81%8F Mon, 26 Feb 2018 05:41:15 GMT mudanishita.iku4.com://entry/9 excel vba コマンドボタンからコードを書く


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



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

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


]]> EXCEL https://mudanishita.iku4.com/excel/excel%20vba%20%E3%82%B3%E3%83%9E%E3%83%B3%E3%83%89%E3%83%9C%E3%82%BF%E3%83%B3%E3%81%8B%E3%82%89%E3%82%B3%E3%83%BC%E3%83%89%E3%82%92%E6%9B%B8%E3%81%8F Sun, 25 Feb 2018 15:25:04 GMT mudanishita.iku4.com://entry/8 excel2000でVBA
なんのことはない。そういえばこんなとこにあった。

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

]]> EXCEL https://mudanishita.iku4.com/excel/excel2000%E3%81%A7vba Sun, 25 Feb 2018 14:44:28 GMT mudanishita.iku4.com://entry/7 UBUNTUのアプリてどこ？

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

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

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

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

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

保存先は自動的に HOME>ピクチャになる。
]]> 未選択 https://mudanishita.iku4.com/%E6%9C%AA%E9%81%B8%E6%8A%9E/ubuntu%E3%81%AE%E3%82%A2%E3%83%97%E3%83%AA%E3%81%A6%E3%81%A9%E3%81%93%EF%BC%9F Mon, 27 May 2013 11:47:56 GMT mudanishita.iku4.com://entry/6 UBUNTU使ってたら急に日本語が打てなくなった。
やけくそで　ｌｏｇｏｕｔ　したら　打てるようになった。

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

やけくそで２回ｌｏｇｏｕｔしたら　打てるようになった。　　]]> 未選択 https://mudanishita.iku4.com/%E6%9C%AA%E9%81%B8%E6%8A%9E/ubuntu%E4%BD%BF%E3%81%A3%E3%81%A6%E3%81%9F%E3%82%89%E6%80%A5%E3%81%AB%E6%97%A5%E6%9C%AC%E8%AA%9E%E3%81%8C%E6%89%93%E3%81%A6%E3%81%AA%E3%81%8F%E3%81%AA%E3%81%A3%E3%81%9F%E3%80%82 Mon, 27 May 2013 11:35:56 GMT mudanishita.iku4.com://entry/5 windowsユーザーだったが　linuxのＯＳ　ubuntu が気に入りだした。　まず日本語化 こんな感じで　シャットダウンを探すのも一苦労した。　　こまずはここを日本語化しなければ



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

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

５分くらい待ったかな。　こうなった
]]> 未選択 https://mudanishita.iku4.com/%E6%9C%AA%E9%81%B8%E6%8A%9E/windows%E3%83%A6%E3%83%BC%E3%82%B6%E3%83%BC%E3%81%A0%E3%81%A3%E3%81%9F%E3%81%8C%E3%80%80linux%E3%81%AE%EF%BC%AF%EF%BC%B3%E3%80%80u Mon, 27 May 2013 11:26:43 GMT mudanishita.iku4.com://entry/4