Bagaimana cara menyorot teks tertentu dalam sel berdasarkan teks lain?
Di Excel, mungkin mudah bagi kita untuk menyorot sel berdasarkan teks tertentu, tetapi, di sini, saya ingin menyorot teks tertentu di dalam sel agar menonjol tetapi tidak seluruh sel. Ini mungkin merepotkan bagi kebanyakan dari kita. Artikel ini, saya akan membahas beberapa trik untuk menyelesaikan pekerjaan ini di Excel.
Sorot satu atau lebih teks tertentu dalam beberapa sel dengan kode VBA
Misalnya, saya memiliki serangkaian string teks, dan sekarang, saya ingin menyorot teks tertentu “Sky”Di sel ini untuk mendapatkan hasil seperti yang ditunjukkan tangkapan layar berikut:
 |
 |
 |
Untuk menyorot hanya sebagian teks di dalam sel, kode VBA berikut dapat membantu Anda.
1. Pilih sel yang ingin Anda sorot pada teks tertentu, lalu tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Sorot bagian teks di dalam sel:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
With Rng
m = UBound(Split(Rng.Value, cFnd))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, cFnd)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & cFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memasukkan teks yang ingin Anda sorot saja, lihat tangkapan layar:
4. Dan kemudian klik OK tombol, semua teks yang Anda tentukan telah disorot hanya di dalam sel, lihat tangkapan layar:
|
|
|
Kode VBA: Sorot beberapa kata kunci dari string teks:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub
Kemudian, di kotak yang muncul, masukkan kata kunci yang ingin Anda sorot, (pisahkan kata-kata dengan koma), lihat tangkapan layar:
Dan kemudian, klik OK tombol, kata-kata yang ditentukan telah disorot sekaligus, lihat tangkapan layar:
|
|
 |
Note: Kode di atas peka huruf besar / kecil.
Sorot satu atau lebih teks spesifik dalam beberapa sel dengan fitur luar biasa
Jika Anda tidak terbiasa dengan kode di Excel, di sini, saya akan memperkenalkan alat yang mudah - Kutools untuk Excel, Dengan yang Tandai Kata Kunci fitur, Anda dapat menyorot satu atau lebih kata kunci tertentu sekaligus di dalam sel.
Setelah menginstal Kutools untuk Excel, lakukan hal berikut:
1. Klik Kutools > Teks > Tandai Kata Kunci, lihat tangkapan layar:
2. di Tandai Kata Kunci kotak dialog, lakukan operasi berikut:
- Pilih rentang data yang ingin Anda gunakan dari Jarak kolom tulisan;
- Pilih sel berisi kata kunci yang ingin Anda sorot, Anda juga dapat memasukkan kata kunci secara manual (pisahkan dengan koma) ke dalam Kata kunci kotak teks
- Terakhir, Anda harus menentukan warna font untuk menyorot teks dengan centang Tandai warna kata kunci pilihan. (Untuk mewarnai seluruh sel yang berisi kata kunci, pilih Tandai warna konten sel opsional)
3. Lalu klik Ok tombol, semua teks yang ditentukan telah disorot seperti gambar di bawah ini yang ditampilkan:
Note: Fitur ini tidak peka huruf besar / kecil, jika Anda ingin menyorot teks dengan huruf besar-kecil, harap periksa pertandingan Kasus dalam Tandai Kata Kunci kotak dialog.
Sorot teks tertentu dalam sel berdasarkan teks lain dengan kode VBA
Ini adalah situasi lain, saya memiliki dua kolom di mana kolom pertama berisi string teks dan kolom kedua adalah teks spesifik, sekarang, saya perlu menyorot teks relatif di kolom pertama berdasarkan teks spesifik di kolom kedua untuk masing-masing baris.
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Sorot bagian teks dalam sel berdasarkan teks lain:
Sub highlight()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "not support multiple columns"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "the selected range can only contain two columns "
GoTo LInput
End If
For I = 0 To xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(I, 0).Value
With xRg.Range("A1").Offset(I, 0)
.Font.ColorIndex = 1
For J = 1 To Len(.Text)
If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
Next
End With
Next I
End Sub
3. Setelah menempelkan kode, lalu tekan F5 kunci untuk menjalankannya, kotak prompt akan muncul untuk mengingatkan Anda memilih rentang data yang berisi string teks dan teks tertentu yang ingin Anda sorot dan berdasarkan, lihat tangkapan layar:
4. Dan kemudian klik OK tombol, semua teks yang sesuai di kolom pertama berdasarkan teks tertentu di kolom kedua telah diwarnai merah seperti tangkapan layar berikut:
Artikel yang lebih relatif:
- Bagian Teks Tebal Saat Menggabungkan Dua Kolom Di Excel
- Di lembar kerja Excel, setelah menggabungkan dua nilai sel dengan rumus, Anda mungkin merasa tidak ada bagian teks yang dicetak tebal dalam sel rumus gabungan. Ini terkadang mengganggu, bagaimana Anda bisa membuat teks tebal saat menggabungkan dua kolom di Excel?
- Gabungkan Kolom Sel Dan Pertahankan Warna Teks Di Excel
- Seperti yang kita semua ketahui, saat menggabungkan atau menggabungkan kolom sel menjadi satu kolom, pemformatan sel (seperti warna font teks, pemformatan angka, dll) akan hilang. Artikel ini, saya akan memperkenalkan beberapa trik untuk menggabungkan kolom sel menjadi satu dan menjaga warna teks semudah mungkin di Excel.
- Menampilkan Teks Tertentu Berdasarkan Nilai Di Kolom Lain
- Misalkan, saya memiliki daftar angka, sekarang, saya ingin menampilkan beberapa teks tertentu di kolom lain berdasarkan nomor kolom ini. Misalnya, jika nomor sel antara 1-100, saya ingin teks "Penurunan" ditampilkan di sel yang berdekatan, jika nomor antara 101-200, teks "Stabil" ditampilkan, dan jika angkanya lebih besar dari 200 , teks "Tingkatkan" ditampilkan seperti gambar berikut yang ditampilkan. Untuk mengatasi tugas ini di Excel, rumus berikut dalam artikel ini dapat membantu Anda.
- Jumlahkan Sel Dengan Teks Dan Angka Di Excel
- Misalnya, saya memiliki daftar nilai yang berisi string numerik dan tekstual, sekarang, saya hanya ingin menjumlahkan angka berdasarkan teks yang sama, lihat tangkapan layar berikut. Biasanya, Anda tidak dapat menjumlahkan nilai dalam daftar dengan string teks secara langsung, di sini, saya akan memperkenalkan beberapa rumus untuk menangani tugas ini.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
