根据条件将时间转成相应文本

szdcp · 发表于 2025-4-17 16:38

本帖最后由 szdcp 于 2025-4-17 20:18 编辑

各位大神：

附件中的时间根据条件替换成文本，如果单元格时间小于上午10：00则将该单元格的内容替换为“下午未打卡”，如果单元格时间大于下午5：30则将该单元格的内容替换成“上午未打卡”，菜鸟七拼八凑写了一个宏，运行代码也没错误提示，但时间没有被替换，请大神帮忙看看是什么原因。谢谢！

ykcbf1100 · 发表于 2025-4-17 17:37

你这代码应该也不是你自己写的吧。

ykcbf1100 · 发表于 2025-4-17 17:38

Sub ykcbf() '//2025.4.17
Set Rng = Range("a1").CurrentRegion.Offset(1, 1)
arr = Rng.Value
For Each k In Rng
If k.Value = Empty Then GoTo 100
tim = TimeValue(Format(k.Value, "hh:mm"))
If tim < TimeValue("10:00") Then
k.Value = "下午未打卡"
ElseIf tim > TimeValue("17:30") Then
k.Value = "上午未打卡"
End If
100:
Next
End Sub

复制代码

szdcp · 发表于 2025-4-17 19:57

ykcbf1100 发表于 2025-4-17 17:37
你这代码应该也不是你自己写的吧。

依葫芦画瓢抄的

szdcp · 发表于 2025-4-17 20:00

ykcbf1100 发表于 2025-4-17 17:38

谢谢大神，正是我要的结果

szdcp · 发表于 2025-4-17 20:17

本帖最后由 szdcp 于 2025-4-17 20:19 编辑

ykcbf1100 发表于 2025-4-17 17:38

大神您好！非常不好意思，示例没做好，有其它单元格不为空，而是文本该怎样改，附件重新上传了。请帮忙，非常感谢！

ykcbf1100 · 发表于 2025-4-17 21:26

szdcp 发表于 2025-4-17 20:17
大神您好！非常不好意思，示例没做好，有其它单元格不为空，而是文本该怎样改，附件重新上传了。请帮忙， ...

改好了。。。

szdcp · 发表于 2025-4-17 21:56

ykcbf1100 发表于 2025-4-17 21:26
改好了。。。

感谢帮助，非常完美

		自动登录	找回密码
密码			免费注册

[求助] 根据条件将时间转成相应文本

评分

评分

评分

浏览过的版块