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

Bagaimana cara menyorot otomatis baris dan kolom sel aktif di Excel?

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, ketika sel diubah, kolom dan baris sel baru disorot secara otomatis seperti tangkapan layar berikut:

Sorot otomatis baris dan kolom sel yang dipilih dengan kode VBA
Satu klik untuk menyorot baris dan kolom sel yang dipilih


Sorot otomatis baris dan kolom sel yang dipilih dengan kode VBA

Kode VBA berikut dapat membantu Anda secara otomatis menyorot seluruh kolom dan baris sel saat ini di lembar kerja, lakukan dengan langkah-langkah berikut:

1. Buka lembar kerja Anda akan secara otomatis menyorot baris dan kolom sel aktif, klik kanan tab lembar dan pilih Lihat kode dari menu konteks

2. Kemudian salin dan tempel kode VBA berikut ke jendela kode kosong:

Kode VBA: sorot otomatis baris dan kolom sel yang dipilih

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20200430
Static xRow
Static xColumn
If xColumn <> "" Then
    With Columns(xColumn).Interior
        .ColorIndex = xlNone
    End With
    With Rows(xRow).Interior
        .ColorIndex = xlNone
    End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
With Rows(pRow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
End Sub

3. Lalu tekan lain + Q bersama untuk kembali ke lembar kerja, sekarang saat Anda memilih sel, seluruh baris dan kolom sel ini telah disorot. Dan itu akan dipindahkan secara dinamis saat sel yang dipilih berubah.

doc-reading-layout4

Catatan:

  • 1. Pada kode di atas, Anda dapat mengubahnya .Indeks Warna = 6 warna ke warna lain yang Anda suka.
  • 2. Kode VBA ini hanya berlaku untuk lembar kerja yang Anda pilih pada langkah 2 di atas.
  • 3. Jika Anda tidak ingin menyorot lagi kolom dan baris dari sel yang dipilih, Anda perlu menghapus VBA di atas dan mengatur tidak ada isian ke baris dan kolom yang dipilih dengan mengklik Beranda > Warna isian > Tidak ada isi.
  • 4. Jika ada beberapa sel berwarna di lembar kerja Anda, warna tersebut akan hilang saat Anda mengklik sel dan kemudian pindah ke sel lain.

Sorot otomatis baris dan kolom sel yang dipilih dengan Kutools for Excel

Jika Anda seorang pemula VBA, berikut rekomendasikan Kutools untuk Excel's Membaca Tata Letak utilitas. Utilitas ini membantu dengan mudah menyorot baris dan kolom sel yang dipilih di Excel seperti yang ditunjukkan pada demo di bawah ini. Unduh dan coba sekarang! (Jejak gratis 30 hari)

Mari kita lihat bagaimana menerapkan Kutools untuk Excel'S Membaca Tata Letak fitur untuk menyorot seluruh baris dan kolom dari berbagai sel.

1. klik Kutools > Membaca Tata Letak. Lihat tangkapan layar:

Kemudian tata letak membaca diaktifkan, Anda dapat melihat baris dan kolom sel aktif segera disorot. Dan itu akan dipindahkan secara dinamis saat sel yang dipilih berubah.

Catatan:

  • 1. Anda dapat mengubah pengaturan tata letak bacaan berdasarkan kebutuhan Anda seperti gambar di bawah ini.
  • 2. Anda dapat membatalkan utilitas ini dengan menghapus centang pada Membaca Tata Letak bawah Bacaan daftar drop-down.
  • 3. Ini Membaca Tampilan Tata Letak fitur diterapkan ke semua lembar kerja dalam buku kerja Anda.
  • 4. Ini Membaca Tampilan Tata Letak Fitur akan dinonaktifkan saat Anda meluncurkan buku kerja di lain waktu.

Satu klik untuk menyorot baris dan kolom sel yang dipilih


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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (56)
Rated 5 dari 5 · peringkat 1
Komentar ini diminimalkan oleh moderator di situs
Hai, kode yang diberikan berfungsi dengan baik untuk menyorot baris dan kolom sel aktif. tetapi warna sel asli bersama dengan pengaturan warna kolom dan baris hilang. Bagaimana cara mengatasi hal ini?
Komentar ini diminimalkan oleh moderator di situs
Inilah versi saya untuk menyorot baris saat ini (dari A ke AK). Untuk menghindari menghapus pewarnaan sel, saya menggunakan batas merah sebagai gantinya ... plus itu mengembalikan batas pilihan saya ke baris yang baru saja ditinggalkan. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lRow Selama, lCol Selama Static lPrevRow Selama 'Kembalikan baris aktif sebelumnya ke...garis putus-putus biru muda If lPrevRow > 0 Kemudian Range("A" & lPrevRow, "AK" & lPrevRow).BorderAround Weight:=xlHairline, Color:=RGB(162, 200, 255) End If 'Sorot baris saat ini dengan batas merah lRow = Target.Row Range("A" & lRow, "AK" & lRow) .BorderAround Weight:=xlThin, Color:=RGB(255, 0, 0) lPrevRow = lRow End Sub
Komentar ini diminimalkan oleh moderator di situs
Oh! man, bekerja seperti pesona!!! Bagus
Komentar ini diminimalkan oleh moderator di situs
Anda seorang jenius sekarang, bagaimana dengan baris dan kolom?
Komentar ini diminimalkan oleh moderator di situs
HI SAYA MEMILIKI MASALAH YANG SAMA DENGAN SURESH, BISAKAH ANDA MEMBERIKAN SAYA DENGAN SELURUH KODE YANG DIUBAH UNTUK TIDAK MENGHAPUS WARNA SEL ASLI SAYA MENGGUNAKAN INI: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow Static xColumn If xColumn "" Kemudian Dengan Columns(xColumn).Interior .ColorIndex = xlNone End With With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns( pColumn).Interior .ColorIndex = 6 .Pattern = xlSolid End With With Rows(pRow).Interior .ColorIndex = 6 .Pattern = xlSolid End With End Sub
Komentar ini diminimalkan oleh moderator di situs
Tidak dapat menjalankan ini - tolong bantu, terima kasih :-)
Komentar ini diminimalkan oleh moderator di situs
"Tolong bantu" - apakah Anda mengharapkan jawaban dengan permintaan yang tidak jelas, dan tidak ada upaya untuk menjelaskan masalahnya?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Ini adalah kode yang sempurna terima kasih!!!!! tidak ada masalah dengan berpindah dari sel ke sel dan meninggalkan jejak sorotan dan garis besar di belakang.
Komentar ini diminimalkan oleh moderator di situs
saya menggunakan tabel sisipkan ke data saya dan itu tidak mengubah pewarnaan asli
Komentar ini diminimalkan oleh moderator di situs
Opsi ini sekarang tersedia untuk non-coders pada tahun 2010 selama Anda memiliki tab Developer. Di bawah Pengembang, klik Properti. Setel EnableOutlining ke True. Batasan: Ini tampaknya hanya berlaku untuk satu lembar kerja pada satu waktu, meskipun mudah diatur untuk lembar kerja lain dengan mengklik tab di bagian bawah (sambil membiarkan kotak dialog Properti terbuka). Mengapa Excel tidak membuat ini tersedia di bawah Opsi, yah, ini adalah Microsoft.
Komentar ini diminimalkan oleh moderator di situs
Hai, setelah memasukkan kode, fungsi "undo" tidak lagi berfungsi. Dapatkah seseorang membantu?
Komentar ini diminimalkan oleh moderator di situs
Hai! Saya sangat menyukai kode ini tetapi seperti yang dikatakan Suresh, kode ini menghilangkan warna sel asli! Bagaimana saya bisa menjaga warna sel asli saya?? Mohon tanggapannya, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja dengan cemerlang. Apakah ada cara untuk membuatnya tidak muncul saat dicetak?
Komentar ini diminimalkan oleh moderator di situs
Hanya apa yang saya cari. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Untuk menjaga warna sel Anda, Anda harus membuat Pemformatan Bersyarat untuk sel.
Komentar ini diminimalkan oleh moderator di situs
Adakah rencana untuk menambahkan fungsionalitas Mac untuk Kutools?
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa mengubah warna bilah? Terima kasih atas solusi hebat ini. Salam, Ton
Komentar ini diminimalkan oleh moderator di situs
bagaimana saya bisa menghentikannya jika saya ingin berhenti??
Komentar ini diminimalkan oleh moderator di situs
Ini adalah kode yang saya gunakan hanya untuk baris (sorotan abu-abu): Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow If xRow "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With End Sub
Komentar ini diminimalkan oleh moderator di situs
Menyalin dan menempelkan kode Anda tidak berfungsi dengan baik, tetapi setelah memperbaiki kesalahan sintaks, itu bekerja dengan luar biasa! Terima kasih. Berikut adalah kode kerja untuk menyorot (kuning) baris saja: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow If xRow "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow).Interior .ColorIndex = 6 .Pattern = xlSolid End With End Sub
Komentar ini diminimalkan oleh moderator di situs
Bravo..persis apa yang saya cari.....terima kasih banyak!!
Komentar ini diminimalkan oleh moderator di situs
Ketika saya membuka kembali kolom yang disorot buku kerja saya dari sesi sebelumnya tetap - dan berubah saat saya bergerak di sekitar lembar kerja di sesi baru. Apakah ada cara untuk "menghapus" sesi sebelumnya setiap kali buku kerja dibuka?
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi jika Anda tidak memiliki warna yang tidak dalam pemformatan bersyarat. Cukup tambahkan dua lagi dengan loop. Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow Static xColumn If xColumn "" Kemudian Dengan Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow) .Interior .ColorIndex = 6 .Pattern = xlSolid End With With Rows(pRow - 1).Interior .ColorIndex = 0 .Pattern = x1Solid End With With Rows(pRow + 1).Interior .ColorIndex = 0 .Pattern = x1Solid End With Akhir Sub
Komentar ini diminimalkan oleh moderator di situs
BAGAIMANA SAYA DAPAT MEMBUATNYA JIKA MEMILIKI LEMBAR YANG SUDAH BERWARNA.
Komentar ini diminimalkan oleh moderator di situs
Artikel yang bagus!. Penyelamat hidup bagi saya. Dan jika Anda ingin sel yang sebenarnya disorot dengan warna kuning dan baris/sel berwarna abu-abu, ini kodenya: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Kemudian Dengan Columns(xColumn ).Interior .ColorIndex = xlNone End With With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End Sub
Komentar ini diminimalkan oleh moderator di situs
Kode yang benar sebagai berikut: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Kemudian Dengan Columns(xColumn).Interior .ColorIndex = xlNone End With With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With With Rows(pRow).Interior .ColorIndex = 15 . Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End Sub [quote]Artikel yang bagus!. Penyelamat hidup bagi saya. Dan jika Anda ingin sel yang sebenarnya disorot dengan warna kuning dan baris/sel berwarna abu-abu, ini kodenya: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Kemudian Dengan Columns(xColumn ).Interior .ColorIndex = xlNone End With With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End SubOleh Vicente[/ Quote]
Komentar ini diminimalkan oleh moderator di situs
Hai. Bagaimana saya bisa menerangi seluruh baris jika salah satu sel digabungkan. Saya melihat kutool dapat membuat garis melintasi sel gabungan. Tolong bantu saya solusi ini
Komentar ini diminimalkan oleh moderator di situs
Saya mengubah kode Anda dari menyorot interior menjadi membuat batas merah.
.BorderSekitar Berat:=xlTebal, Warna:=vbRed
Saya memilih sel, batasnya berubah menjadi merah. Besar. Saya menyalin, memilih sel lain, batas itu berubah menjadi merah, tetapi papan klip hilang. Saya tidak tahu cara menggunakan batas, dan menjaga fungsi salin/tempel.
Ada saran?
Komentar ini diminimalkan oleh moderator di situs
dapatkah Anda membagikan seluruh kode?
Komentar ini diminimalkan oleh moderator di situs
Sub Worksheet_SelectionChange(Target ByVal Sebagai Excel.Range)

'Perbarui 20192021
xRow statis
Jika xRow <> "" Maka
Baris(xRow).BorderSekitar Berat:=xlTipis, Warna:=vbHitam
End If
pRow = Seleksi.Baris
xRow = pRow
Baris(pRow).BorderSekitar Berat:=xlTebal, Warna:=vbMerah
End Sub
Komentar ini diminimalkan oleh moderator di situs
bagaimana Anda mencegah tombol undo & redo dihapus dengan makro ini tidak menggunakan Kutools
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Maaf tentang itu. Masalah undo & redo di makro tidak dapat diselesaikan.
Komentar ini diminimalkan oleh moderator di situs
VBA untuk menyorot satu sel berfungsi tetapi yang ini tidak.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih telah memposting ini! Ini sangat berguna dalam rekonsiliasi cek melalui spreadsheet.
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL