① 條件格式中包含多個文本怎麼設置
把你要設置該條件格式的文件都放在一個目錄,然後在該目錄下新建一個工作薄,並打開,按ALT+F11打開VBA編輯器,,在左邊列表欄點擊滑鼠右鍵插入一個模塊,粘貼以下代碼到右邊窗口,
保存然後執行該代碼. 這個目錄下所有excel文件的第一個表格都會按你的要求設置了條件格式
注意:文件為excel 2003版擴展名是xls,
代碼如下:
SubMacro1()
DimFileNameAsString
DimWBAsWorkbook
FileName=Dir(ThisWorkbook.Path&"*.xls")
IfFileName<>""Then
Do
IfFileName<>ThisWorkbook.NameThen
SetWB=Workbooks.Open(ThisWorkbook.Path&""&FileName)
WithWB.Sheets(1)
Fori=0To21
str1="="&Range("e1").Offset(0,i).Address
str2="="&Range("e2").Offset(0,i).Address
With.Range("E3:E3000").Offset(0,i)
.FormatConditions.Delete
.FormatConditions.AddType:=xlCellValue,Operator:=xlNotBetween,Formula1:=str1,Formula2:=str2
.FormatConditions(1).Interior.ColorIndex=3
EndWith
Next
EndWith
WB.Save
WB.Close
EndIf
FileName=Dir
LoopWhileFileName<>""
EndIf
EndSub