| 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 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2024-4-29 13:40 , Processed in 0.086795 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.
