5 metoda për të aplikuar shpejt ngjyrën e mbushjes së një qelize tabele në të gjithë rreshtin, kolonën ose tabelën

Në këtë artikull, ne do t'ju ofrojmë pesë metoda për të aplikuar shpejt ngjyrën e mbushjes së një qelize tabele në të gjithë rreshtin, kolonën ose tabelën.

Ju mund të vini re se kur kopjoni në një qelizë tabele në Word, merrni vetëm përmbajtjen e qelizës, por kurrë ngjyrën e mbushjes. Prandaj, ne duam t'ju tregojmë pesë mënyra për të zgjidhur këtë çështje.    

Metoda 1: Merrni manualisht vlerën RGB të qelizës së tabelës

1. Para së gjithash, zgjidhni qelizën, ngjyra e mbushjes së së cilës duhet të merrni.
2. Pastaj klikoni në skedën "Dizajn".
3. Gjeni komandën më poshtë "Hije" dhe klikoni në butonin rënës në atë komandë.
4. Në meny zgjidhni "Borders and Shading" për të hapur kutinë e dialogut me të njëjtin emër.
5. Më pas në kutinë e hapur, klikoni në skedën "Hije".
6. Shkoni te fusha "Plotësoni" dhe klikoni në butonin rënës.
7. Dhe zgjidhni "Më shumë ngjyra" për të hapur kutinë "Ngjyrat".
8. Zgjidhni "RGB" për fushën "Modeli i ngjyrave". Merrni vlerën RGB më poshtë.
9. Pastaj mbyllni të gjitha kutitë dhe vendosni kursorin brenda qelizës së synuar. Ose mund të zgjidhni qeliza, rreshta, kolona të shumta ose edhe të gjithë tabelën.
10. Dhe klikoni butonin drop-down në komandën "Hije" për të zgjedhur "Më shumë ngjyra".
11. Futni vlerën RGB në skedën "Custom" dhe klikoni "OK".

Metoda 2: Hapni panelin "Reveal Formatting".

Ideja është e ngjashme, që është të marrësh vlerën RGB dhe pastaj ta aplikosh atë në qelizat e synuara, rreshtat, kolonat ose të gjithë tabelën.

1. Së pari, vendosni treguesin e futjes brenda qelizës së mbushur.
2. Më pas shtypni "Shift+ F1" për të hapur panelin "Reveal Formatting". Dhe do të jeni në gjendje të shihni vlerën RGB të qelizës nën seksionin "Hije".
3. Ndiqni hapin 9 deri në 11 në metodën 1.

Metoda 3: Aplikoni ngjyrën e mbushjes së një qelize në të gjithë tabelën përmes VBA

Siç sugjeron nëntitulli, këtu është mënyra për të bashkuar të gjithë tabelën në një ngjyrë.

1. Për të filluar, vendosni treguesin e futjes brenda një qelize me ngjyrë.
2. Shtypni "Alt+ F11" për të aktivizuar redaktorin VBA.
3. Pastaj klikoni projektin "Normal" dhe klikoni në skedën "Fut".
4. Pastaj zgjidhni "Modul" në atë menu.
5. Hapeni atë me dy klikim.
6. Dhe ngjisni kodet e mëposhtme atje:

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. Së fundi, klikoni "Run" ose shtypni "F5".

Metoda 4: Aplikoni ngjyrën e mbushjes së një qelize në të gjithë rreshtin nëpërmjet VBA

1. Në fillim, vendosni kursorin brenda një qelize.
2. Pastaj instaloni dhe ekzekutoni një makro duke ndjekur saktësisht të njëjtat hapa në metodën 3.
3. Më pas zëvendësoni kodet e mësipërme me këto:

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

Metoda 5: Aplikoni ngjyrën e mbushjes së një qelize në të gjithë kolonën përmes VBA

1. Me shumë mundësi, vendosni fillimisht kursorin brenda një qelize.
2. Pastaj instaloni dhe ekzekutoni një makro siç duhet.
3. Zëvendësoni makro me këtë:

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

Trajtoni çështjet e fjalëve

Ka dhe do të ketë gjithmonë probleme në procesin e përdorimit të Word. Pra, është mjaft e nevojshme të mësoni trukun e duhur për t'u marrë me të gjitha këto çështje të bezdisshme. Një nga masat që duhet të merrni është të kapni një Rregullimi i fjalës mjet paraprakisht. Atëherë nuk do t'ju zërë paniku pasi një dokument të korruptohet.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni excel pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com