5 Kaedah Mengaplikasikan Warna Isi Sel Meja dengan Cepat ke Seluruh Baris, Lajur atau Jadual

Dalam artikel ini, kami akan menawarkan lima kaedah untuk menerapkan warna isian sel meja dengan cepat ke seluruh baris, lajur atau jadual.

Anda mungkin menyedari bahawa apabila anda menyalin dalam sel jadual di Word, anda hanya mendapat kandungan sel tetapi tidak pernah mengisi warna. Oleh itu, kami ingin menunjukkan kepada anda lima jalan penyelesaian untuk mengatasi masalah ini.    

Kaedah 1: Dapatkan Nilai RGB Sel Jadual secara Manual

1. Pertama sekali, pilih sel yang warna isiannya anda perlukan.
2. Klik seterusnya tab "Reka Bentuk".
3. Cari perintah di bawah "Shading" dan klik pada butang drop-down pada perintah itu.
4. Pada menu pilih "Borders and Shading" untuk membuka kotak dialog nama yang sama.
5. Selanjutnya di kotak terbuka, klik tab "Shading".
6. Pergi ke medan "Isi" dan klik pada butang drop-down.
7. Dan pilih "Lebih Banyak Warna" untuk membuka kotak "Warna".
8. Pilih "RGB" untuk bidang "Model warna". Dapatkan nilai RGB di bawah.
9. Kemudian tutup semua kotak dan letakkan kursor di dalam sel sasaran. Atau anda boleh memilih berbilang sel, baris, lajur atau keseluruhan jadual.
10. Dan klik butang drop-down pada perintah "Shading" untuk memilih "More Colors".
11. Masukkan nilai RGB di bawah tab "Custom" dan klik "OK".

Kaedah 2: Buka Panel "Reveal Formatting"

Ideanya serupa iaitu untuk mendapatkan nilai RGB dan kemudian menerapkannya pada sel sasaran, baris, lajur atau keseluruhan jadual.

1. Pertama, letakkan penunjuk sisipan di dalam sel yang diisi.
2. Seterusnya tekan "Shift + F1" untuk membuka panel "Reveal Formatting". Dan anda akan dapat melihat nilai RGB sel di bawah bahagian "Shading".
3. Ikuti langkah 9 hingga 11 dalam kaedah 1.

Kaedah 3: Terapkan Warna Isi Satu Sel ke Keseluruhan Jadual melalui VBA

Seperti yang disarankan oleh sari kata, berikut adalah cara untuk menyatukan keseluruhan jadual dalam satu warna.

1. Sebagai permulaan, letakkan penunjuk penyisipan di dalam sel berwarna.
2. Tekan "Alt + F11" untuk mencetuskan editor VBA.
3. Seterusnya klik projek "Normal" dan klik tab "Insert".
4. Kemudian pilih "Modul" pada menu itu.
5. Buka dengan klik dua kali.
6. Dan tampal kod 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".

Kaedah 4: Sapukan Isi Warna Satu Sel ke Seluruh Baris melalui VBA

1. Pada mulanya, masukkan kursor di dalam sel.
2. Selanjutnya pasang dan jalankan makro dengan langkah yang sama pada kaedah 3.
3. Seterusnya ganti kod 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

Kaedah 5: Sapukan Isi Warna Satu Sel ke Seluruh Tiang melalui VBA

1. Mungkin, masukkan kursor ke dalam sel terlebih dahulu.
2. Kemudian pasang dan jalankan makro dengan betul.
3. Gantikan makro dengan yang berikut:

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

Tangani Masalah Perkataan

Terdapat dan akan selalu ada masalah dalam proses penggunaan Word. Oleh itu, sangat mustahak untuk mempelajari helah yang betul untuk menangani semua masalah yang menjengkelkan ini. Salah satu langkah yang mesti anda ambil adalah dengan mengendalikan a Pembetulan perkataan alat di muka. Maka anda tidak akan panik setelah dokumen rosak.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulih cemerlang dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com