【Excel】2020年12月JRAホームページ更新によるコピペシステム ExcelVBAの変更履歴を記す

'2020.12.02これ以降全て変更
'競走名（レース名）'競走条件など
            wk_nm1 = Sheets("HEAD").Cells(RET + 1, 1)
            If CHRCVT(wk_nm1) = "" Then
                Sheets("出走RH").Cells(LC + 1, 7) = Sheets("HEAD").Cells(RET, 3)
                Sheets("出走RH").Cells(LC + 1, 8) = Sheets("HEAD").Cells(RET + 1, 3)
            Else
                Sheets("出走RH").Cells(LC + 1, 7) = ""
                Sheets("出走RH").Cells(LC + 1, 8) = Sheets("HEAD").Cells(RET, 3)
            End If
'馬場
'replace後、2文字目'→'なら3文字セット
            Sheets("出走RH").Cells(LC + 1, 10) = Sheets("HEAD").Cells(RET, 5)
            wk_nm1 = Sheets("出走RH").Cells(LC + 1, 10)
            wk_nm2 = Replace(wk_nm1, "ダート", "ダ")
            If Mid(wk_nm2, 2, 1) = "→" Then
                Sheets("出走RH").Cells(LC + 1, 10) = Left(wk_nm2, 3)
            Else
                Sheets("出走RH").Cells(LC + 1, 10) = Left(wk_nm2, 1)
            End If
'出走頭数
            Sheets("出走RH").Cells(LC + 1, 11) = myNo1(Right(Sheets("HEAD").Cells(RET, 5), 3))
'距離
            Sheets("出走RH").Cells(LC + 1, 9) = Sheets("HEAD").Cells(RET, 5)
            wk_nm1 = Sheets("出走RH").Cells(LC + 1, 9)
            wk_nm2 = myNo1(Left(Replace(wk_nm1, "ダート", "ダ"), 6))
            Sheets("出走RH").Cells(LC + 1, 9) = wk_nm2

Function myNo1(r As String)
'
'文字列から数字だけを取り出す
'
  Dim myStr As String
  Dim myN As String
  Dim CNT As Integer
    For CNT = 1 To Len(r)
        myStr = Mid(r, CNT, 1)
        If myStr Like "[0-9]" Then
            myN = myN & myStr
        End If
    Next CNT
    If IsNumeric(myN) Then
        myNo1 = myN * 1
    Else
        myNo1 = ""
    End If
End Function

Function myLC(r As String, sh As String)
'
'文字列rが何行目にあるか(SHEET sh=sh_nmを1000行まで検索する）
'戻り値：発見した最初の行を返す
'
    Dim CNT As Integer
      Sheets(sh).Select
      myLC = 0
      For CNT = 1 To 1000
        If Cells(CNT, 1) Like r & "*" Then
            myLC = CNT
            Exit For
        End If
      Next CNT
End Function