Loncat ke daftar isi utama

Sorot otomatis baris dan kolom aktif di Excel (Panduan Lengkap)

Menavigasi lembar kerja Excel yang luas dan penuh dengan data dapat menjadi tantangan, dan Anda mudah kehilangan jejak atau salah membaca nilai. Untuk menyempurnakan analisis data Anda dan mengurangi kemungkinan kesalahan, kami akan memperkenalkan 3 cara berbeda untuk menyorot baris dan kolom sel yang dipilih secara dinamis di Excel. Saat Anda berpindah dari sel ke sel, sorotan berpindah secara dinamis, memberikan isyarat visual yang jelas dan intuitif untuk membuat Anda tetap fokus pada data yang benar seperti yang ditunjukkan demo berikut:

Sorot otomatis baris dan kolom aktif di Excel

Video: Sorot otomatis baris dan kolom aktif di Excel

Sorot otomatis baris dan kolom aktif dengan kode VBA

Untuk menyorot seluruh kolom dan baris sel yang dipilih secara otomatis di lembar kerja saat ini, kode VBA berikut dapat membantu Anda mencapai tugas ini.

Langkah 1: Buka lembar kerja tempat Anda ingin menyorot baris dan kolom aktif secara otomatis

Langkah 2: Buka editor modul lembar VBA dan salin kodenya

  1. Klik kanan nama sheet, dan pilih Lihat kode dari menu konteks, lihat tangkapan layar:
  2. Di editor modul lembar VBA yang terbuka, salin dan tempel kode berikut ke modul kosong. Lihat tangkapan layar:
    Kode VBA: sorot otomatis baris dan kolom sel yang dipilih 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
     Cells.Interior.ColorIndex = xlNone
    rowRange.Interior.Color = RGB(248, 150, 171)
    colRange.Interior.Color = RGB(173, 233, 249)
End Sub
    Tips: Sesuaikan kodenya
    • Untuk mengubah warna highlight, Anda hanya perlu mengubah nilai RGB pada skrip berikut:
      rentang baris.Interior.Warna = RGB(248, 150, 171)
      colRange.Interior.Warna = RGB(173, 233, 249)
    • Untuk menyorot seluruh baris sel yang dipilih saja, hapus atau beri komentar (tambahkan tanda kutip di depan) baris ini:
      colRange.Interior.Warna = RGB(173, 233, 249)
    • Untuk menyorot seluruh kolom sel yang dipilih saja, hapus atau beri komentar (tambahkan tanda kutip di depan) baris ini:
      rentang baris.Interior.Warna = RGB(248, 150, 171)

  3. Kemudian, tutup jendela editor VBA untuk kembali ke lembar kerja.

Hasil:

Sekarang, ketika Anda memilih sel, seluruh baris dan kolom sel itu secara otomatis disorot, dan sorotan secara dinamis bergeser seiring perubahan sel yang dipilih seperti demo di bawah ini:

Catatan:
  • Kode ini akan menghapus warna latar belakang dari semua sel di lembar kerja, jadi hindari penggunaan solusi ini jika Anda memiliki sel dengan pewarnaan khusus.
  • Menjalankan kode ini akan menonaktifkan membuka fitur dalam lembar, artinya Anda tidak dapat membalikkan kesalahan apa pun dengan menekan tombol Ctrl + Z jalan pintas.
  • Kode ini tidak akan berfungsi di lembar kerja yang diproteksi.
  • Untuk berhenti menyorot baris dan kolom sel yang dipilih, Anda harus menghapus kode VBA yang ditambahkan sebelumnya. Setelah itu, untuk mengatur ulang highlight dengan mengklik Beranda > Warna isian > Tidak ada isi.

Sorot otomatis baris dan kolom aktif hanya dengan satu klik Kutools

Menghadapi keterbatasan kode VBA di Excel? Kutools untuk Excel's Fokus Kisi fitur adalah solusi ideal Anda! Dirancang untuk mengatasi kekurangan VBA, ia menawarkan beragam gaya penyorotan untuk meningkatkan pengalaman lembar Anda. Dengan kemampuannya untuk menerapkan gaya ini di semua buku kerja yang terbuka, Kutools memastikan proses pengelolaan data yang efisien dan menarik secara visual secara konsisten.

Note: Jika Anda ingin menggunakan ini Fokus Kisi fitur, silakan unduh dan instal Kutools untuk Excel pertama.

Setelah menginstal Kutools untuk Excel, Silakan klik Kutools > Fokus Kisi untuk mengaktifkan fitur ini. Sekarang, Anda dapat melihat baris dan kolom sel aktif langsung disorot. Sorotan ini secara dinamis bergeser mengikuti saat Anda mengubah pilihan sel Anda. Lihat demonya di bawah ini:

⭐ Manfaat Utama fitur Fokus Grid:
  • Mempertahankan warna latar belakang sel asli:
    Berbeda dengan kode VBA, fitur ini mengikuti format lembar kerja Anda yang sudah ada.
  • Dapat digunakan di sheet yang dilindungi:
    Fitur ini bekerja dengan lancar dalam lembar kerja yang dilindungi, menjadikannya ideal untuk mengelola dokumen sensitif atau bersama tanpa mengorbankan keamanan.
  • Tidak mempengaruhi fungsi Undo:
    Dengan fitur ini, Anda memiliki akses penuh ke fungsi pembatalan Excel. Hal ini memastikan bahwa Anda dapat dengan mudah mengembalikan perubahan, menambahkan lapisan keamanan pada manipulasi data Anda.
  • Performa stabil dengan data besar:
    Fitur ini dirancang untuk menangani kumpulan data besar secara efisien, memastikan kinerja stabil bahkan dalam spreadsheet yang kompleks dan intensif data.
  • Berbagai gaya penyorotan:
    Fitur ini menawarkan beragam opsi penyorotan, memungkinkan Anda memilih gaya dan warna berbeda untuk membuat sel aktif baris, kolom, atau baris dan kolom menonjol dengan cara yang paling sesuai dengan preferensi dan kebutuhan Anda.
Tip:

Sorot otomatis baris dan kolom aktif dengan Pemformatan Bersyarat

Di Excel, Anda juga bisa mengatur Pemformatan Bersyarat untuk menyorot baris dan kolom yang aktif secara otomatis. Untuk menyiapkan fitur ini, ikuti langkah-langkah berikut:

Langkah 1: Pilih rentang data

Pertama, pilih rentang sel yang Anda inginkan untuk menerapkan fitur ini. Ini bisa berupa keseluruhan lembar kerja atau kumpulan data tertentu. Di sini, saya akan memilih seluruh lembar kerja.

Langkah 2: Akses Pemformatan Bersyarat

Klik Beranda > Format Bersyarat > Aturan baru, lihat tangkapan layar:

Langkah 3: Atur operasi di Aturan Pemformatan Baru

  1. Dalam majalah Aturan Pemformatan Baru kotak dialog, pilih Gunakan rumus untuk menentukan sel mana yang akan diformat dari Pilih Jenis Aturan kotak daftar.
  2. Dalam majalah Memformat nilai yang rumus ini benar kotak, masukkan salah satu rumus ini, dalam contoh ini, saya akan menerapkan rumus ketiga untuk menyorot baris dan kolom yang aktif.
    Untuk menyorot baris aktif: 
    =CELL("row")=ROW()
    Untuk menyorot kolom aktif: 
    =CELL("col")=COLUMN()
    Untuk menyorot baris dan kolom aktif: 
    =OR(CELL("row")=ROW(), CELL("col")= COLUMN())
  3. Lalu klik dibentuk .
  4. Dalam berikut Format Cells kotak dialog, di bawah Mengisi tab, pilih satu warna untuk menyorot baris dan kolom aktif sesuai kebutuhan, lihat tangkapan layar:
  5. Lalu klik OK > OK untuk menutup dialog.

Hasil:

Sekarang, Anda dapat melihat seluruh kolom dan baris sel A1 telah disorot sekaligus. Untuk menerapkan penyorotan ini ke sel lain, cukup klik sel yang Anda inginkan dan tekan tombol F9 kunci untuk menyegarkan lembar, yang kemudian akan menyorot seluruh kolom dan baris sel yang baru dipilih.

Tip: 
  • Memang benar, meskipun pendekatan Pemformatan Bersyarat untuk penyorotan di Excel menawarkan solusi, pendekatan ini tidak semulus penggunaannya VBA dan Fokus Kisi fitur. Metode ini memerlukan penghitungan ulang lembar secara manual (dilakukan dengan menekan tombol F9 kunci).
    Untuk mengaktifkan penghitungan ulang otomatis lembar kerja Anda, Anda bisa memasukkan kode VBA sederhana ke dalam modul kode lembar target Anda. Ini akan mengotomatiskan proses penyegaran, memastikan pembaruan sorotan segera setelah Anda memilih sel yang berbeda tanpa menekan tombol F9 kunci. Silakan klik kanan nama sheet, lalu pilih Lihat kode dari menu konteks. Kemudian salin dan tempel kode berikut ke dalam modul sheet: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Target.Calculate
End Sub
  • Pemformatan Bersyarat mempertahankan pemformatan yang ada yang telah Anda terapkan secara manual ke lembar kerja Anda.
  • Pemformatan Bersyarat dikenal mudah berubah, terutama bila diterapkan pada kumpulan data yang sangat besar. Penggunaannya yang ekstensif berpotensi memperlambat kinerja buku kerja Anda, sehingga memengaruhi efisiensi pemrosesan data dan navigasi.
  • Fungsi CELL hanya tersedia di Excel versi 2007 dan yang lebih baru, metode ini tidak kompatibel dengan versi Excel yang lebih lama.

Perbandingan Metode di atas

Fitur Kode VBA Format Bersyarat Kutools untuk Excel
Pertahankan warna latar belakang sel Tidak Yes Yes
Mendukung Pembatalan Tidak Yes Yes
Stabil dalam kumpulan data besar Tidak Tidak Yes
Dapat digunakan di lembar yang dilindungi Tidak Yes Yes
Berlaku untuk semua buku kerja yang terbuka Hanya lembar saat ini Hanya lembar saat ini Semua buku kerja terbuka
Memerlukan penyegaran manual (F9) Tidak Yes Tidak

Itu menyimpulkan panduan kami tentang cara menyorot kolom dan baris sel yang dipilih di Excel. Jika Anda tertarik untuk menjelajahi tips dan trik Excel lainnya, situs web kami menawarkan ribuan tutorial klik di sini untuk mengaksesnya. Terima kasih telah membaca, dan kami berharap dapat memberi Anda informasi bermanfaat lainnya di masa mendatang!

Artikel Terkait:

  • Sorot otomatis baris dan kolom sel aktif
  • Saat Anda melihat lembar kerja besar dengan banyak data, Anda mungkin ingin menyorot baris dan kolom sel yang dipilih sehingga Anda dapat dengan mudah dan intuitif membaca data untuk menghindari salah baca. Di sini, saya dapat memperkenalkan Anda beberapa trik menarik untuk menyorot baris dan kolom sel saat ini, saat sel diubah, kolom dan baris sel baru disorot secara otomatis.
  • Sorot setiap baris atau kolom lainnya di Excel
  • Di lembar kerja besar, menyorot atau mengisi setiap baris atau kolom ke-n atau ke-n akan meningkatkan visibilitas dan keterbacaan data. Ini tidak hanya membuat lembar kerja terlihat lebih rapi tetapi juga membantu Anda memahami data dengan lebih cepat. Dalam artikel ini, kami akan memandu Anda melalui berbagai metode untuk membuat bayangan pada setiap baris atau kolom berikutnya atau ke-n, membantu Anda menyajikan data dengan cara yang lebih menarik dan lugas.
  • Sorot seluruh/seluruh baris sambil menggulir
  • Jika Anda memiliki lembar kerja besar dengan beberapa kolom, akan sulit bagi Anda untuk membedakan data pada baris tersebut. Dalam hal ini, Anda dapat menyorot seluruh baris sel aktif sehingga Anda dapat dengan cepat dan mudah melihat data di baris tersebut saat Anda menggulir ke bawah bilah gulir horizontal. Artikel ini, saya akan berbicara tentang beberapa trik bagi Anda untuk mengatasi masalah ini .
  • Sorot baris berdasarkan daftar drop-down
  • Artikel ini akan membahas tentang cara menyorot baris berdasarkan daftar drop-down, ambil screenshot berikut misalnya, ketika saya memilih "Dalam Proses" dari daftar drop-down di kolom E, saya perlu menyorot baris ini dengan warna merah, ketika saya pilih "Selesai" dari daftar tarik-turun, saya perlu menyorot baris ini dengan warna biru, dan ketika saya memilih "Tidak Dimulai", warna hijau akan digunakan untuk menyorot baris tersebut.
Comments (61)
Rated 5 out of 5 · 1 ratings
dreams knight
dreams knight
This comment was minimized by the moderator on the site
And please reply to an email
Reply
0
0
dreams knight
dreams knight
This comment was minimized by the moderator on the site
Great job . But in the first task at the top of the browser page, when I did it, it was working correctly, but when I made protection for the sheet, it stopped working correctly, you see, what's the solution. Thank you
Reply
0
0
skyyang
skyyang     dreams knight
This comment was minimized by the moderator on the site
Hello,
To solve your problem, please apply the followign code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    Me.Unprotect
    Cells.Interior.ColorIndex = xlNone
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
    rowRange.Interior.Color = RGB(173, 233, 249)
    colRange.Interior.Color = RGB(173, 233, 249)
    Me.Protect
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
sahudewa@gmail.com
This comment was minimized by the moderator on the site 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    
    ' Clear previous highlighting
    Me.Cells.FormatConditions.Delete
    
    ' Check if Checkbox1 is checked
    ' If CheckBox1.Value = True Then
        ' Check if a single cell or a range of cells is selected
        If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
            Dim selectedRange As Range
            Dim selectedRows As Range
            Dim selectedColumns As Range
            
            Set selectedRange = Target
            Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
            Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)
            
            ' Add conditional formatting to highlight the selected rows
            With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
            
            ' Add conditional formatting to highlight the selected columns
            With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
        End If
    ' End If
    
    On Error GoTo 0
End Sub
Reply
Report
0
0
sahudewa@gmail.com
This comment was minimized by the moderator on the site
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

' Clear previous highlighting
Me.Cells.FormatConditions.Delete

' Check if a single cell or a range of cells is selected
If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
Dim selectedRange As Range
Dim selectedRows As Range
Dim selectedColumns As Range

Set selectedRange = Target
Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)

' Add conditional formatting to highlight the selected rows
With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With

' Add conditional formatting to highlight the selected columns
With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With
End If

On Error GoTo 0
End Sub
Reply
Report
0
0
Disgruntled Researcher
Disgruntled Researcher
This comment was minimized by the moderator on the site
can you please post code in VBA format? trying to figure out what your code looks like from what you posted in a jumble is frustrating.
Reply
0
0
A. Patel
A. Patel
This comment was minimized by the moderator on the site
Hi,

The above code is brilliant. But i have two questions and if you can help then will be much appreciated. Let me know if there is cost associated with it.

1. The above code is removing my previous formatting of the cells. Eg. if i have got the cells filld with blue then above code clears that fill.
2. Is there a code that i can use when i am extracting values from another sheet and that row in the that sheet gets highlighted as well. Eg. I want to extract vale from another cell, so when i press = sign in sheet 1 and then when i move to sheet 2 to bring the value the row in the sheet doesn't get highlighted.

Regards,
Reply
0
0
skyyang
skyyang     A. Patel
This comment was minimized by the moderator on the site
Hello, Patel
For the first question:
It may be difficult to modify the VBA code, so, I recommend you to apply the Conditional Formatting feature for solving this problem, the following article may help you:
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html

Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

For the second question:
Sorry, I can't solve this problem at present,😜
Reply
Report
0
0
2Took
2Took
This comment was minimized by the moderator on the site
How do you modify the code so that:
1. It does not permanently strip existing colors of cells. Currently, after another cell is selected, it leaves colorless previous row. I'd like to keep the colors of the worksheet, as they were before row was highlighted by this code.
2. Limit the highlight width to only Columns A thru K, not the entire row.
Reply
0
0
skyyang
skyyang     2Took
This comment was minimized by the moderator on the site
Hello,
It may be difficult to modify the VBA code, so, here, I recommend you to apply the Conditional Formatting feature for solving this problem, please view the below article: (Note: if you need to highlight the column A to column K, you just need to select the range you need, and then apply the conditional formatting.)
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html


Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

Please try, hope it can help you!
Reply
Report
0
0
Jerry
Jerry
This comment was minimized by the moderator on the site
Thank you so much for this tip!!!
Reply
0
0
Rated 5 out of 5
Rodney
Rodney
This comment was minimized by the moderator on the site
Another easy way to highlight your rows: https://youtu.be/iOF06mZDGIk
Reply
0
0
Gues
Gues
This comment was minimized by the moderator on the site
FAIL. Wiped out all my other cell formatting irreversibly. And doesn't work if the sheet is protected. FAIL.
Reply
0
0
crystal
crystal     Gues
This comment was minimized by the moderator on the site
Hi Gues,The code does not work in a protected worksheet. If you want to keep the original cell formatting, please try the below code.The Reading Layout feature of Kutools is stable and handy, maybe you can download a free trial to have a try.
<div data-tag="code">Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 202001106
Static xRow
Static xColumn

Dim xWs As Worksheet
Dim xCRg, xCRg1, xRRg, xRRg1, xOHRg As Range
Dim xAHRORg, xAHRORg1 As Range
Dim xAWs As Worksheet
Dim xFNum As Integer
Dim xCll As Range

On Error Resume Next

Application.ScreenUpdating = False
pRow = Selection.Row
pColumn = Selection.Column

Set xWs = ActiveWorkbook.Worksheets.Item("AutoHighlightRAndC")
Set xAWs = Target.Worksheet
If xWs Is Nothing Then
Set xWs = ActiveWorkbook.Worksheets.Add
xWs.Name = "AutoHighlightRAndC"
xWs.Visible = xlSheetHidden
xAWs.Activate
End If

If xColumn <> "" Then
Set xCRg = Columns(xColumn)
xCRg.Interior.ColorIndex = xlNone
Set xCRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg.Count
Set xAHRORg1 = xAWs.Cells(xFNum, xColumn)
Set xAHRORg = xWs.Cells(xFNum, xColumn)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xCRg.Item(xFNum).Interior.ColorIndex = xWs.Columns(xColumn).Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(xRow)
xRRg.Interior.ColorIndex = xlNone
Set xRRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xRRg.Count
Set xAHRORg1 = xAWs.Cells(xRow, xFNum)
Set xAHRORg = xWs.Cells(xRow, xFNum)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xRRg.Item(xFNum).Interior.ColorIndex = xWs.Rows(xRow).Item(xFNum).Interior.ColorIndex
Next

End If

xRow = pRow
xColumn = pColumn

Set xCRg = Columns(pColumn)
Set xCRg1 = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg1.Count
Set xOHRg = xWs.Cells(xFNum, pColumn)
xOHRg.Interior.ColorIndex = xCRg1.Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(pRow)
Set xRRg1 = Intersect(xRRg.Worksheet.UsedRange, xRRg)

For xFNum = 1 To xRRg1.Count
Set xCll = xWs.Cells(pRow, xFNum)
xCll.Interior.ColorIndex = xRRg1.Item(xFNum).Interior.ColorIndex
Next
xCRg.Interior.ColorIndex = 34
xRRg.Interior.ColorIndex = 34
Application.ScreenUpdating = True
End Sub
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations