[µo°Ý] Office VBA¡A¦b½d³ò¤º·j´M¦³µL§R°£½u¨ÃÅܦâ

»a³·

¤p§Ì¡A³o¼Ë¼g¤§«á¡A¨Ã¨S¦³¤ÏÀ³....
¤£ª¾¹D¬O­þ­ÓÀô¸`¥X¿ù¤F¡AÁٽЦU¦ì¤j¤j¥i¥HÀ°¦£¬Ý¤@¤U¡C

·j´M¯S©w½d³ò¤º¬O§_¦³ "§R°£½u"¡A§ä¨ì¤F´N±NÀx¦s®æÅܦâ

Sub test2()
With Worksheets(1).Range("a1:w100")
Set c = .Find(.Font.Strikethrough, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Font.Color = rgbRed
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
    End With
End Sub

joblyc017

´M§ä¥\¯à¡A¥i·j´M¨ã§R°£½uªºÀx¦s®æ

»a³·

¦^´_ 2# joblyc017


¨Ï¥Î¤è­±ÁÙº¡¤£¿ù¡ã
¦]¬°·Q¹F¨ì¡A¦Û°Ê§P§O¨ÃÅܦâ¡C
©Ò¥H«áÄò§ä¨ì¤U¦C¤è¦¡¡J

1. Sub test()
   
2.     Dim c As Range, x As Long
   
3.     For Each c In Range("o4:w181")
   
4.     For x = Len(c.Value) To 1 Step -1
   
5.     If c.Characters(x, 1).Font.Strikethrough Then
   
6.                     c.Interior.Color = rgbRed
   
7.                     Else
   
8.                     c.Interior.Color = rgbWhite
   
9.                 End If
   
10.             Next
    
11.             Next
    
12.     End Sub

½Æ»s¥N½X

¤£¹L¦]¬°§P§O½d³ò¸û¤jªº¸Ü¡A·|³y¦¨lag...©Ò¥H«áÄò©ñ±ó... ...

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

»a³·

¦^´_ 4# ML089


³o­Ó®t§O¦b­þÃä©O¡H
¸Õ¥Î«á¡A§PÂ_«D±`ªº¨³³t
S%ªº³¡¥÷¡A¥H¤Î «á­±ªº S=S+1

©êºp¡A§Ú³B©óªì¾Ç³¡¥÷¡AÁٻݭn¤j®aªº«ü¾É¡ã

ML089

¦^´_ 5# »a³·

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

»a³·

¦^´_ 6# ML089

©êº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

Áٳ·ЧA«ü¾É¤F¡AÁÂÁ¡C

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

»a³·

¦^´_ 8# ML089


­ì¨Ó¬O³o¼Ë¡AÁÂÁ«ü¾É¡ã