Кесте ұяшығының бояу түсін бүкіл жолға, бағанға немесе кестеге жылдам қолданудың 5 әдісі

Бұл мақалада біз кесте ұяшығының бояу түсін бүкіл жолға, бағанға немесе кестеге жылдам қолданудың бес әдісін ұсынамыз.

Word бағдарламасындағы кесте ұяшығына көшірген кезде ұяшық мазмұнын ғана алатыныңызды, бірақ ешқашан толтыру түсі болмайтынын байқауыңыз мүмкін. Сондықтан біз сізге осы мәселені шешудің бес шешімін көрсеткіміз келеді.    

1-әдіс: Кесте ұяшығының RGB мәнін қолмен алу

1. Ең алдымен, бояу түсін алу қажет ұяшықты таңдаңыз.
2. Содан кейін «Дизайн» қойындысын басыңыз.
3. Төмендегі «Көлеңкелеу» пәрменін тауып, сол пәрмендегі ашылмалы түймені басыңыз.
4. Мәзірде «Шекара және көлеңкелеу» тармағын таңдап, сол атаумен диалогтық терезені ашыңыз.
5. Келесі ашық жолақта «Көлеңкелеу» қойындысын басыңыз.
6. «Толтыру» өрісіне өтіп, ашылмалы түймені басыңыз.
7. Және «Түстер» жолағын ашу үшін «Қосымша түстер» тармағын таңдаңыз.
8. «Түс үлгісі» өрісі үшін «RGB» таңдаңыз. Төмендегі RGB мәнін алыңыз.
9. Содан кейін барлық ұяшықтарды жауып, курсорды мақсатты ұяшықтың ішіне қойыңыз. Немесе бірнеше ұяшықты, жолдарды, бағандарды немесе тіпті бүкіл кестені таңдай аласыз.
10. Және «Қосымша түстер» таңдау үшін «Көлеңкелеу» пәрменіндегі ашылмалы түймені басыңыз.
11. 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. Соңында «Іске қосу» батырмасын басыңыз немесе «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 мәселелерін өңдеу

Word бағдарламасын пайдалану процесінде проблемалар бар және әрқашан болады. Сондықтан барлық осы тітіркендіргіш мәселелермен күресу үшін дұрыс трюкті үйрену өте қажет. Қолдану керек шаралардың бірі - а Сөз түзету құралды алдын ала. Содан кейін құжат бүлінген кезде үрейленбейсіз.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. excel қалпына келтіру және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com