Хүснэгтийн нүдний өнгийг бүхэлд нь мөр, багана эсвэл хүснэгтэд хурдан түрхэх 5 арга

Энэ нийтлэлд бид хүснэгтийн нүдийг бүхэлд нь мөр, багана эсвэл хүснэгтэд дүүргэх XNUMX аргыг санал болгох болно.

Word програмын хүснэгтийн нүдэнд хуулахдаа зөвхөн нүдний агуулгыг авах боловч дүүргэх өнгийг хэзээ ч авахгүй гэдгийг та анзаарсан байх. Тиймээс бид танд энэ асуудлыг шийдвэрлэх таван арга замыг харуулахыг хүсч байна.    

Арга 1: Хүснэгтийн нүдний RGB утгыг гараар авах

1. Юуны өмнө дүүргэх өнгийг авах шаардлагатай нүдийг сонгоно уу.
2. Дараа нь "Дизайн" таб дээр дарна уу.
3. Доорх "Shading" командыг олоод тухайн командын унждаг товчийг дарна уу.
4. Цэсээс "Хил ба сүүдэр" -ийг сонгоод ижил нэртэй харилцах цонхыг нээнэ үү.
5. Дараа нь нээгдсэн хайрцагт "Сүүдэрлэх" таб дээр дарна уу.
6. "Дүүргэх" талбар руу очоод доош унах товчийг дарна уу.
7. "Өнгө" нүдийг нээхийн тулд "Илүү өнгө" -г сонго.
8. "Өнгөний загвар" талбарт "RGB" хэсгийг сонгоно уу. Доорх RGB утгыг авна уу.
9. Дараа нь бүх хайрцгийг хааж, курсорыг зорилтот нүдэнд байрлуулна уу. Эсвэл та олон нүд, мөр, багана эсвэл хүснэгтийг бүхэлд нь сонгож болно.
10. "Сүүдэрлэх" командын унадаг товчийг дарж "Илүү өнгө" -ийг сонгоно уу.
11. "Custom" таб дээр RGB утгыг оруулаад "OK" дээр дарна уу.

Арга 2: "Форматыг харуулах" хэсгийг нээнэ үү

Үүнтэй төстэй санаа нь RGB утгыг аваад дараа нь зорилтот нүд, мөр, багана эсвэл бүхэл хүснэгтэд хэрэглэх явдал юм.

1. Нэгдүгээрт, дүүргэсэн нүдэнд оруулах заагчийг байрлуул.
2. Дараа нь "Shift + F1" товчийг дарж "Форматыг харуулах" хэсгийг нээнэ үү. Мөн та "Сүүдэрлэх" хэсгээс нүдний RGB утгыг харах боломжтой болно.
3. 9-р аргын 11-1-р алхамыг дагана уу.

Арга 3: VBA-ээр дамжуулан нэг нүдний өнгөт өнгийг бүхэлд нь хүснэгтэд хэрэглэнэ

Хадмал орчуулгаас харахад хүснэгтийг бүхэлд нь нэг өнгөөр ​​нэгтгэх арга энд байна.

1. Эхлэхийн тулд өнгөт нүдэнд оруулах заагчийг байрлуул.
2. VBA засварлагчийг идэвхжүүлэхийн тулд "Alt + F11" товчийг дарна уу.
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 програмыг ашиглах явцад асуудал байнга гардаг бөгөөд байх болно. Тиймээс энэ бүх ядаргаатай асуудлыг шийдвэрлэхийн тулд зөв заль мэхийг сурах нь маш чухал юм. Таны авах ёстой арга хэмжээний нэг бол a-г барих явдал юм Үг засах урьдчилан хэрэгсэл. Дараа нь баримт бичиг эвдэрсэн тохиолдолд та сандрахгүй.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. excel-ийг сэргээх болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com