Սեղանի բջիջի լրացման գույնը արագորեն կիրառելու 5 մեթոդ ամբողջ շարքում, սյունակում կամ աղյուսակում

Այս հոդվածում մենք ձեզ կառաջարկենք հինգ եղանակ՝ աղյուսակի բջիջի լրացման գույնը ամբողջ տողի, սյունակի կամ աղյուսակի վրա արագ կիրառելու համար:

Դուք կարող եք նկատել, որ երբ դուք պատճենում եք Word-ի աղյուսակի բջիջում, դուք ստանում եք միայն բջիջի բովանդակությունը, բայց ոչ երբեք լրացման գույնը: Հետևաբար, մենք ուզում ենք ձեզ ցույց տալ այս խնդիրը լուծելու հինգ լուծում:    

Մեթոդ 1. Ձեռքով ստացեք աղյուսակի բջիջի RGB արժեքը

1. Նախ ընտրեք այն բջիջը, որի լրացման գույնը պետք է ստանաք:
2. Հաջորդը սեղմեք «Դիզայն» ներդիրին:
3. Գտեք «Shading» ստորև նշված հրամանը և կտտացրեք այդ հրամանի բացվող կոճակին:
4. Մենյուում ընտրեք «Սահմաններ և ստվերում»՝ նույն անունով երկխոսության տուփը բացելու համար:
5. Հաջորդը բացված վանդակում սեղմեք «Shading» ներդիրը:
6. Գնացեք «Լրացրեք» դաշտը և կտտացրեք բացվող կոճակին:
7. Եվ ընտրեք «Ավելի շատ գույներ»՝ «Գույներ» վանդակը բացելու համար:
8. «Գունավոր մոդել» դաշտի համար ընտրեք «RGB»: Ստացեք RGB արժեքը ստորև:
9. Այնուհետև փակեք բոլոր վանդակները և տեղադրեք կուրսորը թիրախային բջջի ներսում: Կամ կարող եք ընտրել մի քանի բջիջ, տող, սյու կամ նույնիսկ ամբողջ աղյուսակը:
10. Եվ սեղմեք «Shading» հրամանի բացվող կոճակը՝ «Ավելի շատ գույներ» ընտրելու համար:
11. Մուտքագրեք RGB արժեքը «Custom» ներդիրում և սեղմեք «OK»:

Մեթոդ 2. Բացեք «Բացահայտել ֆորմատավորում» վահանակը

Գաղափարը նման է, այն է ստանալ RGB արժեքը և կիրառել այն թիրախային բջիջների, տողերի, սյուների կամ ամբողջ աղյուսակի վրա։

1. Նախ, տեղադրեք ցուցիչը լցված բջիջի ներսում:
2. Հաջորդը սեղմեք «Shift+ F1»՝ «Բացահայտել ֆորմատավորման» վահանակը բացելու համար: Եվ դուք կկարողանաք տեսնել բջիջի RGB արժեքը «Shading» բաժնում:
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., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել գերազանցել և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com