0

ワークブック全体を調べて、大文字と小文字が一致するすべての単語を見つけて斜体に追加する方法が必要です。

次のようなデータを含むセルがあります。

Percentage of CTE concentrators who have met the proficient or advanced level on the 
statewide high school mathematics assessment administered by the state under ESEA and 
who, in the reporting year, left secondary education.

「ESEA」をすべて斜体に変更する必要があります。

Excelでこれを行う方法はありますか、それともマクロが必要ですか?

4

1 に答える 1

2

これを行うコードは次のとおりです。

Sub Macro1()
Dim sFirstAddress As String, rgFound As Range
Const sSearch As String = "ESEA"

Set rgFound = Cells(1, 1)

Do While Not rgFound Is Nothing

    Set rgFound = Cells.Find(What:=sSearch, After:=rgFound, LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, _
            SearchFormat:=False)

    If rgFound.Address = sFirstAddress Then Exit Do

    If InStr(rgFound.Value, sSearch) > 0 Then
        If Len(sFirstAddress) = 0 Then sFirstAddress = rgFound.Address
        rgFound.Characters(InStr(rgFound.Value, sSearch), Len(sSearch)).Font.FontStyle = "Italic"
    End If

Loop

End Sub
于 2012-11-12T20:22:54.213 に答える