execll里面有手表数据,每个手表编号不同,每个手表有开始时间和结束,还有电量,获取电量的最大值和最小值这一条数据编码举例
时间: 2024-03-01 07:52:08 浏览: 119
以下是一个示例代码,可以通过VBA来实现获取电量最大值和最小值:
```
Sub GetMaxMinBattery()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") '将Sheet1替换为你的工作表名称
Dim watchID As String
watchID = "W001" '将W001替换为你要查询的手表编号
Dim maxBattery As Double
Dim minBattery As Double
maxBattery = 0
minBattery = 100 '假设电量范围在0-100之间
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row '获取最后一行的行号
Dim i As Long
For i = 2 To lastRow '从第2行开始循环,第1行为表头
If ws.Cells(i, "B").Value = watchID Then '判断手表编号是否匹配
Dim battery As Double
battery = ws.Cells(i, "C").Value '假设电量数据在C列
If battery > maxBattery Then
maxBattery = battery
End If
If battery < minBattery Then
minBattery = battery
End If
End If
Next i
'将结果输出到单元格
ws.Cells(2, "E").Value = maxBattery '假设最大值输出到E2单元格
ws.Cells(3, "E").Value = minBattery '假设最小值输出到E3单元格
End Sub
```
你需要将代码中的 "Sheet1" 替换为你的工作表名称,"W001" 替换为你要查询的手表编号,以及电量数据的列号。然后运行这段代码即可将结果输出到指定单元格。
阅读全文