改变指定单元格字体颜色的问题

zhaokuo

我做了一个自动copy文件的小工具，界面如下。有一个问题，如果file name错误即该文件不存在时，msgbox会提示【XXX not found】，我想在提示完该消息的同时把该文件名的字体变成红色。
代码如下，标红的那行是我自己写的，无法执行，请大神帮忙解决谢谢！！



代码：
Function IsFileExists(ByVal strFileName As String) As Boolean
    Dim objFileSystem As Object
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    If objFileSystem.fileExists(strFileName) = True Then
        IsFileExists = True
    Else
        IsFileExists = False
    End If
End Function
***********************************************************************
Sub copytest()
Dim a, b, c
Dim i, k
k = Cells(Rows.Count, 2).End(xlUp).Row
Set fs = CreateObject("Scripting.FileSystemObject")
For i = 3 To k
a = Cells(i, 2).Value
b = Cells(i, 3).Value
c = Cells(i, 4).Value
    If IsFileExists(b & "\" & a) = True Then
        fs.copyfile b & "\" & a, c & "\" & a
    Else
        MsgBox "【" & a & "】" & "not found"
       'Cells(i, 2).Font.ColorIndex = 1
    End If
Next i
MsgBox "OK"
End Sub

iwangyi

将颜色索引改为颜色cOLor

zhaokuo

iwangyi 发表于 2018-8-23 09:48
将颜色索引改为颜色cOLor

换成了vbred好用了