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

Bagaimana cara mengatur warna sel sama dengan warna sel lain di Excel?

Jika Anda ingin mencocokkan warna sel dengan warna lain, metode dalam artikel ini dapat membantu Anda.

Atur warna sel sama dengan warna sel lain dengan kode VBA


Atur warna sel sama dengan warna sel lain dengan kode VBA

Metode VBA di bawah ini dapat membantu Anda mengatur warna sel sama dengan yang lain di Excel. Silakan lakukan sebagai berikut.

1. Di lembar kerja Anda harus mencocokkan warna dua sel, klik kanan tab lembar, lalu klik Lihat kode dari menu klik kanan. Lihat tangkapan layar:

2. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi jendela, Anda perlu menyalin dan menempelkan kode VBA ke jendela Kode.

Kode VBA: Atur warna sel sama dengan warna sel lain

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("C1").Interior.Color = Me.Range("A1").Interior.Color
End Sub

Note: Dalam kode, A1 adalah sel yang berisi warna isian yang akan Anda cocokkan dengan C1. Silakan ubah sesuai kebutuhan Anda.

Kemudian sel C1 diisi dengan warna yang sama dari sel A1 seperti gambar di bawah ini.

Mulai sekarang, saat warna isian di A1 diubah, C1 akan dicocokkan dengan warna yang sama secara otomatis.


Artikel terkait:


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 (19)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai, sel yang direferensikan untuk warna berubah warna berdasarkan pemformatan bersyarat. Di atas tampaknya tidak berfungsi dengan itu dan sel tujuan tetap kosong. Bagaimana ini bisa diperbaiki? terima kasih
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama. Bekerja pada sel tanpa pemformatan bersyarat tetapi tidak dengan sel yang melakukannya
Komentar ini diminimalkan oleh moderator di situs
Jika Anda memiliki Excel 2010 atau yang lebih baru, Anda bisa menggunakan fungsi DisplayFormat untuk mengembalikan warna sel yang diformat bersyarat. Lihat di bawah:

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Me.Range("C1").Interior.Color = Me.Range("A1").DisplayFormat.Interior.Color
End Sub
Komentar ini diminimalkan oleh moderator di situs
LP Anda benar-benar LUAR BIASA!!!!!! saya mencoba untuk waktu yang lama agar sel-sel cocok dengan warna latar belakang pemformatan bersyarat! kamu penyelamat!!!
Komentar ini diminimalkan oleh moderator di situs
ini bisa dilakukan pada rentang sel atau hanya untuk satu sel?
Komentar ini diminimalkan oleh moderator di situs
Hai, apakah mungkin untuk memperluas ini ke pemformatan bersyarat; tidak untuk mencocokkan warna yang dibuat oleh format bersyarat, tetapi jika kondisi format bersyarat cocok, format bersyarat yang diterapkan akan mengambil warna sel tertentu. Mencoba menggunakan ini dalam bagan gantt, mewarnai hari antara tanggal mulai dan akhir, tetapi format bersyarat yang menghasilkan bilah gantt, harus mengambil warna sel yang berisi Tugas (yang saya atur secara manual)
Komentar ini diminimalkan oleh moderator di situs
Hai,Tolong tuliskan kode untuk menerapkan pemformatan bersyarat dari kolom data ke kolom berikutnya? Di kolom A, saya memiliki serangkaian data dari A1 hingga A1000 termasuk pemformatan bersyarat yang menerapkan warna di beberapa sel. Saya perlu menerapkan warna-warna itu ke nilai di kolom berikutnya B1 hingga B1000.
sangat dihargai.
Komentar ini diminimalkan oleh moderator di situs
hai, bagaimana menerapkan VBA yang sama tetapi pada rentang sel misalnya:

saya ingin memiliki range warna yang sama (C8:X8) untuk diterapkan pada range (S16:AL16) satu per satu dalam urutan yang sama (S16 mendapatkan warna C16 , T16 mendapatkan warna D8 .... dll)
Komentar ini diminimalkan oleh moderator di situs
Hari baik,

Kode VBA di bawah ini dapat membantu Anda memecahkan masalah. Terima kasih atas komentar Anda.

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xSRg, xDRg, xISRg, xIDRg Sebagai Rentang
Redupkan xFNum Selamanya
On Error Resume Next
Tetapkan xSRg = Rentang("C8:X8")
Tetapkan xDRg = Range("S16:AL16")
Untuk xFNum = 1 Ke xSRg.count
Tetapkan xISRg = xSRg.Item(xFNum)
Tetapkan xIDRg = xDRg.Item(xFNum)
xIDRg.Interior.Color = xISRg.Interior.Color
xFNum berikutnya
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hi

Saya mencoba melakukan hal serupa, tetapi saya memiliki dua spreadsheet (file). Spreadsheet 1 adalah Master di mana data diperbarui secara manual dan file (spreadsheet 2) menyamai data dalam sel yang sama dengan spreadsheet 1. Ketika saya membuka spreadsheet 2, saya mendapatkan prompt untuk me-refresh dengan spreadsheet 1 tidak ada masalah, tetapi jika warna sel berubah di spreadsheet 1 tidak diperbarui di spreadsheet 2, juga tidak 'strike-trough' font..tolong tolong?
Komentar ini diminimalkan oleh moderator di situs
Ini adalah awal yang baik untuk apa yang ingin saya lakukan. Tapi saya mencari sesuatu yang sedikit lebih rumit

Bagaimana saya bisa mengadaptasi ini untuk diterapkan ke banyak baris dan rentang. Misalnya saya memiliki kolom header di Kolom B, saya ingin sel dari G ke CS untuk mencocokkan warna baris header tetapi hanya mereka memiliki sesuatu di dalamnya yaitu huruf x. Saya tahu saya bisa menulis pernyataan IF dan THEN tetapi bagaimana cara menerapkannya ke beberapa Baris tanpa menulis kode untuk setiap baris.
Komentar ini diminimalkan oleh moderator di situs
Hai Zack,
Maaf tidak dapat membantu Anda dengan itu. Setiap pertanyaan tentang Excel, jangan ragu untuk memposting di forum kami: https://www.extendoffice.com/forum.html.
Komentar ini diminimalkan oleh moderator di situs
Saya menemukan kode Anda untuk 'mengatur warna sel agar sama dengan warna sel lain" dan berfungsi ketika saya menggunakannya pada lembar kerja yang sama (mis. dari sel A1 ke sel A2). Saya bertanya-tanya apakah ada cara untuk memilikinya yang sama fungsionalitas dari lembar kerja lain (mis. untuk menyalin warna sel dari sheet1!A1 ke sheet2!A1? Bantuan apa pun yang dapat Anda tawarkan akan dihargai!
Komentar ini diminimalkan oleh moderator di situs
Sebagai Chris, saya tertarik untuk menyalin warna latar belakang dari lembar kerja lain?
Komentar ini diminimalkan oleh moderator di situs
Wow - ini bagus. Saya harap Anda dapat membantu saya menyesuaikan skrip Anda dengan kebutuhan saya. Saya perlu membuat sel D10:D200 cocok dengan warna sel yang diformat bersyarat A10:A200 - dapatkah Anda membantu saya agar ini berfungsi. Semua sel ada di lembar kerja yang sama.
Komentar ini diminimalkan oleh moderator di situs
Saya telah melampirkan tangkapan layar dari file yang sedang saya kerjakan - Sepertinya saya tidak dapat mengunggah file .xlsm? Dalam file ini saya telah menggunakan VBA asli dari utas ini dan sekarang dapat mencocokkan warna sel A10 yang diformat bersyarat di D10. Bagaimana saya bisa membuatnya bekerja pada berbagai sel? Saya ingin mendapatkan warna rentang sel A10:A200 untuk ditransfer ke D10:D200. Apakah ada yang bisa membantu? Ada daftar drop-down yang digunakan di kolom A tetapi setelah kami melakukan pemesanan, kami harus dapat mengetikkan nomor pesanan pembelian secara berlebihan. Item dalam daftar semuanya diatur ke format kondisional ke warna (misalnya ORDER OK mengubah sel menjadi hijau, TBC KLIEN mengubah sel menjadi kuning) tetapi warnanya menjadi kosong setelah PO dimasukkan.
Komentar ini diminimalkan oleh moderator di situs
gambar tidak diunggah - semoga dilampirkan sekarang ....
Komentar ini diminimalkan oleh moderator di situs
Hai -- Saya mengalami kesulitan menggunakan kode Anda. Saya mencoba melakukan persis apa yang Anda katakan. Buat satu sel menjadi warna yang sama dengan sel lain (tanpa nilai apa pun yang diperlukan) pada lembar yang sama. Apakah ada sesuatu dalam kode itu yang harus disesuaikan?
Komentar ini diminimalkan oleh moderator di situs
Hai, saya mencoba mengubah sel yang datang agar sesuai dengan sel lain yang telah diformat bersyarat. Kode Anda 
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Me.Range("C1").Interior.Color = Me.Range("A1").DisplayFormat.Interior.Color
End Sub
Saya beradaptasi dengan
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Me.Range("A2:C2").Interior.Color = Me.Range("D2").DisplayFormat.Interior.Color
End Sub

Ini berfungsi dengan baik hanya untuk satu baris. Bagaimana saya membuatnya berfungsi di semua baris yang saya butuhkan? Jika saya ulangi kode dengan baris berikutnya
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Me.Range("A3:C3").Interior.Color = Me.Range("D3").DisplayFormat.Interior.Color
End Sub

Kemudian saya mendapatkan kesalahan Kompilasi: Nama ambigu terdeteksi: Worksheet_SelectionChange
Saya mencoba memiliki kode asPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("A2:C10").Interior.Color = Me.Range("D2:D10").DisplayFormat.Interior.ColorEnd Sub

Tapi semua baris hanya diisi hitam daripada warna yang dibutuhkan. Pengkodean apa yang saya butuhkan?
Belum ada komentar yang diposting di sini
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