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

Bagaimana cara mewarnai atau menyorot kata tertentu dalam sel di Excel?

Jika sebuah sel berisi banyak kata, bagaimana Anda bisa menyorot kata tertentu hanya di sel ini? Dan bagaimana dengan menyoroti kata tertentu ini dalam banyak sel? Artikel ini akan memberikan metode untuk mencapainya.

Warnai kata tertentu dalam satu sel / banyak sel dengan kode VBA


Warnai kata tertentu dalam satu sel / banyak sel dengan kode VBA

Kode VBA berikut dapat membantu Anda menyorot kata tertentu dalam pilihan. Silakan lakukan sebagai berikut.

1. Pilih rentang berisi sel yang ingin Anda sorot di dalam kata tertentu. Kemudian tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA ke jendela Kode.

Kode VBA: Warnai kata tertentu dalam sel di Excel

Sub HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. tekan F5 kunci untuk menjalankan kode. Dan di Kutools untuk Excel kotak dialog, masukkan kata tertentu yang akan Anda sorot dalam sel, lalu klik OK tombol. Lihat tangkapan layar:

Kemudian Anda dapat melihat semua kata yang telah Anda tentukan berwarna merah di sel yang dipilih segera seperti gambar di bawah ini.


Artikel terkait:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (16)
Rated 5 dari 5 · peringkat 1
Komentar ini diminimalkan oleh moderator di situs
Anda tidak menjelaskan cara membuka "kotak dialog Kutools for Excel" yang dirujuk pada langkah terakhir.
Komentar ini diminimalkan oleh moderator di situs
Justin yang terhormat,
Maaf tentang itu. Setelah menempelkan kode VBA ke jendela Kode, silakan tekan tombol F5 untuk menjalankan kode, dan kemudian dia kotak dialog "Kutools for Excel" akan terbuka. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk membuat kode menyorot kata-kata secara otomatis saat saya mengedit tab?
Komentar ini diminimalkan oleh moderator di situs
Hai,
Maaf tidak bisa membantu dengan ini. Terima kasih atas komentar Anda.
Komentar ini diminimalkan oleh moderator di situs
TERIMA KASIH, TERIMA KASIH, TERIMA KASIH
Komentar ini diminimalkan oleh moderator di situs
Apa yang ingin Anda hasilkan dari berbagai palabras al timempo, bagaimana Anda bisa melakukannya?
Komentar ini diminimalkan oleh moderator di situs
Eso es lo que estoy tratando de hacer tamiben (Itulah yang saya coba lakukan juga)
Komentar ini diminimalkan oleh moderator di situs
Jika Anda lebih suka pencarian/sorotan tidak peka huruf besar/kecil, ubah baris 'xArr = Split(xCell.Value, xHStr)' menjadi 'xArr = Split(LCase(xCell.Value), LCase(xHStr))'. Juga, saya perhatikan menekan F5 tidak menjalankan skrip (tetapi malah memberikan jendela modal lain). Saya mengaksesnya dengan mengaktifkan tab Pengembang menggunakan opsi Excel (Sesuaikan Pita) dan kemudian mengklik Makro.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih... ini sangat membantu! Apakah ada cara untuk menyesuaikan makro sehingga hanya menyorot seluruh kata, bukan sebagian. Misalnya, saya mencoba untuk menyoroti kata "desain" tetapi itu menyoroti "desain" dalam kata "menunjuk". Saya ingin melewatkan kata itu jika bukan keseluruhan kata. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Halo,
Est-il possible de supprimer la boite de dialog et de mettre par défaut "apple" comme mot recherché ?
merci
Komentar ini diminimalkan oleh moderator di situs
Halo PAUC,
Kode berikut dapat membantu Anda. Ayo cobalah.
Sub HighlightStrings()
'Updated by Extendoffice 20220721
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = "apple"
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Komentar ini diminimalkan oleh moderator di situs
baik

Coloreaza cuvantul doar daca e la inceput. Daca e la mijloc di aceeasi casuta de excel sau la sfarsit nu-l coloreaza.
Ce anume sebagai putea schimba di cod pentru al colora indiferent unde se afla di casuta excel?

Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai Andreea,
Jika Anda hanya ingin menyorot kata jika berada di awal sel yang dipilih. Kode VBA berikut dapat membantu Anda. Ayo cobalah.
Sub HighlightStrings()
'Updated by Extendoffice 20220805
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            If xHStrLen <= Len(xCell.Value) Then
                If xHStr = Left(xCell.Value, xHStrLen) Then
                    xCell.Characters(1, xHStrLen).Font.ColorIndex = 3
                End If
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Komentar ini diminimalkan oleh moderator di situs
halo,
a me servirebbe evidenziare tutti i numeri (comprensivi di due decimali) da -10,00 a 0 in rosso e da 0 a +10,00 in verde. datang posso tarif per non aggiungere singolarmente ogni dato senza aggiungerli tutti manualmente?

Grazie mille
Komentar ini diminimalkan oleh moderator di situs
Hai Ciao,
Apakah nomor Anda terletak di sel yang berbeda dalam suatu rentang? Jika demikian, Anda dapat membuat dua aturan pemformatan bersyarat (antara -10 dan 0, antara 0 dan 10) untuk menyorot angka-angka ini. Jika tidak, dapatkah Anda mengunggah tangkapan layar data Anda?
Komentar ini diminimalkan oleh moderator di situs
Itu sangat bagus, terima kasih! Saya ingin tahu apakah ada yang tahu cara membuatnya berfungsi di Mac? Terimakasih banyak
Rated 5 dari 5
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan