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 |
|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó)
( 粵ICP備10043721號(hào)-1 )
GMT+8, 2025-7-13 07:55 , Processed in 0.055119 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.