Note: The other languages of the website are Google-translated. Back to English

Sut i ddod o hyd i'r holl destunau sydd wedi'u tanlinellu mewn ystod neu daflen waith gyfan yn Excel?

Gan dybio bod gennych chi ystod o ddata mewn taflen waith, a bod rhywfaint o'r data gyda thanlinellu, a nawr eich bod chi eisiau darganfod y data hyn gyda thanlinellu, sut allwch chi eu darganfod yn gyflym? Yma, rwy'n cyflwyno rhai triciau i chi ddarganfod yn gyflym y testunau sydd wedi'u tanlinellu mewn ystod neu daflen waith gyfan yn Excel.

Dewch o hyd i'r holl destunau sydd wedi'u tanlinellu mewn taflen waith gyda VBA

Dewch o hyd i'r holl destunau sydd wedi'u tanlinellu mewn ystod neu daflen waith gyda Kutools ar gyfer Excel syniad da3


swigen dde glas saeth Dewch o hyd i'r holl destunau sydd wedi'u tanlinellu mewn taflen waith gyda VBA

Yn Excel, ni allwch ddefnyddio swyddogaeth Go To Special i ddarganfod y testunau sydd wedi'u tanlinellu, felly rwy'n cyflwyno cod VBA i'ch helpu chi i ddod o hyd i'r holl destunau sydd wedi'u tanlinellu mewn taflen waith.

1. Gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, a chlicio Mewnosod > Modiwlau.

2. Yn y popping Modiwlau ffenestr, pastiwch o dan god VBA.

VBA: Dewch o hyd i'r holl destun wedi'i danlinellu mewn taflen waith.

Sub SearchForUnderline()
'Updateby20150910
    Dim Rg As Range, Rg1 As Range
    Dim I As Long
    Dim xAddress As String, xAddress1 As String, xAddress2 As String
    Dim Result As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Rg.SpecialCells(xlCellTypeConstants)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
                If xAddress1 = "" Then
                    xAddress1 = Rg1.Address
                Else
                    xAddress1 = xAddress1 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
                If xAddress2 = "" Then
                    xAddress2 = Rg1.Address
                Else
                    xAddress2 = xAddress2 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
    Next
    If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
    If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
    If Result <> "" Then MsgBox Result
End Sub

3. Cliciwch Run botwm neu wasg F5 allwedd. Ac mae deialog yn dewis dewis ystod i ddod o hyd i destunau wedi'u tanlinellu.

doc dod o hyd i destun wedi'i danlinellu 1

4. Cliciwch OK, yna bydd deialog yn galw allan i ddweud wrthych pa gelloedd sy'n destunau sengl wedi'u tanlinellu, a pha rai sy'n destunau â thanlinelliad dwbl.

doc dod o hyd i destun wedi'i danlinellu 2

Os ydych chi eisiau darganfod un math o destunau wedi'u tanlinellu mewn ystod benodol yn unig, ni all y cod VBA hwn eich helpu chi, ond gallwch chi ddefnyddio isod offeryn defnyddiol i ddatrys y dasg hon yn yr achos hwn.


swigen dde glas saeth Dewch o hyd i'r holl destunau sydd wedi'u tanlinellu mewn ystod neu daflen waith gyda Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel wedi'i osod, gallwch gymhwyso'r Dewiswch Gelloedd gyda Fformat cyfleustodau i ddarganfod y testunau sydd wedi'u tanlinellu yn gyflym mewn ystod o daflen waith gyfan.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Dewiswch gell wag, ac yna teipiwch ddata i mewn iddi, er enghraifft, A1, a chlicio Hafan > Tanlinellwch, a dewis math o danlinell sydd ei angen arnoch chi. Gweler y screenshot:

doc dod o hyd i destun wedi'i danlinellu 3

2. Yna dewiswch yr ystod rydych chi am ddarganfod y testunau penodol sydd wedi'u tanlinellu, a chlicio Kutools > dewiswch > Dewiswch Gelloedd gyda Fformat. Gweler y screenshot:

doc dod o hyd i destun wedi'i danlinellu 4

3. Ac yn y Dewiswch Gelloedd gyda Fformat deialog, cliciwch Dewiswch Fformat O Gell i ddewis y gell rydych chi'n ei fformatio gyda thanlinellu yng ngham 1. Gweler y screenshot:

doc dod o hyd i destun wedi'i danlinellu 5
doc dod o hyd i destun wedi'i danlinellu 6

4. Cliciwch OK, ac yn y Dewiswch Gelloedd gyda Fformat deialog, gwirio Tanlinellwch yn unig. Gweler y screenshot:

doc dod o hyd i destun wedi'i danlinellu 7

5. Cliciwch Ok, yna mae deialog yn galw allan i'ch atgoffa faint o destunau sydd wedi'u tanlinellu sy'n cael eu dewis, cliciwch Oes i'w gau.

doc dod o hyd i destun wedi'i danlinellu 8

Nawr mae'r holl destunau wedi'u tanlinellu yn cael eu dewis.

doc dod o hyd i destun wedi'i danlinellu 9

Awgrym:

1. Os ydych chi am ddarganfod yr holl destunau sydd wedi'u tanlinellu mewn taflen waith gyfan, cliciwch cornel chwith y daflen waith i ddewis taflen waith gyfan, ac yna cymhwyswch y Dewiswch Gelloedd gyda Fformat cyfleustodau.

2. Gwiriwch Anwybyddwch y celloedd gwag in Dewiswch Gelloedd gyda Fformat deialog, bydd yn anwybyddu'r celloedd gwag er bod y celloedd gwag wedi'u fformatio â thanlinellu.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL