Question

我基本上想做的是在一个单元格中输入一个数字，然后在SAME单元格中将值更改为类似时间的格式，例如：

如果我在一个单元格中输入600，我想立即将其更改为6:00

到目前为止，我正在使用MID函数，但仅在另一个单元格中有效。

有人可以帮助我吗？

Answer 1

假设您只想添加“：”，则可以使用：

cells(row,col).value = left(cells(row,col).value,len(cells(row,col).value)-2) & ":" & right(cells(row,col).value,2)

有点长，但应该适合帐单并在2位数分钟之前更正1或2位数。

对于将来的帖子，请发布您使用的代码，以便人们可以复制/修复您的代码，推断更多信息或纠正可能固有地阻止满足意图的系统错误。

Answer 2

使用Worksheet_Change()事件处理程序

将其放置在所需的工作表代码窗格中：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error GoTo exitEvent

    Target.Value2 = Format(Target.value, "00:00")

exitEvent:
    Application.EnableEvents = True
End Sub

将同一单元格中一个单元格的值从EX：755更改为7:55

2 个答案: