5 Metode untuk Menerapkan Warna Isi Sel Tabel dengan Cepat ke Seluruh Baris, Kolom atau Tabel

Pada artikel ini, kami akan menawarkan lima metode untuk menerapkan warna isian sel tabel dengan cepat ke seluruh baris, kolom, atau tabel.

Anda mungkin memperhatikan bahwa saat Anda menyalin di sel tabel di Word, Anda hanya mendapatkan konten sel tetapi tidak pernah mendapatkan warna isian. Oleh karena itu, kami ingin menunjukkan kepada Anda lima solusi untuk mengatasi masalah ini.    

Metode 1: Secara Manual Dapatkan Nilai RGB Sel Tabel

1. Pertama-tama, pilih sel yang warna isiannya perlu Anda dapatkan.
2. Selanjutnya klik tab “Desain”.
3. Temukan perintah di bawah "Shading" dan klik tombol drop-down pada perintah itu.
4. Pada menu pilih "Borders and Shading" untuk membuka kotak dialog nama yang sama.
5. Selanjutnya di kotak yang terbuka, klik tab "Shading".
6. Buka bidang "Isi" dan klik tombol tarik-turun.
7. Dan pilih "More Colors" untuk membuka kotak "Colors".
8. Pilih "RGB" untuk bidang "Model warna". Dapatkan nilai RGB di bawah ini.
9. Kemudian tutup semua kotak dan letakkan kursor di dalam sel target. Atau Anda dapat memilih beberapa sel, baris, kolom, atau bahkan seluruh tabel.
10. Dan klik tombol drop-down pada perintah “Shading” untuk memilih “More Colors”.
11. Masukkan nilai RGB di bawah tab "Kustom" dan klik "OK".

Metode 2: Buka Panel "Reveal Formatting"

Ide dasarnya serupa, yaitu mendapatkan nilai RGB lalu menerapkannya ke sel, baris, kolom, atau seluruh tabel target.

1. Pertama, tempatkan pointer penyisipan di dalam sel yang terisi.
2. Selanjutnya tekan "Shift + F1" untuk membuka panel "Reveal Formatting". Dan Anda akan dapat melihat nilai RGB sel di bawah bagian "Shading".
3. Ikuti langkah 9 hingga 11 dalam metode 1.

Metode 3: Terapkan Warna Isi Satu Sel ke Seluruh Tabel melalui VBA

Seperti yang disarankan oleh subtitle, berikut adalah cara untuk menyatukan seluruh tabel dalam satu warna.

1. Untuk memulainya, posisikan penunjuk penyisipan di dalam sel berwarna.
2. Tekan "Alt + F11" untuk memicu editor VBA.
3. Selanjutnya klik proyek "Normal" dan klik tab "Sisipkan".
4. Kemudian pilih “Modul” pada menu tersebut.
5. Buka dengan klik dua kali.
6. Dan tempel kode berikut di sana:

Sub ApplyColorOfOneCellToEntireTable()
  Dim nRowIndex As Integer
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nColumnIndex = Selection.Cells(1).ColumnIndex
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1)
    nCellBackColor = .Cell(nRowIndex, nColumnIndex).Shading.BackgroundPatternColor
    nCellForeColor = .Cell(nRowIndex, nColumnIndex).Shading.ForegroundPatternColor
    .Shading.BackgroundPatternColor = nCellBackColor
    .Shading.ForegroundPatternColor = nCellForeColor
  End With
End Sub

7. Terakhir, klik "Run" atau tekan "F5".

Metode 4: Terapkan Warna Isi Satu Sel ke Seluruh Baris melalui VBA

1. Pertama, letakkan kursor di dalam sel.
2. Selanjutnya instal dan jalankan makro mengikuti langkah-langkah yang persis sama dalam metode 3.
3. Selanjutnya ganti kode di atas dengan ini:

Sub ApplyColorOfOneCellToEntireRow()
  Dim nRowIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Rows(nRowIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

Metode 5: Terapkan Warna Isi Satu Sel ke Seluruh Kolom melalui VBA

1. Kemungkinan, letakkan kursor di dalam sel terlebih dahulu.
2. Kemudian instal dan jalankan makro dengan benar.
3. Ganti makro dengan yang ini:

Sub ApplyColorOfOneCellToEntireColumn()
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nColumnIndex = Selection.Cells(1).ColumnIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Columns(nColumnIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

Menangani Masalah Kata

Ada dan akan selalu ada masalah dalam proses penggunaan Word. Jadi sangat perlu untuk mempelajari trik yang tepat untuk menangani semua masalah yang mengganggu ini. Salah satu tindakan yang harus Anda ambil adalah untuk mendapatkan Perbaikan kata alat terlebih dahulu. Maka Anda tidak akan panik setelah dokumen rusak.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan excel ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com