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

Bagaimana cara mengubah warna sel saat sel diklik atau dipilih di Excel?

Artikel ini akan menunjukkan kepada Anda beberapa metode tentang cara mengubah warna sel saat mengklik sel, dan mengubah warna yang disorot saat memilih rentang sel di Excel.

Ubah warna sel saat sel diklik dengan kode VBA
Ubah warna yang disorot saat sel dipilih dengan kode VBA
Sorot seluruh baris dan kolom sel aktif dengan Kutools for Excel


Ubah warna sel saat sel diklik dengan kode VBA

Di sini, Anda dapat mengubah warna latar belakang sel saat mengklik dua kali atau mengklik kanan sel dengan kode VBA berikut.

1. Pada lembar kerja Anda akan mengubah warna sel saat mengkliknya, klik kanan tab lembar dan klik Lihat kode dari menu klik kanan.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode VBA di bawah ini ke Kode jendela.

VBA: ubah warna sel saat mengkliknya

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbRed
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbGreen
End Sub

3. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Kemudian, saat Anda mengklik dua kali sel, itu akan diwarnai dengan warna merah. Dan saat Anda mengklik kanan pada sel, itu akan diwarnai dengan warna hijau. Lihat tangkapan layar:


Satu klik untuk menyorot baris dan kolom sel yang dipilih di Excel:

Kutools untuk Excel's Membaca Tata Letak utilitas membantu Anda dengan cepat menyorot baris dan kolom sel yang dipilih di Excel seperti yang ditunjukkan demo di bawah ini.
Unduh dan coba sekarang! (Jejak gratis 30 hari)


Ubah warna yang disorot saat sel dipilih dengan kode VBA

Secara default, saat memilih rentang sel, warna yang disorot berwarna abu-abu. Jika Anda ingin membuat rentang yang dipilih lebih menonjol, Anda dapat mengubah warna yang disorot menjadi yang Anda butuhkan. Silakan lakukan sebagai berikut.

1. Klik kanan tab lembar yang ingin Anda ubah warna yang disorot dari rentang yang dipilih, dan klik Lihat kode dari menu klik kanan.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode VBA di bawah ini ke Kode jendela.

Kode VBA: ubah warna yang disorot dari rentang yang dipilih

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , "TRUE"
        .FormatConditions(1).Interior.Color = vbYellow
    End With
End Sub

3. tekan lain + Q kunci sekaligus untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Mulai sekarang, warna yang disorot dari rentang atau sel yang dipilih diubah menjadi kuning. Saat Anda mengklik sel atau rentang sel lain, sel akan diwarnai secara otomatis.


Sorot seluruh baris dan kolom sel aktif dengan Kutools for Excel

Jika Anda berurusan dengan lembar kerja yang besar, Anda perlu menyorot seluruh baris dan kolom sel aktif agar pembacaan lebih mudah. Di sini Membaca Tata Letak kegunaan Kutools untuk Excel bisa membantumu.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

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

Kemudian tata letak membaca diaktifkan, Anda dapat melihat baris dan kolom sel aktif segera disorot.

Note: Anda dapat mengubah pengaturan tata letak bacaan berdasarkan kebutuhan Anda seperti gambar di bawah ini.

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Sorot seluruh baris dan kolom sel aktif dengan Kutools for Excel


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 (28)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
terima kasih terima kasih banyak. Saya menghargai Anda untuk ini.
Komentar ini diminimalkan oleh moderator di situs
Saya suka betapa mudahnya memformat lembar kerja saya kode untuk "mengubah warna sel saat mengkliknya" akan membuat pekerjaan saya sehari-hari! Saya memukul halangan sekalipun. Ketika saya menyalin Lembar Kosong saya dengan kode yang dimasukkan seperti yang dijelaskan, saya mendapatkan kesalahan. Ini berjalan dengan baik sampai saya membuat lembar baru. Saya seorang pemula dalam pengkodean dan saya bekerja dari buku teks dan internet. Saya menghargai bantuan apa pun yang Anda tawarkan!
Komentar ini diminimalkan oleh moderator di situs
Michelle yang terhormat,
Saya mengikuti langkah-langkah seperti yang Anda jelaskan, tetapi kodenya juga berfungsi dalam kasus saya. Bisakah Anda memberi tahu saya versi Office Anda?
Terima kasih atas komentar Anda.
Komentar ini diminimalkan oleh moderator di situs
hai. hanya sedikit kepala. saya menggunakan office 2007
saya mencoba kode Anda, dan ketika berhasil, bukan itu yang saya cari. jadi saya baru saja menghapus kode sepenuhnya. tetapi sel yang terakhir dipilih/aktif sebelum saya menghapus kodenya masih hijau (saya mengubah warna dari vbYellow menjadi vbGreen), dan warnanya tidak hilang. itu juga tidak terpengaruh oleh warna isian.
solusi paling sederhana yang saya temukan adalah hanya menghapus sel. menyalin dan menempel tidak akan berfungsi, itu juga akan menyalin warnanya.
hanya berpikir saya akan memberi tahu Anda. Anda mungkin menemukan solusi/pemecahan masalah lain untuk ini, selain menghapus dan entri manual. tetap, terima kasih! saya mengkonfirmasi bahwa kode berfungsi :)
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk menerapkan ini ke sel tertentu sambil membiarkan sel lain tersedia untuk memasukkan nomor?
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba opsi "Ubah warna yang disorot saat sel dipilih dengan kode VBA" dan simpan excel saya sebagai Lembar Kerja yang Diaktifkan Makro. Sekarang sel terakhir yang dipilih disorot dan tidak akan menyorot sel lain saat dipilih. Saya telah menghapus kode dan masuk kembali dan menyimpan, tetapi masih tidak ada perubahan. Saya juga tidak dapat menghapus sorotan sebelumnya. Aku bingung harus berbuat apa.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode berfungsi dengan baik dalam kasus saya setelah menyimpan buku kerja sebagai Buku Kerja Excel Macro-Enabled.
Bisakah Anda memberi tahu saya versi Excel Anda?
Komentar ini diminimalkan oleh moderator di situs
Saya punya masalah.
Saya ingin mengubah warna satu hyperlink jika telah ditautkan dengan satu PDF menjadi MERAH dan jika tidak memiliki tautan dengan satu PDF akan menunjukkan warna BIRU.
Bagaimana saya bisa melakukannya sekarang?
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Maaf tidak dapat membantu Anda dengan itu. Terima kasih telah berkomentar.
Komentar ini diminimalkan oleh moderator di situs
salam...
sy sudah install kutools, tp kok td muncul tab kutools di layar excel ya? gmn cara mmunculkannya?trimakasih
Komentar ini diminimalkan oleh moderator di situs
td muncul=tidak muncul
Komentar ini diminimalkan oleh moderator di situs
trimakasih
Komentar ini diminimalkan oleh moderator di situs
Halo teman-teman, jadi saya menggunakan kode pertama untuk mengubah warna sel menjadi hijau/merah pada klik ganda/klik kanan. Namun, saya ingin kode ini berfungsi hanya pada rentang sel tertentu, dalam kasus saya D9:P9. dapatkah seseorang membantu saya tentang cara melakukannya? Saya baru di VBA
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode VBA di bawah ini dapat membantu Anda, silakan coba. Terima kasih atas komentarmu.

Sub Worksheet_BeforeDoubleClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
Jika (Bukan Application.Intersect(Target, Me.Range("D9:P9")) Tidak Ada) Lalu
Batal = Benar
Target.Interior.Warna = vbRed
End If
End Sub
Sub Worksheet_BeforeRightClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
Jika (Bukan Application.Intersect(Target, Me.Range("D9:P9")) Tidak Ada) Lalu
Batal = Benar
Target.Interior.Warna = vbHijau
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai, Saya mencoba mencari cara untuk mengubah warna sel, berdasarkan pilihan dari daftar dropdown. Misalnya, TINGGI=merah, SEDANG=kuning, RENDAH=hijau.

Setiap tips yang dapat Anda berikan sangat dihargai. Terima kasih
Komentar ini diminimalkan oleh moderator di situs
hi
kisi berfungsi tetapi saya ingin warnanya hanya ketika sel dipilih dan ketika saya memilih sesuatu yang lain, sel pertama yang saya pilih tidak boleh diwarnai
dapatkah Anda membantu saya dengan ini terima kasih
Komentar ini diminimalkan oleh moderator di situs
Saya punya pertanyaan yang sama persis! Saya berharap seseorang akan menjawab Anda! Alasan saya mencari ini adalah karena saya memiliki spreadsheet yang saya gunakan setiap hari dan memasukkan banyak informasi ke dalam satu sel. Sulit untuk melihat nilainya (secara visual, ini menghasilkan info di sel lain), dan akan menjadi fitur hebat jika saya dapat mengubah warna sel yang sedang diedit - hanya saat sedang diedit. Solusi paling sederhana yang dapat saya pikirkan adalah bahwa nilai sel akan diatur kembali seperti sebelum diklik - tetapi saya tidak tahu bagaimana melakukannya.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih. Kerja bagus
Komentar ini diminimalkan oleh moderator di situs
Hai,
apakah mungkin untuk memiliki kode untuk "mengubah warna sel saat mengkliknya" dengan cara itu tidak akan mengubah sel yang sudah diformat dengan warna lain, tolong?
Setelah menerapkan kode Anda, semua pemformatan (warna) saya hilang. Terima kasih. Veronika
Komentar ini diminimalkan oleh moderator di situs
Kode berfungsi selama saya tidak melindungi lembar kerja. Setelah saya melindungi lembar kerja, karena saya memiliki pemformatan bersyarat pada sel yang terkunci, kode tidak akan berfungsi. Bagaimana saya bisa mengubah ini sehingga berfungsi pada lembar kerja yang terkunci di mana pengguna dapat memilih sel yang tidak terkunci?
Komentar ini diminimalkan oleh moderator di situs
Cara menyorot sel (dengan data) untuk secara otomatis menyorot sel lain (data yang terkait dengan data lain di sel sebelumnya) dengan mengklik sel. Dapatkah saya melakukannya. Apakah ada cara untuk melakukannya.
Komentar ini diminimalkan oleh moderator di situs
alguien que me ayude solo quiero que al hacerle click a una celda se ponga de un color y que se mantenga ese color y si le vuelvo hacer klik regrese el color original que tenia
Komentar ini diminimalkan oleh moderator di situs
Hai, Saya mencoba menggunakan opsi klik dua kali untuk mengubah sel menjadi hijau tetapi saya juga ingin sel itu kembali tanpa isi atau putih jika saya mengklik dua kali saat itu hijau. Apakah ini mungkin? 
Komentar ini diminimalkan oleh moderator di situs
Halo, kode yang dulu berfungsi untuk sementara waktu, tetapi sekarang tidak lagi. Apa yang bisa salah?
Komentar ini diminimalkan oleh moderator di situs
Hai Rens Borburgh, Ada dua kode yang disediakan di pos, yang mana yang Anda gunakan? Apakah Anda mendapatkan prompt kesalahan?
Komentar ini diminimalkan oleh moderator di situs
Saya telah mencoba keduanya secara bersamaan. Setelah menyalinnya ke stik usb, itu tidak berfungsi lagi.
Komentar ini diminimalkan oleh moderator di situs
Hai Rens Borburgh, saya tidak begitu mengerti maksud Anda. Kode harus digunakan di jendela kode lembar dan bukan di jendela Modul. Atau bisakah Anda memberikan tangkapan layar dari jendela kode Anda?
Komentar ini diminimalkan oleh moderator di situs
Halo, saya membuat dasbor dengan 37 lembar kerja, semua orang dengan meja. Semuanya adalah panel kunci karena terlalu besar dan saya perlu mengetahui nomor dan nama siswa yang saya masukkan datanya. Meskipun demikian, saya harus meletakkan jari saya di sisi kiri layar untuk mengidentifikasi nama dan nomor yang merujuk pada data yang dimasukkan. Jadi, saya perlu mengidentifikasi dua sel pertama dari baris, di kolom "I" dan "J".
Kode yang saya ambil dari internet dan tidak dapat diubah untuk dua sel kolom "I" dan "J" adalah:

Redup lTarget Sebagai Rentang

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)

Jika Target.Row >= 16 Maka

Jika Tidak lTarget Bukan Apa-apa Maka

lTarget.EntireRow.Interior.ColorIndex = 0
End If

Target.EntireRow.Interior.Color = 9359529

Tetapkan lTarget = Target
End If
End Sub

Semua tabel dimulai dalam baris yang berbeda. Contoh ini dimulai dari 16 baris tetapi saya meletakkan kode di semua halaman dan menyesuaikan dengan kebutuhan nomor baris tertentu. 
Saya sudah mencoba mengubah kode dari EntireRow ke Range ("I16: J43") tetapi sel-sel yang berada dalam kisaran menjadi semua dicat dengan warna kode.
Sudah mencoba cara berbeda melalui "pemformatan bersyarat" dengan rumus =E($I16<>"";LIN()=CÉL("lin")) di kisaran $I16:$J43, dan di "lembar kerja" pengembang ", dengan "Application.Calculate" dan berhasil. Saya mengubah 37 lembar kerja tetapi saya menyalin dan data dari file sebelumnya ke yang baru ini dan saya perhatikan bahwa opsi untuk menempelkan "nilai", dll, menghilang dari dasbor saya. Kode harus mengeksekusi sesuatu yang, seperti mengklik sel, tidak lagi membiarkannya menempel. Satu opsi adalah menempel dengan CTRL+V.
Jika seseorang dapat membantu saya dengan kodenya, saya akan menghapus "Application.Calculate" VBA untuk kembali ke opsi kolase yang tersedia.
Terima kasih atas bantuan Anda.

Luis Lopes
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan