Excel表格单元格内容是否与某个文件夹内文件名称相同，如果不相同就用颜色标示。
例如：Excel 单元格内 "B223" 在某文件夹内有一个文件名称是 "20131220_B223.pdf" , 即表示相同。
假定文件夹为：E:\ABC，单元格为A1，代码如下：
wjm = Dir("E:\ABC\*.*")
Do While wjm <> ""
If InStr(wjm, [A1]) > 0 Then Exit Do
wjm = Dir
Loop
If wjm = "" Then [A1].Interior.ColorIndex = 3‘设置背景色为红色
wjm = Dir("E:\ABC\*.*")
Do While wjm <> ""
If InStr(wjm, [A1]) > 0 Then Exit Do
wjm = Dir
Loop
If wjm = "" Then [A1].Interior.ColorIndex = 3‘设置背景色为红色
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-12-30
假设文件夹为 mypath, 单元格A1
ifile=dir(mypath)
do while ifle<>""
if instr(ifile,"B223")>0 then goto 100
ifile=dir
loop
'标记颜色
cells(1,1).Interior.ColorIndex = 5 '标为蓝色
100 exit sub追问
ifile=dir(mypath)
do while ifle<>""
if instr(ifile,"B223")>0 then goto 100
ifile=dir
loop
'标记颜色
cells(1,1).Interior.ColorIndex = 5 '标为蓝色
100 exit sub追问
感谢你的回复! 运行出现如下讯息，麻烦帮忙看下怎么回事？
你点调试,看看是那句有问题.
