参照标准（下图）用excel根据时间和年龄用公式计算跑步的成绩

2025-03-25 20:15:06

推荐回答（2个）

回答1：

这个标准函数很难实现吧。我用vba写个自定义函数来解决吧。

代码如下：

Function fmBJ(S1, S2) As Integer

'比较S1和S2的大小

'S1>S2 返回2 S1=S2 返回1 S1

Dim fs1 As Integer

Dim fs2 As Integer

Dim ms1 As Integer

Dim ms2 As Integer

fs1 = Left(S1, 2)

fs2 = Left(S2, 2)

ms1 = Mid(S1, 4, 2)

ms2 = Mid(S2, 4, 2)

If fs1 = fs2 And ms1 = ms2 Then

fmBJ = 1

Exit Function

Else

Select Case fs1 - fs2

Case Is > 0

fmBJ = 2

Case Is = 0

If ms1 > ms2 Then

fmBJ = 2

Else

fmBJ = 0

End If

Case Is < 0

fmBJ = 0

End Select

End If

End Function

Function pbFs(nl, fm) As Integer

Dim Ls As Integer

Dim Hs As Integer

Dim bJ As Boolean

Dim BJJG As Integer

Select Case nl

Case Is <= 24

Ls = 2

Case 25 To 28

Ls = 3

Case 29 To 31

Ls = 4

Case 32 To 34

Ls = 5

Case 35 To 37

Ls = 6

Case Is >= 38

Ls = 7

End Select

bJ = False

For I = 2 To 10

S1 = Cells(I, Ls).Text

BJJG = fmBJ(S1, fm)

If BJJG <> 0 Then

bJ = True

Exit For

End If

Next I

If bJ Then

pbFs = Cells(I, 1).Value

Else

pbFs = 0

End If

End Function

结果如图：

回答2：

截图未带行号列标，无法写出具体公式。

最新问答

中国人寿保险股份有限公司昌黎支公司怎么样？

明明平台上写着预约规则是早上7点，为什么还没到七点就都没有号了？等了好几天都没有挂到号

请问09年上牌开了1.7万公里 1.6升手动挡的世嘉三厢，现在值多少钱？

春字下面的日换成臼怎么读