您的位置:首页 >数码通讯 >

条件格式怎么设置多个条件判断(条件格式怎么设置多个条件)

导读 您好,今天小编胡舒来为大家解答以上的问题。条件格式怎么设置多个条件判断,条件格式怎么设置多个条件相信很多小伙伴还不知道,现在让我们一...

您好,今天小编胡舒来为大家解答以上的问题。条件格式怎么设置多个条件判断,条件格式怎么设置多个条件相信很多小伙伴还不知道,现在让我们一起来看看吧!

1、把你要设置该条件格式的文件都放在一个目录,然后在该目录下新建一个工作薄,并打开,按ALT+F11打开VBA编辑器,,在左边列表栏点击鼠标右键插入一个模块,粘贴以下代码到右边窗口,保存然后执行该代码. 这个目录下所有excel文件的第一个表格都会按你的要求设置了条件格式注意:文件为excel 2003版扩展名是xls,代码如下:Sub Macro1()Dim FileName As StringDim WB As WorkbookFileName = Dir(ThisWorkbook.Path & "*.xls")If FileName <> "" Then    Do        If FileName <> ***.Name Then            Set WB = ***.Open(ThisWorkbook.Path & "" & FileName)            With WB.Sheets(1)                For i = 0 To 21                    str1 = "=" & Range("e1").Offset(0, i).Address                    str2 = "=" & Range("e2").Offset(0, i).Address                    With .Range("E3:E3000").Offset(0, i)                        .FormatConditions.Delete                        .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, Formula1:=str1, Formula2:=str2                        .FormatConditions(1).Interior.ColorIndex = 3                    End With                Next            End With            ***.Save            WB.Close        End If        FileName = Dir    Loop While FileName <> ""End IfEnd Sub如果能下载附件 ,直接把这个文件放到你要设置条件格式的目录中,执行Macro1 宏.。

本文就为大家分享到这里,希望小伙伴们会喜欢。

免责声明:本文由用户上传,如有侵权请联系删除!