Bagaimana cara menyorot semua sel yang direferensikan oleh rumus di Excel?
Artikel ini berbicara tentang menyoroti semua sel yang direferensikan oleh rumus di Excel. Silakan ikuti dua metode di bawah ini untuk menyelesaikannya.
Sorot semua sel yang direferensikan oleh rumus dengan tombol Pintasan
Sorot semua sel yang direferensikan oleh rumus dengan kode VBA
Sorot semua sel yang direferensikan oleh rumus dengan tombol Pintasan
Bagian ini akan merekomendasikan Anda untuk menggunakan tombol Pintasan untuk memilih semua sel yang direferensikan oleh rumus, lalu secara manual mengisi warnanya.
1. Misalkan E1 adalah sel formula, dan Anda perlu menyorot semua sel yang direferensikan olehnya. Silakan pilih sel rumus E1, lalu tekan Ctrl + [ (braket persegi terbuka) secara bersamaan.
2. Sekarang sel yang direferensikan oleh rumus ini dipilih, harap tentukan warna isian untuk menyorotnya. Lihat tangkapan layar:
Sorot semua sel yang direferensikan oleh rumus dengan kode VBA
Anda juga dapat menjalankan kode VBA untuk menyorot semua sel yang direferensikan oleh rumus di Excel.
1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke jendela Modul.
Kode VBA: Sorot semua sel yang direferensikan oleh rumus di Excel
Sub HighlightCellsReferenced()
Dim rowCnt As Integer
Dim i As Integer, j As Integer, strleng As Integer
Dim strTxt As String, strFml As String
Dim columnStr, cellsAddress As String
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
Title:="Kutools For Excel", Type:=8)
strTxt = ""
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Value <> "" Then
strFml = yRg.Formula + " "
strFml = Replace(strFml, "(", " ")
strFml = Replace(strFml, ")", " ")
strFml = Replace(strFml, "-", " ")
strFml = Replace(strFml, "+", " ")
strFml = Replace(strFml, "*", " ")
strFml = Replace(strFml, "/", " ")
strFml = Replace(strFml, "=", " ")
strFml = Replace(strFml, ",", " ")
strFml = Replace(strFml, ":", " ")
For j = 1 To Len(strFml)
If Mid(strFml, j, 1) <> " " Then
cellsAddress = cellsAddress + Mid(strFml, j, 1)
Else
On Error Resume Next
Range(cellsAddress).Interior.ColorIndex = 3
cellsAddress = ""
End If
Next
End If
Next yRg
Application.ScreenUpdating = True
End Sub
3. tekan F5 kunci untuk menjalankan kode. Dalam bermunculan Kutools untuk Excel kotak dialog, pilih sel rumus atau beberapa sel rumus yang Anda perlukan untuk menyorot sel yang direferensikan berdasarkan, lalu klik OK tombol. Lihat tangkapan layar:
Sekarang semua sel yang direferensikan berdasarkan sel formula yang dipilih disorot dengan warna merah segera seperti gambar di bawah ini.
Terkait artikel:
- Bagaimana cara menjaga referensi sel formula konstan di Excel?
- Bagaimana cara mereferensikan nama tab di sel di Excel?
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!