excel - 从 Excel 中绘制时间戳数据

Question

我的 Excel 表上记录了数据。该数据实际上是时间戳。

我想绘制我记录的时间戳第一个图像值，类似于下图第二个。

---

---

Answer 1

在回答您的问题和您的评论时，您希望及时构建事件的直方图。

您需要定义所需的 bin 大小。假设您的 bin 大小为 5 分钟，并且您想要绘制 24 小时的直方图。

用手做

创建一个小表如下：

         A      |  B                |  C
  -----------------------------------------------------
1 |    start    | end               | event_count
2 |    00:00:00 | =A2 + time(0,5,0) | =countIfS(dataSheet!G:G,">=" & A2,dataSheet!G:G,"<" & B2)
3 |    =B2      | =A3 + time(0,5,0) | =countIfS(dataSheet!G:G,">=" & A3,dataSheet!G:G,"<" & B3)

根据需要多次复制第 3 行中的公式。然后创建一个条形图。

请注意，写在单元格B2, B3,... 中的公式中的值是您指定的 bin 的大小。

用代码做

由于这是一个编程问答网站，因此需要一个编程解决方案：

public sub createMyTimeHistogram(inputRange as Range, binSize as integer)
' Parameters:
'    inputRange: The range that stores the data
'    binSize: The size of the bin (in minutes)

    Dim t as Date
    Dim n as Integer
    Dim outputSheet as String, outputRow as long


    t = timeserial(0,0,0)
    outputSheet = "MyOutputSheet" ' I'll assume this worksheet exists in the current workbook,
                                  ' and it is empty
    With thisWorkbook.Sheets(outputSheet)
        .cells(1,1).value = "Bin"
        .cells(1,2).value = "Count"
    End With
    outputRow = 2
    while t < 1
        n = Excel.WorksheetFunction.CountIfS(inputRange, ">=" & CDbl(t), inputRange, "<" & CDbl(t + timeserial(0,binSize,0)))
        With thisWorkbook.Sheets(outputSheet)
            .cells(outputRow, 1).Value = t
            .cells(outputRow, 2).Value = n
        End With
        t + timeserial(0,binSize,0)
        outputRow = outputRow + 1
    wend
end sub