时间戳

首页 > 解决方案 > EXCEL VBA 类型不匹配（13）时间戳差异

excel - EXCEL VBA 类型不匹配（13）时间戳差异

问题描述

Excelfile 您好，我有一个带有时间戳的 excel 文件，如图所示，我想计算差异并在新列中输入值。我尝试了以下代码，但它显示类型不匹配错误，我不知道为什么。我知道这很容易，但我是 VBA 新手，所以请帮助我。

\\Sub macro1() 
  Dim i As Integer
  Dim j As Integer
  Dim k As Integer
  i = 1
  j = 2
  k = 2
  Do While Cells(i, 1).Value <> ""
  Cells(k, 2).Value = Cells(j, 1).Value - Cells(i, 1).Value
  i = i + 1
  j = i + 1
  k = i
  Loop
  End Sub

标签： excelvba

解决方案

您的格式 (2.10.2017 08:08:30) 应在使用 CDate 将单元格值转换为日期之前进行操作，然后使用 VBA 函数 DateDiff。见下文。将 =timeDiff(A2,A1) 放入 B2，然后复制到 B3 并向下。下面是 VBA 代码。

Public Function transformCellStrInDate(ByVal rng As Range) As Date
Dim splitArr As Variant, dateArr As Variant, dateStr As String

splitArr = Split(Trim(rng.Value))
dateArr = Split(splitArr(0), ".")
dateStr = dateArr(0) & "/" & dateArr(1) & "/" & dateArr(2) & " " & splitArr(1)
transformCellStrInDate = CDate(dateStr)
Erase dateArr: Erase splitArr

End Function

Public Function timeDiff(ByVal rngY As Range, ByVal rngX As Range) As Long

timeDiff = DateDiff("n", transformCellStrInDate(rngX), transformCellStrInDate(rngY)) / 60 ' in Hours

End Function

推荐阅读