[µ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

»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«áÄò©ñ±ó... ...

»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ªº«ü¾É¡ã

»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

»a³·

¦^´_ 8# ML089


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