Bir Tablo Hücresinin Dolgu Rengini Tüm Satıra, Sütuna veya Tabloya Hızlıca Uygulamak için 5 Yöntem

Bu yazıda, bir tablo hücresinin dolgu rengini tüm satıra, sütuna veya tabloya hızlı bir şekilde uygulamak için size beş yöntem sunacağız.

Word'de bir tablo hücresini kopyaladığınızda, yalnızca hücre içeriğini aldığınızı, ancak dolgu rengini asla almadığınızı fark edebilirsiniz. Bu nedenle, size bu sorunu çözmek için beş geçici çözüm göstermek istiyoruz.    

Yöntem 1: Tablo Hücresinin RGB Değerini El İle Alın

1. Her şeyden önce, dolgu rengini almanız gereken hücreyi seçin.
2. Ardından “Tasarım” sekmesine tıklayın.
3. “Gölgeleme” altındaki komutu bulun ve bu komuttaki açılır düğmeyi tıklayın.
4. Aynı ad iletişim kutusunu açmak için menüde "Kenarlıklar ve Gölgelendirme"yi seçin.
5. Açılan kutunun yanında, “Gölgelendirme” sekmesine tıklayın.
6. "Doldur" alanına gidin ve açılır düğmeyi tıklayın.
7. Ve “Renkler” kutusunu açmak için “Daha Fazla Renk”i seçin.
8. “Renk modeli” alanı için “RGB”yi seçin. Aşağıdaki RGB değerini alın.
9. Ardından tüm kutuları kapatın ve imleci hedef hücrenin içine yerleştirin. Veya birden fazla hücreyi, satırı, sütunu hatta tüm tabloyu seçebilirsiniz.
10. Ve “Daha Fazla Renk” seçmek için “Gölgelendirme” komutundaki açılır düğmeyi tıklayın.
11. "Custom" sekmesi altında RGB değerini girin ve "OK" düğmesini tıklayın.

Yöntem 2: "Biçimlendirmeyi Göster" Bölmesini Açın

Temel fikir benzer; RGB değerini alıp daha sonra hedef hücrelere, satırlara, sütunlara veya tüm tabloya uygulamak.

1. İlk olarak, ekleme işaretçisini dolu hücrenin içine yerleştirin.
2. Ardından, "Biçimlendirmeyi Göster" bölmesini açmak için "Shift + F1" tuşlarına basın. Ve hücrenin RGB değerini "Gölgelendirme" bölümünde görebileceksiniz.
3. Yöntem 9'deki 11 ila 1 arasındaki adımları izleyin.

Yöntem 3: VBA ile Bir Hücrenin Dolgu Rengini Tüm Tabloya Uygulayın

Alt başlıktan da anlaşılacağı gibi, tüm tabloyu tek renkte birleştirmenin yolu burada.

1. Başlamak için, ekleme işaretçisini renkli bir hücrenin içine yerleştirin.
2. VBA editörünü tetiklemek için “Alt+ F11” tuşlarına basın.
3. Ardından “Normal” projeye tıklayın ve “Ekle” sekmesine tıklayın.
4. Ardından bu menüden “Modül” seçeneğini seçin.
5. Çift tıklayarak açın.
6. Ve oraya aşağıdaki kodları yapıştırın:

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. Son olarak, “Çalıştır”a tıklayın veya “F5”e basın.

Yöntem 4: VBA ile Bir Hücrenin Dolgu Rengini Tüm Satıra Uygulayın

1. İlk başta, imleci bir hücrenin içine getirin.
2. Daha sonra, yöntem 3'teki tam olarak aynı adımları izleyerek bir makro kurun ve çalıştırın.
3. Daha sonra yukarıdaki kodları bunlarla değiştirin:

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

Yöntem 5: VBA ile Bir Hücrenin Dolgu Rengini Tüm Sütuna Uygulayın

1. Muhtemelen, önce imleci bir hücrenin içine getirin.
2. Ardından bir makroyu düzgün bir şekilde kurun ve çalıştırın.
3. Makroyu bununla değiştirin:

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

Kelime Sorunlarını Yönetin

Word'ü kullanma sürecinde sorunlar vardır ve her zaman olacaktır. Bu yüzden tüm bu sinir bozucu sorunlarla başa çıkmak için doğru numarayı öğrenmek oldukça gerekli. Almanız gereken önlemlerden biri de bir kelime düzeltme araç önceden. O zaman bir belge bozulduğunda paniğe kapılmazsınız.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. iyileşmek hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com