EXCEL表格数据问题。大神请进 数据太多了 实在忙不过来 50
请教红色的颜色是我自己标注的我用的EXCEL2007我想把下面两个格子一起标注成上面红色那种。一个一个的标注太麻烦了。我数值只要在0.2-0.6之间即可。求教大神怎么设置...
请教 红色的颜色是我自己标注的 我用的EXCEL 2007 我想把下面两个格子一起标注成上面红色那种。一个一个的标注太麻烦了。我数值只要在0.2-0.6之间即可。求教大神怎么设置
展开
展开全部
你自己改一下这个代码,我2007版已经调试完成
Sub start()
Application.ScreenUpdating = False
i = [a65536].End(3).Row
For a = 1 To i
For b = 1 To Len(Range("a" & a))
If Mid(Range("a" & a), b, 1) = "." Then
If Mid(Range("a" & a), b - 1, 1) = 0 And IsNumeric(Mid(Range("a" & a), b + 2, 1)) = False Then
If Mid(Range("a" & a), b - 1, 3) >= 0.2 And Mid(Range("a" & a), b - 1, 3) <= 0.6 Then Range("a" & a).Characters(start:=b - 1, Length:=3).Font.Color = -16776961
End If
End If
Next b
Next a
Application.ScreenUpdating = True
End Sub
Sub start()
Application.ScreenUpdating = False
i = [a65536].End(3).Row
For a = 1 To i
For b = 1 To Len(Range("a" & a))
If Mid(Range("a" & a), b, 1) = "." Then
If Mid(Range("a" & a), b - 1, 1) = 0 And IsNumeric(Mid(Range("a" & a), b + 2, 1)) = False Then
If Mid(Range("a" & a), b - 1, 3) >= 0.2 And Mid(Range("a" & a), b - 1, 3) <= 0.6 Then Range("a" & a).Characters(start:=b - 1, Length:=3).Font.Color = -16776961
End If
End If
Next b
Next a
Application.ScreenUpdating = True
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
仅仅把0.3标注为红色吗?若是的话,你可以把你的数据表格复制粘贴到word中,通过查找替换的办法实现你说要求,很简单的。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
建议使用VBA代码,公式做不了的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询