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 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.
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.
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.
Dod o hyd i'r holl destunau 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 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:
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:
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:
4. Cliciwch OK, ac yn y Dewiswch Gelloedd gyda Fformat deialog, gwirio Tanlinellwch yn unig. Gweler y screenshot:
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 Ydy i'w gau.
Nawr mae'r holl destunau wedi'u tanlinellu yn cael eu dewis.
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.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!