For eksempel å filtrere celler i henhold til de cellene som inneholder fet skriftstil:
Hvis du kan identifisere om strengene er fet eller ikke, går oppgaven lett å Filer cellene med fet formatering. Dette VBA Macro er å identifisere de BOD strenger i celler
Trinn 1: Hold nede Ctrl + F11-tastene for å åpne Microsoft Visual Basic for Application vindu
Trinn 2:.. Klikk på Insert > > Modul, og lim inn følgende VBA-kode på den nye modulen vindu:
Funksjon IsBold (Rceii As Range)
IsBold = rCell.Font.Bold
End Function
Trinn 3: I Cell D2, skriv inn formelen for = IsBold (B2)
, og trykk på Enter-tasten. Hvis strengen i celle B1 er fet, den returnerer Sann
i Cell D2, ellers False
Trinn 4:. Velg området D2: D17, og Klikk Home > > Fyll > > Ned for å kopiere formelen til andre celler i området
Trinn 5:. Klikk på Filter-knappen under kategorien Data
Trinn 6:. Klikk på pilen knappen foruten tittelen kolonne D.
Trinn 7: kryssene Velg alle element, og sjekke den sanne element. Se følgende skjermbilde: største nettstedene Nå filtrerer det cellene i kolonne B som er fet, og skjule andre, se følgende skjermbilde:
VBA Makro 2:
Dette VBA Makro kan du filtrere fet cellene i en kolonne direkte
Trinn 1:. Velg området som du vil filtrere etter dristig. I dette tilfellet velger du området B2. B17
Merk: Du kan ikke velge tittelcellen på toppen av filtrert kolonnen, sier Cell B1
Trinn 2:. Hold nede Ctrl + F11-tastene for å åpne Microsoft . Visual Basic for Application vindu
Trinn 3: Klikk på Insert > > Modul, og lim inn følgende VBA-kode på den nye modulen vindu:
Sub FilterBold ()
Dim celle Som Range
For Hver celle i utvalg
Hvis cell.Font.Bold = False Deretter
cell.EntireRow.Hidden = True
End If
Neste celle
End Sub Anmeldelser
Trinn 4: Trykk F5 for å kjøre denne makroen
Nå vil du få filteret resultat samme som figuren vi viste deg i VBA Makro 1.
VBA Makro. 3:
Dette VBA-makro kan du også filtrere kolonne med bold direkte
Trinn 1: Hold nede Ctrl + F11-tastene for å åpne Microsoft Visual Basic for Application vindu
Trinn 2:.. Klikk på Insert > > Modul, og lim inn følgende VBA-kode på den nye modulen vindu:
Sub FilterBold ()
Dim myRange Som Range
Set myRange = Application.InputBox (Tekst: = "Vennligst velg en Range", Tittel: = "InputBox Method", Type: = 8)
myRange.Select
Application.ScreenUpdating = False
For Hver myRange I Utvalg
Hvis myRange.Font.Bold = False Deretter
myRange.EntireRow.Hidden = True
End If
Neste myRange
Application.ScreenUpdating = True
End Sub
Trinn 3:. Trykk F5 for å kjøre denne makroen
Trinn 4: InputBox Method dialogboksen dukker opp, og spesifiser filteret rekkevidde, sier B1: B17 i dette tilfellet, og klikk OK
Nå skjuler det alle rader med celler i kolonne B er ikke fet, og filtrere kun de cellene er fet.. Se filtrere resultatet
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
Datamaskin læring 