excel_百度贴吧

楼主将贴子发布到了：excel吧|软件吧

8回复贴，共1页

excel

只看楼主收藏回复

qjy情歌

有个问题，请大神帮帮忙，再某个单元格我输入以下数字的时候字体会变蓝，单元格自动填充黄色，除了以下数字，输入其他的都不会变，请问这个公式怎么写啊，

送TA礼物

来自Android客户端1楼2017-07-31 20:40回复

秦時明月漢時圓
excel吧
10

这有什么难度，你把填充设置为黄色，字体设置为蓝色就行

2楼2017-07-31 20:48

收起回复

菠萝蜜
excel吧
11

'当前工作表change事件
Option Explicit
Dim dic
Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Count > 1 Then Exit Sub
　If TypeName(dic) = "Empty" Then setdic
　If IsNumeric(Target.Value) Then
　　Dim t
　　t = Val(Target.Value)
　　With Target
　　　.Font.Color = IIf(dic.exists(t), vbRed, vbBlack) '红色看起来更清楚一点
　　　.Interior.ColorIndex = IIf(dic.exists(t), 6, 0)
　　End With
　End If
End Sub
Function setdic()
　Dim arr, i
　arr = Array(10, 9, 20, 31, 42, 41, 3, 4, 14, 15, 25, 26, 36, 37, 47, 48)
　Set dic = CreateObject("scripting.dictionary")
　For i = 0 To UBound(arr): dic.Add arr(i), 1: Next
End Function

3楼2017-07-31 21:23

收起回复