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

Conas gach téacs a bhfuil líne faoi a fháil i raon nó i mbileog oibre iomlán in Excel?

Má cheaptar go bhfuil raon sonraí agat i mbileog oibre, agus go bhfuil cuid de na sonraí faoi líne, agus anois gur mhaith leat na sonraí seo a fháil amach faoi líne, conas is féidir leat iad a fháil amach go tapa? Seo a thugann mé roinnt cleasanna isteach chun tú a fháil amach go tapa na téacsanna a bhfuil líne fúthu i raon nó i mbileog oibre iomlán in Excel.

Faigh gach téacs a bhfuil líne faoi i mbileog oibre le VBA

Faigh na téacsanna go léir a bhfuil líne fúthu i raon nó i mbileog oibre le Kutools for Excel smaoineamh maith3


mboilgeog cheart gorm saighead Faigh gach téacs a bhfuil líne faoi i mbileog oibre le VBA

In Excel, ní féidir leat feidhm Téigh go Speisialta a úsáid chun na téacsanna a bhfuil líne fúthu a fháil amach, mar sin tugaim isteach cód VBA chun cabhrú leat gach téacs a bhfuil líne faoi a fháil i mbileog oibre.

1. Brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, agus cliceáil Ionsáigh > Modúil.

2. Sa popping Modúil fuinneog, greamaigh faoi bhun chód VBA.

VBA: Faigh gach téacs a bhfuil líne faoi i mbileog oibre.

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. cliceáil Rith cnaipe nó brúigh F5 eochair. Agus tagann dialóg amach chun raon a roghnú chun téacsanna a bhfuil líne fúthu a fháil.

faigh téacs faoi líne 1

4. cliceáil OK, ansin tiocfaidh dialóg amach chun a insint duit cé na cealla ar téacsanna aonair a bhfuil líne fúthu, agus ar téacsanna iad a bhfuil líne faoi dhó acu.

faigh téacs faoi líne 2

Mura dteastaíonn uait ach cineál amháin téacsanna a bhfuil líne fúthu i réimse ar leith a fháil amach, ní féidir leis an gcód VBA seo cabhrú leat, ach is féidir leat uirlis thíos a úsáid chun an tasc seo a réiteach sa chás seo.


mboilgeog cheart gorm saighead Faigh na téacsanna go léir a bhfuil líne fúthu i raon nó i mbileog oibre le Kutools for Excel

Má tá tú Kutools le haghaidh Excel suiteáilte, is féidir leat an Roghnaigh Cealla le Formáid áisiúlacht chun na téacsanna a bhfuil líne fúthu a fháil amach go tapa i raon bileog oibre iomlán.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. 

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

1. Roghnaigh cill bhán, agus ansin clóscríobh sonraí isteach ann, mar shampla, A1, agus cliceáil Baile > Cuir líne, agus roghnaigh cineál líne a theastaíonn uait. Féach an pictiúr:

faigh téacs faoi líne 3

2. Ansin roghnaigh an raon a theastaíonn uait na téacsanna faoi leith a bhfuil líne fúthu a fháil amach, agus cliceáil Kutools > Roghnaigh > Roghnaigh Cealla le Formáid. Féach an pictiúr:

faigh téacs faoi líne 4

3. Agus sa Roghnaigh Cealla le Formáid dialóg, cliceáil Roghnaigh Formáid Ó Cill chun an chill a fhormáidíonn tú a roghnú le líne faoi i gcéim1. Féach an pictiúr:

faigh téacs faoi líne 5
faigh téacs faoi líne 6

4. cliceáil OK, agus sa Roghnaigh Cealla le Formáid dialóg, seiceáil Cuir líne amháin. Féach an pictiúr:

faigh téacs faoi líne 7

5. cliceáil Ok, ansin tagann dialóg amach le cur i gcuimhne duit cé mhéad téacs a bhfuil líne fúthu a roghnaítear, cliceáil Is ea a dhúnadh.

faigh téacs faoi líne 8

Anois roghnaítear na téacsanna go léir a bhfuil líne fúthu.

faigh téacs faoi líne 9

Leid:

1. Más mian leat gach téacs a bhfuil líne faoi a fháil amach i mbileog oibre iomlán, cliceáil an chúinne ar chlé den bhileog oibre chun an bhileog oibre iomlán a roghnú, agus ansin an Roghnaigh Cealla le Formáid fóntais.

2. Seiceáil Déan neamhaird de na cealla bána in Roghnaigh Cealla le Formáid dialóg, tabharfaidh sé neamhaird ar na cealla bána cé go bhfuil na cealla bána formáidithe le líne.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (0)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Níl aon tráchtanna curtha suas anseo go fóill
Fág do thuairimí i mBéarla le do thoil
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL