請問execl 2000取代後,順道改變取代字型大小嗎



贊助商連結


ed001227
2007-08-30, 02:47 AM
請問execl 2000取代後,可以全部改變字型呢?

ex: execl 2003好像就有此功能,不知execl 2000有嗎?

http://img408.imageshack.us/img408/7885/execllllmj4.jpg

謝謝您的熱心回覆




假設EXECL 2000無此功能的話,請問巨集大概要如何寫呢?

EX: 想要把EXECL中大潤發(黑色字體)→家樂福(紅色+粗體字體)

謝謝還是謝謝

贊助商連結


cinta3344
2007-09-07, 04:55 PM
偷空回一下,高手應該有更簡潔的寫法~~


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