ცხრილის უჯრედის შევსების ფერის სწრაფად გამოყენების 5 მეთოდი მთელ მწკრივზე, სვეტზე ან ცხრილზე

ამ სტატიაში შემოგთავაზებთ ხუთ მეთოდს, რათა სწრაფად გამოიყენოთ ცხრილის უჯრედის შევსების ფერი მთელ რიგზე, სვეტზე ან ცხრილზე.

შეიძლება შეამჩნიოთ, რომ Word-ის ცხრილის უჯრედში კოპირებისას თქვენ მიიღებთ მხოლოდ უჯრედის შინაარსს, მაგრამ არასოდეს შევსების ფერს. ამიტომ, ჩვენ გვინდა გაჩვენოთ ხუთი გამოსავალი ამ საკითხის გადასაჭრელად.    

მეთოდი 1: ხელით მიიღეთ ცხრილის უჯრედის RGB მნიშვნელობა

1. უპირველეს ყოვლისა, აირჩიეთ უჯრედი, რომლის შევსების ფერი უნდა მიიღოთ.
2. შემდეგ დააჭირეთ "დიზაინი" ჩანართს.
3. იპოვეთ ბრძანება ქვემოთ "Shading" და დააწკაპუნეთ ჩამოსაშლელ ღილაკს ამ ბრძანებაზე.
4. მენიუში აირჩიეთ „საზღვრები და დაჩრდილვა“, რათა გახსნათ იგივე სახელწოდების დიალოგური ფანჯარა.
5. შემდეგ გახსნილ ველში დააწკაპუნეთ ჩანართზე „დაჩრდილვა“.
6. გადადით "შევსების" ველში და დააჭირეთ ჩამოსაშლელ ღილაკს.
7. და აირჩიეთ "მეტი ფერები", რათა გახსნათ "ფერები" ველი.
8. აირჩიეთ "RGB" ველში "ფერადი მოდელი". მიიღეთ RGB მნიშვნელობა ქვემოთ.
9. შემდეგ დახურეთ ყველა ველი და მოათავსეთ კურსორი სამიზნე უჯრაში. ან შეგიძლიათ აირჩიოთ მრავალი უჯრა, რიგი, სვეტი ან თუნდაც მთელი ცხრილი.
10. და დააწკაპუნეთ ჩამოსაშლელ ღილაკს "დაჩრდილვის" ბრძანებაზე, რათა აირჩიოთ "მეტი ფერები".
11. შეიყვანეთ RGB მნიშვნელობა "მორგებული" ჩანართში და დააჭირეთ "OK".

მეთოდი 2: გახსენით „გამოვლენის ფორმატირების“ პანელი

იდეა მსგავსია, კერძოდ, უნდა მივიღოთ RGB მნიშვნელობა და შემდეგ გამოვიყენოთ ის სამიზნე უჯრედებზე, რიგებზე, სვეტებზე ან მთელ ცხრილზე.

1. პირველ რიგში, მოათავსეთ ჩასმის მაჩვენებელი შევსებული უჯრედის შიგნით.
2. შემდეგ დააჭირეთ "Shift+ F1"-ს, რათა გახსნათ "Reveal Formatting" პანელი. და თქვენ შეძლებთ ნახოთ უჯრედის RGB მნიშვნელობა "დაჩრდილვის" განყოფილებაში.
3. მიჰყევით ნაბიჯებს 9-დან 11-მდე მეთოდში 1.

მეთოდი 3: გამოიყენეთ ერთი უჯრედის შევსების ფერი მთელ მაგიდაზე VBA-ს საშუალებით

როგორც ქვესათაური გვთავაზობს, აქ არის მთელი ცხრილის ერთ ფერში გაერთიანების გზა.

1. დასაწყისისთვის, განათავსეთ ჩასმის მაჩვენებელი ფერადი უჯრედის შიგნით.
2. დააჭირეთ "Alt+ F11" VBA რედაქტორის გასააქტიურებლად.
3. შემდეგ დააჭირეთ "ნორმალური" პროექტს და დააჭირეთ "ჩასმა" ჩანართს.
4. შემდეგ აირჩიეთ "მოდული" მენიუში.
5. გახსენით იგი ორმაგი დაწკაპუნებით.
6. და ჩასვით იქ შემდეგი კოდები:

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. და ბოლოს, დააჭირეთ "Run" ან დააჭირეთ "F5".

მეთოდი 4: გამოიყენეთ ერთი უჯრედის შევსების ფერი მთელ მწკრივზე VBA-ს საშუალებით

1. თავდაპირველად, ჩადეთ კურსორი უჯრედში.
2. შემდეგ დააინსტალირეთ და გაუშვით მაკრო ზუსტად იგივე ნაბიჯების შემდეგ მე-3 მეთოდში.
3. შემდეგ შეცვალეთ ზემოთ მოყვანილი კოდები ამით:

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

მეთოდი 5: გამოიყენეთ ერთი უჯრედის შევსების ფერი მთელ სვეტზე VBA-ს საშუალებით

1. სავარაუდოდ, ჯერ ჩადეთ კურსორი უჯრედში.
2. შემდეგ დააინსტალირეთ და გაუშვით მაკრო სწორად.
3. შეცვალეთ მაკრო ამით:

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

გაუმკლავდეს სიტყვის საკითხებს

Word-ის გამოყენების პროცესში ყოველთვის არის და იქნება პრობლემები. ამიტომ სავსებით აუცილებელია ვისწავლოთ სწორი ხრიკი ყველა ამ უსიამოვნო საკითხის მოსაგვარებლად. ერთ-ერთი ღონისძიება, რომელიც უნდა მიიღოთ, არის ა სიტყვის შესწორება ინსტრუმენტი წინასწარ. მაშინ არ შეგეშინდებათ დოკუმენტის გაფუჭების შემდეგ.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel-ის აღდგენა მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად