ML089

¦^´_ 3# »a³·

¶Q¦¡¥H³Ì«á¤@­Ó¦r¬O§_¦³§R°£½u¨M©w¤Ï¬õ?


­Y¬O¨ä¤¤¤@¦r¦³§R°£½u´N¤Ï¬õ¡A¥i°Ñ¦Ò¦p¤U
Sub test0()
    Dim c As Range, x As Long, S%
    For Each c In Range("a1:k30") 'Range("o4:w181")
        S = 0
        For x = Len(c.Value) To 1 Step -1
            If c.Characters(x, 1).Font.Strikethrough Then S = S + 1
        Next
        If S > 0 Then
            c.Interior.Color = rgbRed
        Else
            c.Interior.Color = rgbWhite
        End If
    Next
End Sub

ML089

¦^´_ 5# »a³·

¶Q¦¡§PÂ_¬O¥Ñ§À¦ÜÀY¨C­Ó§PÂ_¡A©Ò¥H³Ì«á²Ä¤@­Ó¦rÅܦ¨±±¨î¬O§_­n¤Ï¬õªº±±¨î¡A
§A¥i¥H´ú¸Õ§R°£½u¬O²Ä¤G­Ó¦r¥H«á

ML089

¦^´_ 7# »a³·

©êºp¡A§Ú·Q°Ýªº¬O

S%ªº³¡¥÷¬O¦b³B²z¤å¦r»Ý­n²Ä´X­Ó¡H
­Y¬O§PÂ_¤å¦r²Ä2­Ó¡A«h §ï¦¨ S=S+2¡A³o¼Ë¶Ü¡H
«h If S>0 §ï¦¨ >1¡H

S = S +1 , ²Ö¥[­pºâ¤@±ø¤å¦r¤¤¦³´X­Ó¦r¦³§R°£½u¡A
·íS=0®Éªí¥Ü¨S¦³¦r¨S¦³§R°£½u¡A­YS>0ªí¥Ü¤@±ø¤å¦r¤¤¦³´X­Ó¦r¦³§R°£½u¡C


¶Qµ{¦¡¬OÀˬd¨C­Ó¦r´N°µ¤@¦¸¤å¦r¤Ï¥Õ¤Ï¬õ³B²z¡A©Ò¥H³B²z¤ñ¸û¤[¤@ÂI¡C