excel vba给单元格填充颜色

1。E3：J162。单元10个字符时，填充单元格为红色（详细见上图片）... 1。E3：J16
2。单元10个字符时，填充单元格为红色（详细见上图片）展开

 我来答

2个回答

#热议# 上班途中天气原因受伤算工伤吗？

tlxwd
推荐于2016-08-13 · TA获得超过1148个赞

知道大有可为答主

回答量：1592

采纳率：66%

帮助的人：729万

我也去答题访问个人页

关注

展开全部

用条件格式：

追问

vba

追答

Private Sub CommandButton1_Click()
Dim rng As Range
For Each rng In ActiveSheet.Range("e3:j16")
If Len(rng) = 10 Then
    rng.Interior.ColorIndex = 3
ElseIf Len(rng) = 9 Then
    rng.Interior.ColorIndex = 6
ElseIf Len(rng) = 8 Then
    rng.Interior.ColorIndex = 10
ElseIf Len(rng) = 7 Then
    rng.Interior.ColorIndex = 5
End If
Next
End Sub

已赞过 已踩过<

评论收起

博思aippt
2024-07-20 广告

博思AIPPT是基于ai制作PPT的智能在线工具，它提供了4种AI制作PPT的方式，包括AI生成大纲、AI直接生成PPT、文本生成PPT、AI提炼word文档生成PPT，一站式集成多种AI生成PPT的方式，可满足办公用户的不同需求和使用场景... 点击进入详情页

本回答由博思aippt提供

庆年工坊
2015-06-22 · 知道合伙人互联网行家

庆年工坊
知道合伙人互联网行家

采纳数：4233 获赞数：8932

无

向TA提问私信TA

关注

展开全部

Sub xx()
Dim c As Range
For Each c In [e3:j16]
Select Case Len(c)
Case 10: x = 3
Case 9: x = 6
Case 8: x = 10
Case 7: x = 5
Case Else: x = xlNone
End Select
c.Interior.ColorIndex = x
Next
End Sub