時間：2005-02-04 22:20 來源：未知 作者：未知 閱讀：次

 
    If Sheets(1).[a1].Font.Color = vbYellow Then
        MsgBox "Yellow!"
    ElseIf Sheets(1).[a1].Font.Color = vbRed Then
        MsgBox "red!"
    Else
        Exit Sub
    End If

(責任編輯：admin)

上一篇：EXCEL如何用代碼設置宏的快捷鍵
下一篇：使用ADO獲取外部數(shù)據(jù)

• ·Excel VBA編輯語句集300條
• ·【技巧】excel文件破解密碼
• ·【Excel VBA】FileDialog 用法之 打開
• ·VBA修改ACCESS及EXCEL安全設置(源碼)
• ·實用的GET函數(shù)
• ·日期改為顯示星期幾的自定義涵數(shù)
• ·VBA在Excel 2000中的應用一例
• ·ActiveX在Excel中的運用
• ·檢查重復字段值的方法
• ·Excel中 BASIC 程序的運行
• ·Excel XP中圖片的智能刷新
• ·Excel成績分析處理程序
• ·創(chuàng)建自己的EXCEL函數(shù)
• ·用Excel制作公交向?qū)?/a>
• ·使用ADO獲取外部數(shù)據(jù)
• ·Excel中如何編程判斷字符顏色