Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 213|回复: 4

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

[复制链接]
发表于 2021-2-26 15:40 | 显示全部楼层 |阅读模式
本帖最后由 qdzbk 于 2021-2-27 10:43 编辑

保险到期日期提示.rar (9.43 KB, 下载次数: 4)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-2-26 16:00 | 显示全部楼层
把這行代碼裡給刪掉 → Application.ThisCell.Interior.ColorIndex = xlNone

祝順心,南無阿彌陀佛!
回复

使用道具 举报

 楼主| 发表于 2021-2-26 16:20 | 显示全部楼层
cutecpu 发表于 2021-2-26 16:00
把這行代碼裡給刪掉 → Application.ThisCell.Interior.ColorIndex = xlNone

祝順心,南無阿彌陀佛!

首先谢谢老师的回复!删了可以,但怎样设置有公式的(当前单元格颜色)?
回复

使用道具 举报

发表于 2021-2-26 18:34 | 显示全部楼层
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


祝順心,南無阿彌陀佛!

回复

使用道具 举报

 楼主| 发表于 2021-2-27 09:31 | 显示全部楼层
本帖最后由 qdzbk 于 2021-2-27 10:42 编辑
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

评分

参与人数 1学分 +2 收起 理由
cutecpu + 2 学习了

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-4-20 06:21 , Processed in 0.124800 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表