请教老师:自定义函数中怎样当前单元格颜色设置?

qdzbk

保险到期日期提示.rar (9.43 KB, 下载次数: 6)

2021-2-26 15:40 上传

点击文件名下载附件

cutecpu

把這行代碼裡給刪掉 → Application.ThisCell.Interior.ColorIndex = xlNone

祝順心，南無阿彌陀佛！

qdzbk

cutecpu 发表于 2021-2-26 16:00
把這行代碼裡給刪掉 → Application.ThisCell.Interior.ColorIndex = xlNone

祝順心，南無阿彌陀佛！

首先谢谢老师的回复！删了可以，但怎样设置有公式的（当前单元格颜色）？

cutecpu

qdzbk 发表于 2021-2-26 16:20
首先谢谢老师的回复！删了可以，但怎样设置有公式的（当前单元格颜色）？

紅色部份，再改成您要的訊息即可

Function A_DATE(D As Range, T As Range)

Application.EnableEvents = False

If IsDate(D) And IsNumeric(T) Then
   s = DateDiff("d", Now(), D)
   If s = 0 Then
      FontColor = 2:InColor = 3
      A_DATE = 1
   ElseIf s < 0 Then
      FontColor = 3:InColor = 6
      A_DATE = 2
   ElseIf s + 1 <= T Then
      FontColor = 2:InColor = 3
      A_DATE = 3
   Else
      FontColor = 0:InColor = 0
      A_DATE = 4
   End If
End If

cmd = "setColor($cell,$FontColor,$InColor)"
cmd = Replace(cmd, "$cell", Application.Caller.Offset(0, 0).Address(False, False))
cmd = Replace(cmd, "$FontColor",FontColor)
cmd = Replace(cmd, "$InColor",InColor)
Evaluate cmd

Application.EnableEvents = True

End Function

Sub SetColor(r As Range, FontColor As Integer, InColor As Integer)
   r.Font.Color = FontColor
   r.Interior.ColorIndex = InColor
End Sub


祝順心，南無阿彌陀佛！

qdzbk

cutecpu 发表于 2021-2-26 18:34
紅色部份，再改成您要的訊息即可

Function A_DATE(D As Range, T As Range)

谢谢老师!!!
填充的颜色已解决，但文字颜色还是不能设置(不能改变)，请老师再看看。

自己修改好了,现在行了,再次谢谢老师!
Sub SetColor(r As Range, FontColor As Integer, InColor As Integer)
   r.Font.ColorIndex = FontColor
   r.Interior.ColorIndex = InColor
End Sub