Hvernig á að þykkni texta byggð á leturgerð úr reit í Excel?
Ef þú ert með gagnalista með rauðum texta í hvern klefi í Excel eins og sýnt er sem hér að neðan skjámynd, og veistu hvernig á að draga aðeins rauða textann? Nú mun ég kynna fljótlegan hátt til að leysa þrautina sem útdráttur texta byggist á leturlitum frá frumu í Excel.
Þykkni texta byggist á leturlitum frá hverjum klefi
Mælt framleiðni tól fyrir Excel / Office
Office flipi: Koma með flipaútgáfu í Excel og önnur Office hugbúnaður, eins og Króm, Firefox og Safari.30-dagur Ótakmörkuð ókeypis prufa
Kutools fyrir Excel: 300 öflugur lögun gera Excel mjög auðvelt og auka framleiðni strax.60-dagur Ótakmörkuð ókeypis prufa
Þykkni texta byggist á leturlitum frá hverjum klefi
Í Excel er aðeins hægt að nota skilgreind aðgerð til að draga textann út úr leturlitum.
1. Ýttu á Alt + F11 lyklar saman til að opna Microsoft Visual Basic for Applications gluggann.
2. smellur Setja > Mát og afritaðu VBA-númerið sem fylgir með því að smella á gluggann.
VBA: Útdráttur texti byggist á leturgerð
Function GetColorText(pRange As Range) As String 'Updateby20141105 Dim xOut As String Dim xValue As String Dim i As Long xValue = pRange.Text For i = 1 To VBA.Len(xValue) If pRange.Characters(i, 1).Font.Color = vbRed Then xOut = xOut & VBA.Mid(xValue, i, 1) End If Next GetColorText = xOut End Function
3. Þá er hægt að vista og loka glugganum og veldu auða reit við hliðina á gagnalistanum, sláðu inn þessa formúlu = GetColorText (A1) (A1 gefur til kynna klefann sem þú vilt draga úr texta úr), ýttu á Sláðu inn takkann til að fá nauðsynlegan texta, dragðu þá sjálfvirkt handfang til að fylla formúluna í það bil sem þú vilt.
Nú geturðu séð allt rautt texta er dregið út.
Ábending: Í ofangreindum VBA kóða, ef þú þarft að þykkni svarta texta úr frumum, getur þú breytt litamerki Litur = vbRed til Litur = vbBlack.
Hlutfallslegar greinar:
Ráðlögð framleiðni verkfæri
Office flipi
Komdu með handan flipa í Excel og önnur Office hugbúnaður, eins og Króm, Firefox og nýjan Internet Explorer.
Kutools fyrir Excel
Ótrúlegt! Auka framleiðni þína á 5 mínútum. Ekki þörf á sérstökum hæfileikum, spara tvær klukkustundir á hverjum degi!
300 Nýjar eiginleikar fyrir Excel, Gera Excel mjög auðvelt og öflugt:
- Sameina Cell / Rows / dálka án þess að tapa gögnum.
- Sameina og sameina margar töflur og vinnubækur.
- Bera saman sviðum, afritaðu margar línur, umbreyta texta í dag, einingar og gjaldmiðil viðskipta.
- Fjöldi með litum, síðuskiptafjölda, háþróaður flokkur og frábær sía,
- Meira Veldu / Setja / Eyða / Texti / Snið / Link / Athugasemd / Vinnubækur / Verkstæði Verkfæri ...