💰🐤①ターゲットでの検索条件を変数に格納する

Sub レース検索計算表示()

検索条件
馬場状態
'騎手検索
'場検索

レース計算
レース表示

Beep 'ビープ音鳴らす
End Sub

Sub 検索条件()
'------------------------------頭数
St1 = Cells(1, 6)
StX = InStr(St1, "頭") '頭の位置を基準に探す
UmaAll = Val(Mid(St1, StX - 2, 3))
'------------------------------場
Jo = Cells(1, 6)
StX = InStr(Jo, "回") '回の位置を基準に探す
Jo = Mid(Jo, StX + 1, 2)
'------------------------------発送時間
RTime = Cells(1, 6)
StX = InStr(RTime, "[") '[の位置を基準に探す
RTime = Mid(RTime, StX + 1, 7)
'------------------------------RNo
RNo = Cells(2, 6)
StX = InStr(RNo, "】") '[の位置を基準に探す
RNo = Mid(RNo, 1, StX)
RNo = Replace(RNo, "【", "") '全角【削除
RNo = Replace(RNo, "】", "") '全角】削除

'------------------------------コース
St1 = Cells(3, 6)
StX = InStr(St1, "　") '　の位置を基準に探す
Cosu = Mid(St1, StX + 1, 2)

If Cosu = "ダー" Then
    Kyori = Mid(St1, StX + 4)
ElseIf Cosu = "障害" Then
    Kyori = Mid(St1, StX + 3)
Else '芝
    Kyori = Mid(St1, StX + 2)
End If

Cosu = Mid(St1, StX + 1, 1) '芝ダ障の1文字にする

Erase Oz '配列初期化
Erase Jk '配列初期化

For Uma = 1 To 18 '馬番
    YR = Uma + 4 '行の位置
    '----------------------------oz
    St1 = Cells(YR, 6)
    If St1 = "取消し" Then
        Oz(Uma) = 0 '取消しの場合0にする
    Else
        Oz(Uma) = Cells(YR, 6)
    End If
    '----------------------------JK
    St1 = Cells(YR, 8)
    St1 = Replace(St1, "*", "") '*をヌルにする
    Cells(YR, 8) = St1
    Jk(Uma) = St1

Next

End Sub

Sub 馬場状態()

'ターゲットのコピーから読み込めない物はとりあえずMsgBoxなどで手動入力する
'ラボ読み込み作るれば自動入力出来ます

A = MsgBox(Jo & Cosu & vbCrLf & "良馬場ですか", vbYesNo) ' vbCrLf は改行
'戻り値は イミティエイトで調べて下さい→　?vbYes,vbNo

'4種類にしたい場合はこちらで↓
'A = Val(InputBox(Jo & Cosu & vbCrLf & "1良 2稍　3重　4不" & vbCrLf & "1～4を入力して下さい"))


If A = "6" Then
    Baba = "良"
Else
    Baba = "悪" '稍重・重・不良をまとめて悪とした場合
End If
Cells(3, 5) = Baba

End Sub
Sub レース計算()



End Sub

Sub レース表示()



End Sub

Public A#
Public B#
Public Baba$ '馬場状態

Public C#
Public CkDeUma# '出馬表チェック
Public CkKako# '過去馬チェック
Public CkHr# '払い戻しチェック
Public CkTc# '発走時刻チェック
Public CkWe# '天候チェック
Public CkWh# '馬体重チェック
Public CkHand# '手動チェック

Public Cosu$ 'コース
Public Class$ 'クラス

Public D#
Public DAll#(18, 3) '総合データ用
Public Dko#(18, 3) '騎手データ用
Public DJo#(18, 3) '場データ用

Public E#
Public Er# 'エアラーNo
Public F#
Public Fn# 'Jvファイルname
Public G#
Public H#

Public I#
Public J#
Public Jk$(18) '出馬騎手
Public Jo$ '場
Public JvWe$ '馬場状態
Public JvMode# 'jvモード

Public K#
Public Kigo$ '記号
Public KR# '金率
Public Kyori$ '距離
Public L#

Public M#
Public MailCk# 'メールCK
Public MailBody$ 'メールボディ用
Public MailSubject$ 'メールタイトル用

Public N#
Public O#
Public OnMode# 'onTimeモード
Public OnSub# 'onTime用
Public OnRTime# 'onTime用
Public Oz#(18) '出馬単オッズ

Public P#

Public Q#
Public R#
Public RNo 'レースNo
Public RTime$ '発送時刻

Public S#
Public StCells$ '
Public St1$ '文字列代入用
Public St2$ '文字列代入用
Public StX# 'InStr用
Public StXX# 'InStr用
Public Syubetu$ '種別用

Public T#
Public Ti# 'Timer用

Public U#
Public Uma# '出馬馬番
Public UmaAll# '出頭数

Public V#
Public W#

Public X# 'x
Public XJk# '騎手用x
Public XJv# 'Jv用
Public XJo# '場用x
Public XR# 'レース用x

Public Y# 'y
Public YJk# '騎手用y
Public YJv# 'Jv用
Public YJo# '場用y
Public YR# 'レース用y

Public Z#

こちらへ