UC知道EXCEL表格中的公式问题~追加~~在线等
来源：百度知道 编辑：UC知道 时间：2024/06/04 17:26:15
我再做一个表格~~大概意思是一笔款项的数额在B1单元格去所欠天数在C1单元格，D1单元格则为提醒等级，就是说C1中的天数为31-45时D1单元格为浅黄，C1为46-60时D1为茶色，C1为61-90时D1为粉红，C1为91-180时D1为红色~~这个公式该怎么做啊~~~谢谢大家了~~追加分数的
编写个宏来实现吧，帮你写出来了
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To 1000
If Cells(i, 3) < 31 Then
Cells(i, 4).Interior.ColorIndex = 2
ElseIf Cells(i, 3) < 46 Then
Cells(i, 4).Interior.ColorIndex = 6
ElseIf Cells(i, 3) < 61 Then
Cells(i, 4).Interior.ColorIndex = 9
ElseIf Cells(i, 3) < 91 Then
Cells(i, 4).Interior.ColorIndex = 7
ElseIf Cells(i, 3) < 181 Then
Cells(i, 4).Interior.ColorIndex = 3
End If
Next i
End Sub
怎么用知道吧，在EXCEL里面按Alt＋F11，在VB编辑器中点击sheet1，然后输入以上函数喉退出VB编辑器就行了，在excel上输入任意东西函数就启动。