½Ð±Ð¦U¦ì¤j¤j
§Ú·Qn§PÂ_³æ¤@Àx¦s®æªºÃC¦â°£¤F "¥¼¶ñº¡" ©Î¬O "¥Õ¦â" ´N°µþ¨Ç¨Æ±¡
¦pªG¦³ÓÀx¦s®æcells(1,2), §Ú¥ý¤â°Ê³]¦¨"µL¶ñº¡", ¤§«á°µ¥H¤U§PÂ_
If (cells(1,2).Interior.ColorIndex = xlNone) or (cells(1,2).Interior.ColorIndex = 2) then
Msgbox("µLÃC¦â")
Else
Msgbox("¦³ÃC¦â")
Endif
¦ý¬O µ{¦¡³£·|§P©w¦¨¦³ÃC¦â, debug «áµo²{, µ{¦¡±N¥¼¶ñº¡©w¸q¦¨ cells(1,2).Interior.ColorIndex = -4142
¬O§_§Ún±N xlNone §ï¦¨ -4142 ??? |