`
阅: 472 | 回: 4
发表于2023/8/23 19:24:59 楼主 
头像 等级:初学者
积分:0
财富值:2.0
身份:普通用户
例如图中,已经设置8月2日到8月16日的单元格显示红色,那么怎么把这些单元格的下一个设为蓝色?
我的个性签名
发表于 2023/8/24 9:09:29   
头像 等级:学有小成
积分:17
财富值:30
身份:普通用户
http://www.ffcell.com/WenKu/article.aspx?id=512可以试一下lotex进行判断
我的个性签名
发表于 2023/8/24 9:20:47   
头像 等级:传说级人物
积分:2228
财富值:3
身份:系统管理员
复制 到微信打开,看看这个定位标记颜色 https://mp.weixin.qq.com/s/--Sa6lJVDFJUkVIyL1u5dA
方方格子安装教程http://www.ffcell.com/WenKu/article.aspx?id=376
发表于 2023/8/24 10:35:29   
头像 等级:学者
积分:71
财富值:2
身份:普通用户
格式刷
我的个性签名
发表于 2023/9/15 22:10:02   
头像 等级:初学者
积分:2
财富值:2
身份:普通用户
Sub ColorCode()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
      
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 将 "Sheet1" 替换为您的工作表名称
    Set rng = ws.UsedRange ' 使用已使用的范围,也可以指定特定范围,例如:ws.Range("A1:C10")
      
    For Each cell In rng
        If cell.Interior.Color = RGB(255, 0, 0) Then ' 如果单元格为红色
            cell.Offset(0, 1).Interior.Color = RGB(0, 0, 255) ' 将同行下一个单元格设置为蓝色
        End If
    Next cell
End Sub



试试这段VBA,

我的个性签名

快速回复

目前不允许游客发表,请 登录 注册 后再发贴。