5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

【関数】エクセルで競馬研究【グラフ】 ver3.0

1 :こんな名無しでは、どうしようもないよ。:2007/12/07(金) 13:06:54 ID:UeYtY1D/
オリジナル指数、予想師研究、指数研究etc
エクセルで競馬研究してるやつ集まれ!

今日もコピーペーストコピーペーストコピーペーストコピーペースト……………

【関数】エクセルで競馬研究【グラフ】 ver1.3
http://hobby10.2ch.net/test/read.cgi/uma/1105868028/

397 :こんな名無しでは、どうしようもないよ。:2009/08/04(火) 12:56:01 ID:+8vMetSY
>>396 http://r-hints.com/product.html

ちなみに原理はhttp://r-hints.com/

398 :こんな名無しでは、どうしようもないよ。:2009/08/04(火) 19:09:32 ID:QEO4SHJI
A1:A16に適切なオッズがあったとすると

Public Sub Main01()
Dim mo As Double, no As Double
Dim i As Integer
Dim r As Range

mo = Application.WorksheetFunction.Max(Range("A1:A16"))
no = Application.WorksheetFunction.Min(Range("A1:A16"))
Range("B1:E16").ClearContents

For Each r In Range("A1:A16")
i = 1
Do
If no = r.Value Then
Exit Do
ElseIf mo >= r.Value * i Then
i = i + 1
Else
i = i - 1
Range("B" & r.Row).Value = i * 100
Range("C" & r.Row).Value = "=a" & r.Row & "*b" & r.Row
Range("D" & r.Row).Value = "=rank(C" & r.Row & ",C1:C16,true)"
Exit Do
End If
Loop
Next r
Main02
End Sub

Public Sub Main02()
Dim m As Integer, s As Integer
Dim r As Range
Dim h As Integer

h = 10000 '目標値
s = Application.WorksheetFunction.Sum(Range("B1:B16"))

For Each r In Range("D1:D16")
If r.Value = 1 Then
If Range("C" & r.Row).Value - s < h Then
Range("B" & r.Row).Value = Range("B" & r.Row).Value + 100
Main02
Exit For
End If
End If
Next r
End Sub

291 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)