會員 | 請問execl 2000取代後,順道改變取代字型大小嗎 請問execl 2000取代後,可以全部改變字型呢? ex: execl 2003好像就有此功能,不知execl 2000有嗎? 謝謝您的熱心回覆 假設EXECL 2000無此功能的話,請問巨集大概要如何寫呢? EX: 想要把EXECL中大潤發(黑色字體)→家樂福(紅色+粗體字體) 謝謝還是謝謝 此篇文章於 2007-08-30 03:18 AM 被 ed001227 編輯。. |
回覆 |
平風造雨 | 回覆: 請問execl 2000取代後,順道改變取代字型大小嗎 偷空回一下,高手應該有更簡潔的寫法~~ 語法: Sub TEST() Dim myRng As Range Dim c As Range Set myRng = ActiveSheet.UsedRange myRng.Replace What:="大潤發", Replacement:="家樂福", LookAt:=xlPart 'xlPart為部分字串符合,xlWhole為完全符合 For Each c In myRng If InStr(1, c, "家樂福") Then With c.Font .Name = "標楷體" .Color = vbRed .Bold = True End With End If Next End Sub 此篇文章於 2007-09-07 05:01 PM 被 cinta3344 編輯。. |
回覆 |
|
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。