https:\/\/chatgpt.com\/gpts\/editor\/g-bBZcBoHyy<\/a><\/p>\n\n\n\n\u3000PDF\u3092\u9001\u308c\u3070\u3001\u8868\u3092\u51fa\u529b\u3057\u3066\u304f\u308c\u308b\u3002GPT-4o\u306e\u80fd\u529b\u306e\u9650\u754c\u306e\u90fd\u5408\u4e0a\u30014\u4eba\u305a\u3064\u306e\u51fa\u529b\u3068\u306a\u308a\u3001\u300cnext\u300d\u3068\u9001\u308b\u3068\u6b21\u306e4\u4eba\u306b\u9032\u3080\u3053\u3068\u304c\u3067\u304d\u308b\u3002\u306a\u304a\u3001\u7b46\u8005\u306e\u5206\u6790\u7528\u30a8\u30af\u30bb\u30eb\u30b7\u30fc\u30c8\u306b\u5408\u308f\u305b\u3066\u3001Verstappen, Perez, Hamilton, Russel\u3001\u6b21\u306bLeclerc, Sainz, Norris, Piastri\u3001\u6b21\u306bGasly, Ocon, Tsunoda, Ricciardo\u3001\u6b21\u306bAlonso, Stroll, Albon, Colapinto\u3001\u6700\u5f8c\u306bBottas, Zhou, Hulkenberg, Magnussen\u306e\u9806\u3068\u306a\u3063\u3066\u3044\u308b\u3002\u3053\u3060\u308f\u308a\u304c\u3042\u308b\u65b9\u306f\u3001\u81ea\u5206\u306a\u308a\u306e\u9806\u5e8f\u3092GPT\u306b\u4f1d\u3048\u308c\u3070\u3002<\/p>\n\n\n\n
\u3000\u307e\u305f\u3001\u6848\u5185\u306b\u8a18\u8ff0\u3057\u3066\u3042\u308b\u304c\u3001\u6700\u521d\u306bPDF\u3068\u5171\u306b<\/p>\n\n\n\n
\u30fb\u6700\u521d\u306b\u5468\u56de\u6570\u304c\u5c11\u306a\u3044\u30c9\u30e9\u30a4\u30d0\u30fc\u306b\u3064\u3044\u3066\u3001\u300c\u30d5\u30a7\u30eb\u30b9\u30bf\u30c3\u30da\u30f3\u3068\u30cf\u30df\u30eb\u30c8\u30f3\u306f59\u5468\u307e\u3067\u3001\u30eb\u30af\u30ec\u30fc\u30eb\u306f41\u5468\u307e\u3067\u3057\u304b\u306a\u3044\u3053\u3068\u306b\u6c17\u3092\u3064\u3051\u3066\u304f\u3060\u3055\u3044\u3002\u300d\u306e\u3088\u3046\u306b\u6700\u521d\u306b\u6ce8\u610f\u559a\u8d77\u3002<\/p>\n\n\n\n
\u30fb\u4ee3\u5f79\u51fa\u8d70\u304c\u3042\u308b\u5834\u5408\u306f\u305d\u306e\u65e8\u3092\u6307\u793a\u3002<\/p>\n\n\n\n
\u306e2\u70b9\u306f\u62bc\u3055\u3048\u3066\u304a\u304f\u5fc5\u8981\u304c\u3042\u308b\u3002\u7279\u306b\u5f8c\u8005\u306f\u5fd8\u308c\u308b\u3068\u30cf\u30eb\u30b7\u30cd\u30fc\u30b7\u30e7\u30f3\u306b\u7e4b\u304c\u308b\u78ba\u7387\u304c\u9ad8\u3044\u3060\u308d\u3046\u3002\u305f\u3060\u3057\u3001\u305d\u3053\u307e\u3067\u3084\u3063\u3066\u3082\u7279\u306b\u5168\u5468\u56de\u6570\u3092\u8d70\u308a\u5207\u3063\u3066\u3044\u306a\u3044\u30c9\u30e9\u30a4\u30d0\u30fc\u306e\u30e9\u30c3\u30d7\u30bf\u30a4\u30e0\u3092\u7121\u7406\u3084\u308a\u751f\u6210\u3057\u3066\u304f\u308b\u3053\u3068\u306f\u6642\u6298\u3042\u308b\u306e\u3067\u3001\u305d\u306e\u90e8\u5206\u3060\u3051\u4eba\u9593\u306e\u30c1\u30a7\u30c3\u30af\u304c\u5fc5\u8981\u3060\u3002<\/p>\n\n\n\n
\u3000\u4f8b\u3048\u3070\u30a2\u30bc\u30eb\u30d0\u30a4\u30b8\u30e3\u30f3GP\u3067\u3042\u308c\u3070\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u66f8\u3051\u3070\u826f\u3044\u3002<\/p>\n\n\n\n
“””
\u30aa\u30b3\u30f3\u3068\u30dc\u30c3\u30bf\u30b9\u306f50\u5468\u307e\u3067\u3001\u30da\u30ec\u30b9\u3068\u30b5\u30a4\u30f3\u30c4\u306f49\u5468\u307e\u3067\u3001\u30b9\u30c8\u30ed\u30fc\u30eb\u306f45\u5468\u307e\u3067\u3001\u89d2\u7530\u306f14\u5468\u307e\u3067\u3057\u304b\u306a\u3044\u3053\u3068\u306b\u6c17\u3092\u3064\u3051\u3066\u304f\u3060\u3055\u3044\u3002
\u307e\u305f\u3001\u30de\u30b0\u30cc\u30c3\u30bb\u30f3\u306b\u4ee3\u308f\u3063\u3066\u30d9\u30a2\u30de\u30f3\u304c\u51fa\u8d70\u3057\u3066\u3044\u308b\u3053\u3068\u306b\u3082\u6c17\u3092\u3064\u3051\u3066\u304f\u3060\u3055\u3044\u3002
\u3088\u308d\u3057\u304f\u304a\u9858\u3044\u3044\u305f\u3057\u307e\u3059\u3002
“””<\/p>\n\n\n\n
\u3000\u6642\u6298\u3001\u30ea\u30bf\u30a4\u30a2\u30fb\u5468\u56de\u9045\u308c\u7d44\u306e\u6ce8\u610f\u66f8\u304d\u306b\u91e3\u3089\u308c\u3066\u3001\u305d\u306e\u9806\u756a\u3067\u51fa\u529b\u3057\u3066\u304f\u308b\u3053\u3068\u304c\u3042\u308b\u306e\u3067\u3001\u4e00\u6642\u505c\u6b62\u3057\u3066\u3001Instruction\u306b\u66f8\u3044\u3066\u3042\u308b\u9806\u756a\u3092\u5b88\u3063\u3066\u3082\u3089\u3046\u3088\u3046\u6ce8\u610f\u559a\u8d77\u3059\u308b\u3068\u826f\u3044\u3060\u308d\u3046\u3002<\/p>\n\n\n\n
\u3000\u3053\u306e\u8868\u3092\u30b9\u30d7\u30ec\u30c3\u30c9\u30b7\u30fc\u30c8\u3084\u30a8\u30af\u30bb\u30eb\u306b\u8cbc\u308a\u4ed8\u3051\u3066\u3001\u3054\u4f7f\u7528\u3044\u305f\u3060\u3051\u308b\u3002<\/p>\n\n\n\n
2. VBA<\/h2>\n\n\n\n
\u3000\u8868\u3092\u30a8\u30af\u30bb\u30eb\u30b7\u30fc\u30c8\uff08A\u5217\u304c\u5468\u56de\u6570\u3067\u3001B\u304b\u3089U\u5217\u307e\u306720\u4eba\u304c\u4e26\u3076\u30024\u884c\u76ee\u304c1\u5468\u76ee\u3002\uff09\u306b\u8cbc\u308a\u4ed8\u3051\u305f\u3089\u300110\u30c1\u30fc\u30e0\u306e\u30ec\u30fc\u30b9\u30da\u30fc\u30b9\u30b0\u30e9\u30d5\u3092\u4e88\u3081\u4f5c\u6210\u3057\u3066\u304a\u304f\u3002\u30b0\u30e9\u30d5\u306e\u7e26\u8ef8\uff08\u30bf\u30a4\u30e0\uff09\u306e\u6700\u9069\u306a\u6700\u5927\u5024\u30fb\u6700\u5c0f\u5024\u306f\u30ec\u30fc\u30b9\u306b\u3088\u3063\u3066\u7570\u306a\u308a\u3001\u6a2a\u8ef8\uff08\u5468\u56de\u6570\uff09\u3082\u5f53\u7136\u7570\u306a\u308b\u306e\u3067\u3001\u4eba\u529b\u3067\u8abf\u6574\u3059\u308b\u306e\u306f\u610f\u5916\u306b\u9762\u5012\u304f\u3055\u3044\u3002\u3053\u3053\u3092\u81ea\u52d5\u5316\u3059\u308b\u306e\u304c\u4ee5\u4e0b\u306eVBA\u30d7\u30ed\u30b0\u30e9\u30e0\u3060\u3002<\/p>\n\n\n\n
\u301c\u301c\u301c\u30b3\u30fc\u30c91\u301c\u301c\u301c<\/p>\n\n\n\n
Sub UpdateGraphs()<\/p>\n\n\n\n
Dim ws As Worksheet<\/p>\n\n\n\n
Dim lastRow As Long<\/p>\n\n\n\n
Dim chartObj As ChartObject<\/p>\n\n\n\n
Dim cht As Chart<\/p>\n\n\n\n
Dim ser As Series<\/p>\n\n\n\n
Dim i As Integer<\/p>\n\n\n\n
Dim colIndex As Integer<\/p>\n\n\n\n
Dim colLetter As String<\/p>\n\n\n\n
Dim s As Integer<\/p>\n\n\n\n
Dim minValue As Double<\/p>\n\n\n\n
Dim minValueTruncated As Double<\/p>\n\n\n\n
Dim maxValue As Double<\/p>\n\n\n\n
Dim dataRange As Range<\/p>\n\n\n\n
‘ \u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3092\u8a2d\u5b9a<\/p>\n\n\n\n
Set ws = ActiveSheet<\/p>\n\n\n\n
‘ \u5217B\u304b\u3089\u5217U\u307e\u3067\u306e\u6700\u7d42\u884c\u3092\u53d6\u5f97\uff08\u5217B\u304b\u3089\u5217U\u306e\u4e2d\u3067\u6700\u3082\u4e0b\u306b\u3042\u308b\u30c7\u30fc\u30bf\u306e\u884c\uff09<\/p>\n\n\n\n
lastRow = ws.Range(“B:U”).Find(What:=”*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row<\/p>\n\n\n\n
‘ \u30c7\u30fc\u30bf\u7bc4\u56f2\u3092\u8a2d\u5b9a\uff08B4:U lastRow\uff09<\/p>\n\n\n\n
Set dataRange = ws.Range(“B4:U” & lastRow)<\/p>\n\n\n\n
‘ \u30c7\u30fc\u30bf\u7bc4\u56f2\u5185\u306e\u6700\u5c0f\u5024\u3092\u53d6\u5f97<\/p>\n\n\n\n
minValue = WorksheetFunction.Min(dataRange)<\/p>\n\n\n\n
‘ \u6700\u5c0f\u5024\u306e\u5c0f\u6570\u70b9\u4ee5\u4e0b1\u79d2\u672a\u6e80\u3092\u5207\u308a\u6368\u3066\u3066.000\u306b\u3059\u308b<\/p>\n\n\n\n
minValueTruncated = Int(minValue * 86400) \/ 86400<\/p>\n\n\n\n
‘ \u6700\u5927\u5024\u3092\u6700\u5c0f\u5024+8\u79d2\u306b\u8a2d\u5b9a<\/p>\n\n\n\n
maxValue = minValueTruncated + (8 \/ 86400)<\/p>\n\n\n\n
‘ \u30b0\u30e9\u30d51\u304b\u308910\u307e\u3067\u30eb\u30fc\u30d7<\/p>\n\n\n\n
For i = 1 To 10<\/p>\n\n\n\n
‘ \u30b0\u30e9\u30d5\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\uff08\u30b0\u30e9\u30d5\u306e\u540d\u524d\u3092\u9069\u5b9c\u5909\u66f4\u3057\u3066\u304f\u3060\u3055\u3044\uff09<\/p>\n\n\n\n
Set chartObj = ws.ChartObjects(“\u30b0\u30e9\u30d5 ” & i) ‘ \u30b0\u30e9\u30d5\u540d\u304c “\u30b0\u30e9\u30d5 1”, “\u30b0\u30e9\u30d5 2”, … \u306e\u5834\u5408<\/p>\n\n\n\n
‘ \u30b0\u30e9\u30d5\u304c\u5b58\u5728\u3059\u308b\u5834\u5408\u306e\u307f\u51e6\u7406\u3092\u5b9f\u884c<\/p>\n\n\n\n
If Not chartObj Is Nothing Then<\/p>\n\n\n\n
Set cht = chartObj.Chart<\/p>\n\n\n\n
‘ \u7cfb\u5217\u306e\u6570\u3092\u53d6\u5f97\uff08\u5404\u30b0\u30e9\u30d5\u306b\u306f2\u3064\u306e\u7cfb\u5217\u304c\u3042\u308b\u3068\u4eee\u5b9a\uff09<\/p>\n\n\n\n
For s = 1 To 2<\/p>\n\n\n\n
‘ \u7cfb\u5217\u3092\u53d6\u5f97<\/p>\n\n\n\n
Set ser = cht.SeriesCollection(s)<\/p>\n\n\n\n
‘ \u7cfb\u5217\u306eY\u5024\u306e\u5217\u3092\u53d6\u5f97<\/p>\n\n\n\n
‘ \u6307\u5b9a\u3055\u308c\u305f\u5bfe\u5fdc\u306b\u57fa\u3065\u3044\u3066\u5217\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3092\u8a08\u7b97<\/p>\n\n\n\n
‘ \u5217B\u306f2\u5217\u76ee\u306a\u306e\u3067\u3001Excel\u306e\u5217\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u306b\u5408\u308f\u305b\u308b<\/p>\n\n\n\n
colIndex = 2 * (i – 1) + s + 1 ‘ \u30b0\u30e9\u30d5\u756a\u53f7\u3068\u7cfb\u5217\u756a\u53f7\u304b\u3089\u5217\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3092\u8a08\u7b97<\/p>\n\n\n\n
‘ \u5217\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u304c21\uff08\u5217U\u3001\u5217\u30a4\u30f3\u30c7\u30c3\u30af\u30b921\uff09\u3092\u8d85\u3048\u306a\u3044\u3088\u3046\u306b\u3059\u308b<\/p>\n\n\n\n
If colIndex <= 21 Then<\/p>\n\n\n\n
colLetter = Split(ws.Cells(1, colIndex).Address, “$”)(1)<\/p>\n\n\n\n
‘ \u7cfb\u5217\u306eY\u5024\u306e\u7bc4\u56f2\u3092\u8a2d\u5b9a<\/p>\n\n\n\n
ser.Values = ws.Range(“$” & colLetter & “$3:$” & colLetter & “$” & lastRow)<\/p>\n\n\n\n
‘ X\u5024\u306e\u7bc4\u56f2\u3092\u8a2d\u5b9a\uff08\u4f8b\u3068\u3057\u3066\u5217A\u3092\u4f7f\u7528\uff09<\/p>\n\n\n\n
ser.XValues = ws.Range(“$A$3:$A$” & lastRow)<\/p>\n\n\n\n
End If<\/p>\n\n\n\n
Next s<\/p>\n\n\n\n
‘ \u30b0\u30e9\u30d5\u306eY\u8ef8\u306e\u6700\u5c0f\u5024\u3068\u6700\u5927\u5024\u3092\u8a2d\u5b9a<\/p>\n\n\n\n
With cht.Axes(xlValue)<\/p>\n\n\n\n
.MinimumScale = minValueTruncated<\/p>\n\n\n\n
.MaximumScale = maxValue<\/p>\n\n\n\n
End With<\/p>\n\n\n\n
End If<\/p>\n\n\n\n
Next i<\/p>\n\n\n\n
End Sub<\/p>\n\n\n\n
\u301c\u301c\u301c\u301c\u301c\u301c<\/p>\n\n\n\n
\u3000\u7b46\u8005\u306f\u3001\u30d5\u30a1\u30b9\u30c6\u30b9\u30c8\u30e9\u30c3\u30d7\u306e\u5c0f\u6570\u70b9\u4ee5\u4e0b\u3092\u5207\u308a\u6368\u3066\u305f\u5024\u3092\u6700\u5c0f\u5024\u306b\u8a2d\u5b9a\u3057\u3001\u305d\u306e8\u79d2\u843d\u3061\u3092\u6700\u5927\u5024\u3068\u3057\u3066\u304d\u3066\u3044\u308b\u305f\u3081\u3001\u3053\u306e\u3088\u3046\u306b\u306a\u3063\u305f\u304c\u3001\u3053\u306e\u8fba\u308a\u306f\u500b\u4eba\u306e\u597d\u307f\u3067\u826f\u3044\u3060\u308d\u3046\u3002\u3042\u308b\u3044\u306f\u3001\u30a6\u30a7\u30c3\u30c8\u30ec\u30fc\u30b9\u306a\u3069\u3067\u3001\u81ea\u5206\u3067\u5f04\u308a\u306a\u304c\u3089\u6c7a\u3081\u305f\u3044\u969b\u306f\u30b0\u30e9\u30d5 1\u306e\u307f\u624b\u52d5\u3067\u884c\u3044\u3001\u6b8b\u308a9\u3064\u306f\u4ee5\u4e0b\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u30b0\u30e9\u30d5 1\u3068\u540c\u3058\u8a2d\u5b9a\u306b\u3059\u308c\u3070\u826f\u3044\u3060\u308d\u3046\u3002<\/p>\n\n\n\n
\u301c\u301c\u301c\u30b3\u30fc\u30c92\u301c\u301c\u301c<\/p>\n\n\n\n
Sub SetAxisMinMax()<\/p>\n\n\n\n
Dim chart1 As ChartObject<\/p>\n\n\n\n
Dim chart1Axis As Axis<\/p>\n\n\n\n
Dim chart2to10 As ChartObject<\/p>\n\n\n\n
Dim i As Integer<\/p>\n\n\n\n
‘ \u30b0\u30e9\u30d51\u306e\u6700\u5c0f\u5024\u3068\u6700\u5927\u5024\u3092\u53d6\u5f97<\/p>\n\n\n\n
Set chart1 = ActiveSheet.ChartObjects(1)<\/p>\n\n\n\n
Set chart1Axis = chart1.Chart.Axes(xlValue, xlPrimary)<\/p>\n\n\n\n
minValue = chart1Axis.MinimumScale<\/p>\n\n\n\n
maxValue = chart1Axis.MaximumScale<\/p>\n\n\n\n
‘ \u30b0\u30e9\u30d52\u304b\u308910\u306e\u8ef8\u306b\u6700\u5c0f\u5024\u3068\u6700\u5927\u5024\u3092\u8a2d\u5b9a<\/p>\n\n\n\n
For i = 2 To 10<\/p>\n\n\n\n
Set chart2to10 = ActiveSheet.ChartObjects(i)<\/p>\n\n\n\n
Set chartAxis = chart2to10.Chart.Axes(xlValue, xlPrimary)<\/p>\n\n\n\n
chartAxis.MinimumScale = minValue<\/p>\n\n\n\n
chartAxis.MaximumScale = maxValue<\/p>\n\n\n\n
Next i<\/p>\n\n\n\n
End Sub<\/p>\n\n\n\n
\u301c\u301c\u301c\u301c\u301c\u301c<\/p>\n\n\n\n
\u3000\u6700\u5f8c\u306b\u3001\u5206\u6790\u3092\u3059\u308b\u4e0a\u3067\u6b20\u304b\u305b\u306a\u3044\u306e\u304c\u3001\u30af\u30ea\u30a2\u30a8\u30a2\u3068\u30c0\u30fc\u30c6\u30a3\u30a8\u30a2\u306e\u8b58\u5225\u3060\u3002\u3053\u308c\u306f\u524d\u65b9\u306b\u3044\u308b\u30c9\u30e9\u30a4\u30d0\u30fc\u304c2\u79d2\u4ee5\u5185\u306b\u3044\u308b\u969b\u306b\u305d\u306e\u30e9\u30c3\u30d7\u306e\u30bb\u30eb\u306b\u8272\u3092\u3064\u3051\u308b\u3088\u3046\u306b\u3059\u308c\u3070\u826f\u3044\u3002\u4ee5\u4e0b\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u53ef\u80fd\u3060\u3002<\/p>\n\n\n\n
\u301c\u301c\u301c\u30b3\u30fc\u30c93\u301c\u301c\u301c<\/p>\n\n\n\n
Sub HighlightCloseGapsAdvanced()<\/p>\n\n\n\n
Dim ws As Worksheet<\/p>\n\n\n\n
Dim lastRow As Long<\/p>\n\n\n\n
Dim lastCol As Long<\/p>\n\n\n\n
Dim i As Long, j As Long<\/p>\n\n\n\n
Dim driverCount As Long<\/p>\n\n\n\n
Dim lapTimes() As Variant<\/p>\n\n\n\n
Dim cumulativeTimes() As Double<\/p>\n\n\n\n
Dim positions() As Long<\/p>\n\n\n\n
Dim driverIndices() As Long<\/p>\n\n\n\n
Dim timeDiff As Double<\/p>\n\n\n\n
Dim sortedIndices() As Long<\/p>\n\n\n\n
Dim temp As Double<\/p>\n\n\n\n
Dim k As Long<\/p>\n\n\n\n
‘ \u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3092\u8a2d\u5b9a<\/p>\n\n\n\n
Set ws = ActiveSheet<\/p>\n\n\n\n
‘ \u30c9\u30e9\u30a4\u30d0\u30fc\u306e\u6570\uff08\u5217\u6570\uff09\u3092\u53d6\u5f97\uff08\u5217B\u304b\u3089U\u307e\u3067\u306e20\u5217\uff09<\/p>\n\n\n\n
driverCount = ws.Range(“B1:U1”).Columns.Count<\/p>\n\n\n\n
‘ \u30c9\u30e9\u30a4\u30d0\u30fc\u306e\u5217\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3092\u53d6\u5f97<\/p>\n\n\n\n
Dim driverCols() As Long<\/p>\n\n\n\n
ReDim driverCols(1 To driverCount)<\/p>\n\n\n\n
For j = 1 To driverCount<\/p>\n\n\n\n
driverCols(j) = ws.Range(“B1”).Column + j – 1<\/p>\n\n\n\n
Next j<\/p>\n\n\n\n
‘ \u30c7\u30fc\u30bf\u306e\u6700\u7d42\u884c\u3092\u53d6\u5f97\uff08\u5217B\u304b\u3089U\u306e\u4e2d\u3067\u6700\u3082\u4e0b\u306b\u3042\u308b\u30c7\u30fc\u30bf\u306e\u884c\uff09<\/p>\n\n\n\n
lastRow = ws.Range(“B:U”).Find(What:=”*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row<\/p>\n\n\n\n
‘ \u30e9\u30c3\u30d7\u3054\u3068\u306b\u51e6\u7406<\/p>\n\n\n\n
For i = 4 To lastRow<\/p>\n\n\n\n
‘ \u5404\u30c9\u30e9\u30a4\u30d0\u30fc\u306e\u7d2f\u7a4d\u30bf\u30a4\u30e0\u3092\u8a08\u7b97<\/p>\n\n\n\n
ReDim cumulativeTimes(1 To driverCount)<\/p>\n\n\n\n
For j = 1 To driverCount<\/p>\n\n\n\n
cumulativeTimes(j) = 0<\/p>\n\n\n\n
For k = 4 To i<\/p>\n\n\n\n
If IsNumeric(ws.Cells(k, driverCols(j)).Value) Then<\/p>\n\n\n\n
cumulativeTimes(j) = cumulativeTimes(j) + ws.Cells(k, driverCols(j)).Value<\/p>\n\n\n\n
Else<\/p>\n\n\n\n
cumulativeTimes(j) = 0 ‘ \u30c7\u30fc\u30bf\u304c\u306a\u3044\u5834\u5408\u306f0\u306b\u8a2d\u5b9a<\/p>\n\n\n\n
Exit For ‘ \u30c7\u30fc\u30bf\u304c\u306a\u3044\u5834\u5408\u306f\u8a08\u7b97\u3092\u4e2d\u65ad<\/p>\n\n\n\n
End If<\/p>\n\n\n\n
Next k<\/p>\n\n\n\n
Next j<\/p>\n\n\n\n
‘ \u30c9\u30e9\u30a4\u30d0\u30fc\u306e\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3092\u4fdd\u6301<\/p>\n\n\n\n
ReDim driverIndices(1 To driverCount)<\/p>\n\n\n\n
For j = 1 To driverCount<\/p>\n\n\n\n
driverIndices(j) = j<\/p>\n\n\n\n
Next j<\/p>\n\n\n\n
‘ \u7d2f\u7a4d\u30bf\u30a4\u30e0\u306b\u57fa\u3065\u3044\u3066\u30c9\u30e9\u30a4\u30d0\u30fc\u3092\u30bd\u30fc\u30c8\uff08\u30d0\u30d6\u30eb\u30bd\u30fc\u30c8\u3092\u4f7f\u7528\uff09<\/p>\n\n\n\n
For j = 1 To driverCount – 1<\/p>\n\n\n\n
For k = j + 1 To driverCount<\/p>\n\n\n\n
If cumulativeTimes(j) > cumulativeTimes(k) Then<\/p>\n\n\n\n
‘ \u7d2f\u7a4d\u30bf\u30a4\u30e0\u3092\u30b9\u30ef\u30c3\u30d7<\/p>\n\n\n\n
temp = cumulativeTimes(j)<\/p>\n\n\n\n
cumulativeTimes(j) = cumulativeTimes(k)<\/p>\n\n\n\n
cumulativeTimes(k) = temp<\/p>\n\n\n\n
‘ \u30c9\u30e9\u30a4\u30d0\u30fc\u306e\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3092\u30b9\u30ef\u30c3\u30d7<\/p>\n\n\n\n
temp = driverIndices(j)<\/p>\n\n\n\n
driverIndices(j) = driverIndices(k)<\/p>\n\n\n\n
driverIndices(k) = temp<\/p>\n\n\n\n
End If<\/p>\n\n\n\n
Next k<\/p>\n\n\n\n
Next j<\/p>\n\n\n\n
‘ \u5404\u30c9\u30e9\u30a4\u30d0\u30fc\u306b\u3064\u3044\u3066\u30bf\u30a4\u30e0\u5dee\u3092\u8a08\u7b97\u3057\u3001\u30cf\u30a4\u30e9\u30a4\u30c8<\/p>\n\n\n\n
For j = 2 To driverCount<\/p>\n\n\n\n
Dim currentDriver As Long<\/p>\n\n\n\n
Dim previousDriver As Long<\/p>\n\n\n\n
currentDriver = driverIndices(j)<\/p>\n\n\n\n
previousDriver = driverIndices(j – 1)<\/p>\n\n\n\n
‘ \u30c7\u30fc\u30bf\u304c\u5b58\u5728\u3059\u308b\u304b\u78ba\u8a8d<\/p>\n\n\n\n
If cumulativeTimes(j) > 0 And cumulativeTimes(j – 1) > 0 Then<\/p>\n\n\n\n
timeDiff = (cumulativeTimes(j) – cumulativeTimes(j – 1)) * 86400 ‘ \u79d2\u306b\u5909\u63db<\/p>\n\n\n\n
‘ \u30bf\u30a4\u30e0\u5dee\u304c0\u4ee5\u4e0a2.0\u79d2\u4ee5\u4e0b\u306e\u5834\u5408<\/p>\n\n\n\n
If timeDiff >= 0 And timeDiff <= 2 Then<\/p>\n\n\n\n
‘ \u30bb\u30eb\u3092\u30cf\u30a4\u30e9\u30a4\u30c8\uff08\u4f8b: \u9ec4\u8272\u306b\u8a2d\u5b9a\uff09<\/p>\n\n\n\n
ws.Cells(i, driverCols(currentDriver)).Interior.Color = RGB(204, 193, 218)<\/p>\n\n\n\n
Else<\/p>\n\n\n\n
‘ \u30cf\u30a4\u30e9\u30a4\u30c8\u3092\u89e3\u9664<\/p>\n\n\n\n
ws.Cells(i, driverCols(currentDriver)).Interior.ColorIndex = xlNone<\/p>\n\n\n\n
End If<\/p>\n\n\n\n
Else<\/p>\n\n\n\n
‘ \u30cf\u30a4\u30e9\u30a4\u30c8\u3092\u89e3\u9664<\/p>\n\n\n\n
ws.Cells(i, driverCols(currentDriver)).Interior.ColorIndex = xlNone<\/p>\n\n\n\n
End If<\/p>\n\n\n\n
Next j<\/p>\n\n\n\n
‘ \u5148\u982d\u306e\u30c9\u30e9\u30a4\u30d0\u30fc\u306e\u30cf\u30a4\u30e9\u30a4\u30c8\u3092\u89e3\u9664<\/p>\n\n\n\n
currentDriver = driverIndices(1)<\/p>\n\n\n\n
ws.Cells(i, driverCols(currentDriver)).Interior.ColorIndex = xlNone<\/p>\n\n\n\n
Next i<\/p>\n\n\n\n
End Sub<\/p>\n\n\n\n
\u301c\u301c\u301c\u301c\u301c\u301c<\/p>\n\n\n\n
\u203b\u7ba1\u7406\u4eba\u306e\u30b7\u30fc\u30c8\u4e0a\u3067\u306f\u6642\u6298\u30c0\u30fc\u30c6\u30a3\u30a8\u30a2\u306b\u3082\u95a2\u308f\u3089\u305a\u30cf\u30a4\u30e9\u30a4\u30c8\u3055\u308c\u3066\u3044\u306a\u3044\u3053\u3068\u304c\u3042\u308b\u304c\u3001\u539f\u56e0\u306f\u4e0d\u660e\u3002\u30b3\u30fc\u30c9\u3067\u306f\u306a\u304f\u30b7\u30fc\u30c8\u5074\u306b\u554f\u984c\u304c\u3042\u308b\u53ef\u80fd\u6027\u3082\u3042\u308a\u3002<\/p>\n\n\n\n
\u3000\u3053\u308c\u306b\u3066\u3001\u5206\u6790\u3092\u59cb\u3081\u308b\u307e\u3067\u306e\u6bb5\u968e\u306e\u591a\u304f\u90e8\u5206\u3092\u81ea\u52d5\u5316\u3067\u304d\u305f\u3002\u7b46\u8005\u306e\u5206\u6790\u30b9\u30bf\u30a4\u30eb\u306b\u5408\u3063\u305f\u3082\u306e\u306b\u306f\u306a\u3063\u3066\u3057\u307e\u3063\u3066\u3044\u308b\u304c\u3001\u5217\u3084\u884c\u306e\u4f7f\u3044\u65b9\u3001\u30c9\u30e9\u30a4\u30d0\u30fc\u306e\u4e26\u3073\u3001\u30c0\u30fc\u30c6\u30a3\u30a8\u30a2\u306e\u57fa\u6e96\u306a\u3069\u3001\u500b\u3005\u4eba\u3067\u30ab\u30b9\u30bf\u30de\u30a4\u30ba\u3059\u308b\u306a\u308a\u3001\u3053\u308c\u3092\u30d2\u30f3\u30c8\u306bo1\u3068\u306e\u3084\u308a\u53d6\u308a\u3092\u901a\u3057\u3066\u3088\u308a\u512a\u308c\u305f\u624b\u6cd5\u3092\u751f\u307f\u51fa\u3057\u3066\u3044\u3063\u3066\u3044\u305f\u3060\u3051\u308c\u3070\u672c\u671b\u3060\u3002<\/p>\n\n\n\n
Writer: Takumi<\/p>\n","protected":false},"excerpt":{"rendered":"
\u3000\u6628\u4eca\u3001FIA\u306e\u30ea\u30b6\u30eb\u30c8\u3068\u30c7\u30fc\u30bf\u306e\u30da\u30fc\u30b8\u304c\u30a2\u30af\u30bb\u30b9\u3067\u304d\u306a\u304f\u306a\u3063\u3066\u304a\u308a\u3001\u30e9\u30c3\u30d7\u30bf\u30a4\u30e0\u3092\u5165\u624b\u3059\u308b\u306b\u306fFIA\u306e\u30a4\u30d9\u30f3\u30c8\u30da\u30fc\u30b8\u304b\u3089PDF\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u305b\u3056\u308b\u3092\u5f97\u306a\u304f\u306a\u3063\u305f\u3002\u4e00\u65b9\u30019\/13\u306b\u306fOpenAI\u304b\u3089\u8ad6\u7406\u30fb\u6570\u5b66\u77e5\u80fd\u306b\u9577\u3051\u305f […]<\/p>\n","protected":false},"author":1,"featured_media":12718,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[121,57],"class_list":["post-12716","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-uncategorized","tag-ai","tag-57"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=\/wp\/v2\/posts\/12716","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=12716"}],"version-history":[{"count":6,"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=\/wp\/v2\/posts\/12716\/revisions"}],"predecessor-version":[{"id":12752,"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=\/wp\/v2\/posts\/12716\/revisions\/12752"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=\/wp\/v2\/media\/12718"}],"wp:attachment":[{"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=12716"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=12716"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/f1-lap-time.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=12716"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}