Å gjøre alle forekomster Fet

March 17  by Eliza

Tom påpeker med rette at i Word kan du bruke Finn og erstatt for å gjøre alle forekomster av et ord fet. (Søk etter ordet, erstatte den med det samme ordet med fet formatering slått på.) Han lurer på hvordan han kan gjøre det samme i Excel.

Å gjøre slike endringer i Excel er faktisk ganske lett og er gjort tilnærmet samme måte som du gjør i Word. Følg denne fremgangsmåten:

  1. Trykk Ctrl + H for å vise kategorien Erstatt i Finn og erstatt dialogboksen.
  2. Klikk Alternativer-knappen for å utvide dialogboksen. (Se figur 1)

    Å gjøre alle forekomster Fet

    Figur 1. Den utvidede Erstatt fanen Søk og erstatt dialogboksen.

  3. I boksen Finn, skriv inn ordet du ønsker å lage fet.
  4. Skriv inn det samme ordet i feltet Erstatt med.
  5. Klikk på knappen Format til høyre for Erstatt med. Excel viser Erstatt Format dialogboksen.
  6. Klikk kategorien Skrift. (Se figur 2)

    Å gjøre alle forekomster Fet

    Figur 2. Font-fanen i Erstatt Format dialogboksen.

  7. I Skriftstørrelse-listen, velger Fet.
  8. Klikk OK for å lukke Erstatt dialogboksen Skrift.
  9. Klikk Erstatt alle for å utføre erstatninger.

Mens dette synes ganske enkelt, du må huske at disse trinnene endre formateringen av hele celler, ikke bare ord i en celle. Dermed, hvis du skulle søke og erstatte ordet "brune", da en celle som inneholdt ordet "brune" ville bli gjort fet hele cellen, ikke bare ord.

Hvis du ønsker å bare påvirke ord inne i cellen, da disse trinnene vil ikke fungere. I stedet må du ty til en makro for å gjøre den fet skrift. I utgangspunktet trenger du en makro som ser ut gjennom et regneark og bestemmer hva som kan endres. (Du kan ikke gjøre individuelle ord eller tall i formler eller tallverdier fet, du kan bare gjøre endringer i ord-nivå formatering for tekst konstanter.)

Når makroen finner celler som kan behandles, må den søke gjennom cellene for ønsket ord, og deretter gjøre at teksten fet. Følgende makro implementerer dette svært strategi:

Sub FindAndBold ()
Dim sFind As String
Dim Rceii Som Range
Dim RNG Som Range
Dim lCount Som Long
Dim Ilen As Integer
Dim iFind As Integer
Dim ISTART As Integer

On Error Resume Next
Satt RNG = ActiveSheet.UsedRange. _
SpecialCells (xlCellTypeConstants, xlTextValues)
On Error GoTo ErrHandler
Hvis RNG Ingenting Deretter
MsgBox "Det er ingen celler med tekst"
GoTo ExitHandler
End If

sFind = InputBox (_
Spør: = "Hva har du lyst til BOLD?", _
Tittel: = "Tekst til Fet")
Hvis sFind = "" Then
MsgBox "Ingen tekst ble oppført"
GoTo ExitHandler
End If

Ilen = Len (sFind)
lCount = 0

For Hver Rceii I RNG
Med Rceii
iFind = InStr (.Value, sFind)
Gjør Mens iFind> 0
.Characters (IFind, Ilen) .Font.Bold = True
lCount = lCount + 1
ISTART = iFind + Ilen
iFind = InStr (ISTART, .Value, sFind)
Loop
Avslutt med
Neste

Hvis lCount = 0 Then
MsgBox "Det var ingen forekomster av" & _
vbCrLf & "'" & sFind & "'" & _
vbCrLf & "til kraftig."
AnnetHvis- lCount = 1 Deretter
MsgBox "En forekomst av" & _
vbCrLf & "'" & sFind & "'" & _
vbCrLf & "ble gjort fet."
Else
MsgBox lCount & "forekomster av" & _
vbCrLf & "'" & sFind & "'" & _
vbCrLf & "ble gjort fet."
End If

ExitHandler:
Satt Rceii = Nothing
Satt RNG = Nothing
Exit Sub

ErrHandler:
MsgBox Err.Description
Gjenoppta ExitHandler
End Sub

Makro først setter søkeområdet til de cellene som inneholder tekst konstanter. Den ber så brukeren for et ord som må endres. Når du har angitt, deretter starter makroen ser gjennom alle cellene i området. Hver celle blir kontrollert for å se om den inneholder målet ordet. Hvis ja, så den .Bold eiendom for disse tegnene er satt og makro fortsetter å søke.

Makroen holder også styr på hvor mange endringer ble gjort, viser de totale endringene på slutten av sitt arbeid.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (12105) gjelder for Microsoft Excel 2007 og 2010. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet av Excel her: Å gjøre alle forekomster Fet.