vba - Excel VBA强制数值转换为时间格式

Question

有两列从 Access 数据库复制到工作簿中。

我想确保数据格式正确，因此我添加了以下代码:

'DateTime Column
Sheets("Sheet1").Columns("A:A").Select
Selection.NumberFormat = "m/d/yyyy hh:mm"

'Time Column
Sheets("Sheet1").Columns("B:B").Select
Selection.NumberFormat = "hh:mm"

日期时间列格式正确。
时间列最初被复制为等效数字(即 0.595277777777778)，而不是时间值 (14:17)。

运行宏代码对视觉显示没有任何影响，直到我按 F2 并在应用格式的单元格上输入后才会出现。

有没有一种方法(短循环)来强制 Excel 应用格式？

Answer 1

您可以使用 VBA 通过将范围的 value 属性设置为自身来实现与 Steve Homer 的答案相同的效果:

Dim r As Range
Set r = Sheets("Sheet1").Columns("B:B")
r.Value = r.Value