|
7#
楼主 |
发表于 2016-1-5 14:52:37
|
只看该作者
roych版主:
1\ 我将你的模块套入以下代码,打开时可以自动运行!
2\ 但我将"开启时间"与"停止时间"去除后运行很慢,小方格的红色填充不能消失!望指点!谢谢!
Private Sub Workbook_Open()
myprocedure
End Sub
Sub myprocedure()
Dim i As Long, j As Long
Dim x As Long
'开始和结束位置,用于定位列数,以便填充。
Dim lngStartRange As Long
Dim lngEndRange As Long
'常量。初始值
Const SDate As Date = #1:00:00 AM#
'行终止值
x = Sheet1.Range("B3").End(xlDown).Row
For i = 3 To x
lngStartRange = DateDiff("n", SDate, Sheet1.Range("B" & i)) / 5
lngEndRange = DateDiff("n", SDate, Sheet1.Range("C" & i)) / 5 - 1
For j = lngStartRange To lngEndRange
Sheet1.Range("D" & i).Offset(0, j).Interior.Color = RGB(255, 0, 0)
Next j
Next i
End Sub
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|