Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mencari semua teks yang digariskan dalam pelbagai atau keseluruhan lembaran kerja dalam Excel?

Supaya anda mempunyai pelbagai data dalam lembaran kerja, dan beberapa data dengan garis bawah, dan kini anda ingin mengetahui data ini dengan garis bawah, bagaimana anda dapat dengan cepat mengetahui mereka? Di sini saya memperkenalkan beberapa helah untuk anda dengan cepat mengetahui teks yang digariskan dalam pelbagai atau keseluruhan lembaran kerja dalam Excel.

Cari semua teks yang digariskan dalam lembaran kerja dengan VBA

Cari semua teks yang digariskan dalam pelbagai atau lembaran kerja dengan Kutools untuk Excel idea yang baik3


Pilih Sel Khusus (pilih sel / baris / lajur berdasarkan satu kriteria dua bijih.)

doc pilih sel tertentu

anak panah gelembung kanan biru Cari semua teks yang digariskan dalam lembaran kerja dengan VBA


Dalam Excel, anda tidak boleh menggunakan fungsi Go To Special untuk mengetahui teks yang digariskan, jadi saya memperkenalkan kod VBA untuk membantu anda mencari semua teks yang digariskan dalam lembaran kerja.

Kutools untuk Excel, dengan lebih daripada 120 fungsi Excel yang berguna, meningkatkan kecekapan kerja anda dan menjimatkan masa kerja anda.

1. Akhbar Alt + F11 kunci untuk dibuka Microsoft Visual Basic untuk Aplikasi tetingkap, dan klik Memasukkan > Modul.

2. Dalam bermunculan Modul tetingkap, tampal di bawah kod VBA.

VBA: Cari semua teks yang digariskan dalam lembaran kerja.

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. klik Main butang atau tekan F5 kunci. Dan dialog muncul untuk memilih julat untuk mencari teks yang bergaris bawah.

doc mencari teks yang digariskan 1

4. klik OK, maka dialog akan keluar untuk memberitahu anda sel yang mana teks bergaris tunggal, dan teks berganda berganda.

doc mencari teks yang digariskan 2

Jika anda hanya ingin mengetahui satu jenis teks bergaris dalam julat tertentu, kod VBA ini tidak dapat membantu anda, tetapi anda boleh menggunakan alat berguna berikut untuk menyelesaikan tugas ini dalam kes ini.


anak panah gelembung kanan biru Cari semua teks yang digariskan dalam pelbagai atau lembaran kerja dengan Kutools untuk Excel

Jika anda mempunyai Kutools untuk Excel dipasang, anda boleh memohon Pilih Sel dengan Format utiliti untuk mengetahui dengan cepat teks yang digariskan dalam pelbagai lembaran kerja keseluruhan.

Kutools untuk Excel, dengan lebih daripada 120 fungsi Excel yang berguna, meningkatkan kecekapan kerja anda dan menjimatkan masa kerja anda.

selepas memasang percuma Kutools untuk Excel, sila lakukan seperti di bawah:

1. Pilih sel kosong, kemudian taipkan data ke dalamnya, sebagai contoh, A1, dan klik Laman Utama > Garis, dan pilih jenis garis bawah yang anda perlukan. Lihat tangkapan skrin:

doc mencari teks yang digariskan 3

2. Kemudian pilih julat yang anda mahu cari teks bergaris khusus, dan klik Kutools > pilih > Pilih Sel dengan Format. Lihat tangkapan skrin:

doc mencari teks yang digariskan 4

3. Dan dalam Pilih Sel dengan Format dialog, klik Pilih Format Daripada Sel untuk memilih sel yang anda format dengan garis bawah dalam langkah1. Lihat tangkapan skrin:

doc mencari teks yang digariskan 5
doc mencari teks yang digariskan 6

4. klik OK, dan dalam Pilih Sel dengan Format dialog, periksa Garis sahaja. Lihat tangkapan skrin:

doc mencari teks yang digariskan 7

5. klik Ok, maka muncul dialog untuk mengingatkan anda berapa banyak teks bergaris dipilih, klik Ya untuk menutupnya.

doc mencari teks yang digariskan 8

Sekarang semua teks yang digariskan dipilih.

doc mencari teks yang digariskan 9

Petua:

1. Jika anda ingin mengetahui semua teks yang digarisbawahi dalam keseluruhan lembaran kerja, klik sudut kiri lembaran kerja untuk memilih keseluruhan lembaran kerja, dan kemudian memohon Pilih Sel dengan Format utiliti.

2. daftar Abaikan sel kosong in Pilih Sel dengan Format dialog, ia akan mengabaikan sel kosong walaupun sel kosong diformatkan dengan garis bawah.

perhatikan1Sekiranya anda berminat dengan addi-in ini, klik di sini muat turun percubaan percuma 60-hari.

Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.