5198| 8
|
一个单元格内某个符合条件的字符标色 |
1学分
最佳答案Sub test4()
Dim i As Integer, t As Integer, n As Integer
Dim rq As Date
Dim rg As Range
For Each rg In Range("a1", "a4:a6")
'此处区域范围可以调整
i = Len(rg) - Len(Application.Substitute(rg, ":", ""))
'求":"出现次数,即单元格内时间的个数
For t = 1 To i
If t = 1 Then
n = Application.Find(":", rg, 1)
Else
n = Application.Find(":", rg, n + 1)
End If
rq = TimeValue(Mid(rg, n - 2, 5))
' ...
| ||||
匿名
发表于 2019-5-22 13:40
| ||
发表于 2019-5-22 14:25
|
显示全部楼层
| ||
| ||
| ||
发表于 2019-5-22 15:55
|
显示全部楼层
| ||
发表于 2019-5-22 16:03
|
显示全部楼层
| ||
匿名
发表于 2019-5-23 17:31
| ||
| ||