求写宏代码

木虫

宏要求
要求B列等于A列加24小时
要求B列时间是当日12点前的填充红色
要求C列单元格出现四班时填充蓝色
每次宏运行从追加信息开始执行
希望大神再写上批注  好学习一下  拜托了

582766

B列的数据是什么，楼主可以模拟实现后的效果

ssfx1982

1. Sub test()
   
2.     Dim rg As Range, cel As Range
   
3.     Const ADD_HOUR As Double = 24 '自定义增加的小时数为常量，单位小时
   
4.     With Sheets(1) '限定对象范围为表1
   
5.         Set rg = .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row) '取得表1的A列的有效数据的单元格区域（A2至A列最后非空行[A12]）,并将A2:A12单元格区域赋值给对象rg
   
6.     End With
   
7.    
   
8.     rg.Interior.Color = xlNone 'rg范围填充色初始化,清除原先填充的颜色
   
9.     For Each cel In rg '从A2开始往下遍历单元格至A12
   
10.         cel.Offset(, 1) = cel.Value + ADD_HOUR / 24 'A列右偏移一格（即B列）的值=A列值+（ADD_HOUR / 24）
    
11.         '这里（ADD_HOUR / 24）将小时转化为天数，因日期和时间的本质均为序列数（整数部分为日期序列数，小数部分为时间序列数），可直接计算。
    
12.         '如A2单元格格式切换为常规后的实际值为44898.9291666667,序列数44898代表2022年12月3日，后面的小数序列数代表时间22：18：00
    
13.         If Hour(cel.Offset(, 1)) <= 12 Then cel.Offset(, 1).Interior.Color = vbRed '判断，Hour(cel.Offset(, 1))取得B列序列数中的小时数
    
14.         If InStr(cel.Offset(, 2), "四班") Then cel.Offset(, 2).Interior.Color = vbBlue '判断，InStr函数在cel.Offset(, 2)【C列】查找"四班"
    
15.     Next
    
16.    
    
17. End Sub
    

复制代码

tanglf188

木虫

tanglf188 发表于 2022-12-4 10:58

Range("B" & i) = DateAdd("d", 1, Range("A" & i))   'B列=A列+1天
无法运行 是怎么回事呢？

木虫

ssfx1982 发表于 2022-12-4 01:55

谢谢  最后四班填颜色 想换成浅蓝色，vbBlue（颜色太重了）应该变什么？换了还几次也没成功。

ssfx1982

木虫 发表于 2022-12-4 20:22
谢谢  最后四班填颜色 想换成浅蓝色，vbBlue（颜色太重了）应该变什么？换了还几次也没成功。

你自己录制个宏插入几种颜色，选个满意的，记下.color属性的值，替换VBBLUE即可

杨建营

请楼主参考，颜色可以自己修改。

木虫

ssfx1982 发表于 2022-12-4 23:11
你自己录制个宏插入几种颜色，选个满意的，记下.color属性的值，替换VBBLUE即可

明白了 谢谢

木虫

杨建营 发表于 2022-12-5 12:50
请楼主参考，颜色可以自己修改。

谢谢 你给于解答   有批注就更好了