Conas gach téacs a bhfuil líne faoi a fháil i raon nó i mbileog oibre iomlán in Excel?
Ag glacadh leis go bhfuil raon sonraí agat i mbileog oibre, agus go bhfuil cuid de na sonraí le folíne, agus anois is mian leat na sonraí seo a fháil amach le líne, conas is féidir leat iad a fháil amach go tapa? Anseo tugann mé isteach roinnt cleasanna duit chun na téacsanna a bhfuil líne fúthu a fháil amach go tapa 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 gach téacs a bhfuil líne faoi i raon nó bileog oibre le Kutools le haghaidh Excel
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 cód VBA isteach chun cabhrú leat na téacsanna go léir a bhfuil líne fúthu a aimsiú 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 fuinneoige, greamaigh thíos có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 le haghaidh raon roghnaithe chun téacsanna a bhfuil líne fúthu a aimsiú.
4. cliceáil OK, ansin popfaidh dialóg chun a insint duit cé na cealla ar téacsanna singil a bhfuil líne fúthu, agus cé acu atá ina dtéacsanna a bhfuil líne fúthu faoi dhó.
Más mian leat ach cineál amháin téacsanna a bhfuil líne fúthu a fháil amach i raon sonrach, ní féidir leis an gcód VBA seo cabhrú leat, ach is féidir leat an uirlis úsáideach thíos a úsáid chun an tasc seo a réiteach sa chás seo.
Faigh gach téacs a bhfuil líne faoi i raon nó bileog oibre le Kutools le haghaidh Excel
Má tá tú Kutools le haghaidh Excel suiteáilte, is féidir leat an Roghnaigh Cealla le Formáid fóntais chun na téacsanna a bhfuil líne fúthu a fháil amach go tapa i raon de bhileog 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 ceall bá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 atá uait. Féach ar an scáileán:
2. Ansin roghnaigh an raon atá uait chun na téacsanna sonracha 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:
3. Agus sa Roghnaigh Cealla le Formáid dialóg, cliceáil Roghnaigh Formáid Ó Cill chun an chill a fhormáid tú a roghnú le líne faoi i gcéim 1. Féach ar an scáileán:
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:
5. cliceáil Ok, ansin tagann dialóg amach chun a chur i gcuimhne duit cé mhéad téacs a bhfuil líne faoi a roghnaíodh, cliceáil Is ea a dhúnadh.
Anois tá na téacsanna go léir a bhfuil líne fúthu roghnaithe.
Leid:
1. Más mian leat gach téacs a bhfuil líne faoi i mbileog oibre iomlán a fháil amach, cliceáil ar an gcúinne ar chlé den bhileog oibre chun an bhileog oibre iomlán a roghnú, agus ansin cuir 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, déanfaidh sé neamhaird ar na cealla bána cé go bhfuil na cealla bána formáidithe le líne.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
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á!