Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս տպելիս Excel թերթում վերնագրերին կամ տողատակերին ավելացնել ֆոնի գույնը:

Ինչպես գիտենք, մենք կարող ենք թերթի վերնագրին կամ տողատակին ավելացնել բովանդակություն կամ նկար, որը կցուցադրվի տպելիս: Բայց երբևէ փորձե՞լ եք վերնագրերին կամ տողատակերին ֆոնի գույն ավելացնել: Իրականում, չկա ներկառուցված գործառույթ, որը կարող է կարգավորել այն, բայց այստեղ ես ներկայացնում եմ շրջանառության որոշ եղանակներ ՝ գործողությանը հասնելու համար:

Ավելացրեք ֆոնի գույնը վերնագրին կամ տողատակին ՝ լրացնելով գույնով

VBA- ի վերնագրին և էջատակին ավելացնել ֆոնի գույնը


Ավելացրեք ֆոնի գույնը վերնագրին կամ տողատակին ՝ լրացնելով գույնով

1: սեղմեք Page Layout > Page Setup.
փաստաթուղթ 1-ին վերնագիր ավելացնել ֆոնին

2. Մեջ Page Setup երկխոսություն, տակ Margins էջանիշը, տեսակը 0 մեջ Top, Գլխավայր ցատկ, Պատվանդան և Google Խմբերի սկզբնական էջ տեքստային տուփեր:
փաստաթուղթ 2-ին վերնագիր ավելացնել ֆոնին

3: սեղմեք OK, Դրանից հետո ընտրեք առաջին շարքը և կտտացրեք Գլխավոր > Միաձուլում և կենտրոն.
փաստաթուղթ 3-ին վերնագիր ավելացնել ֆոնին

3. Գնա առաջ ընտրելու գույնը Լրացրեք կոլոr ցուցակ ՝ միաձուլված բջիջներին ֆոնի գույն ավելացնելու համար:
փաստաթուղթ 4-ին վերնագիր ավելացնել ֆոնին

4. Կրկնեք 2-րդ և 3-րդ քայլերը `ձեր ուզած ստորոտի շարքին ֆոնի գույն ավելացնելու համար:

Այժմ էջը կարծես թե ֆոնի գույնն է ավելացնում վերնագրում և էջատակին:
փաստաթուղթ 5-ին վերնագիր ավելացնել ֆոնին


VBA- ի վերնագրին և էջատակին ավելացնել ֆոնի գույնը

Ահա մի VBA կոդ, որը միաժամանակ կարող է արագորեն ավելացնել ֆոնի գույնը վերնագրում և էջատակին:

1. Մամուլ Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում նոր մոդուլում:

VBA. Ավելացրեք ֆոնի գույնը վերնագրում և էջատակում

Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
    Dim I, J As Long
   Dim xRg As Range
    Dim xRow, xCol As Long
    Dim xRows, xCols As Long
    Dim xDivRow, xDivCol As Long
    Dim xTopArr, xButtArr As Variant
    Dim PageSize1, PageSize2 As Integer
    On Error Resume Next
    xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
    xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
    PageSize1 = 46
    PageSize2 = 8
    With ActiveSheet.PageSetup
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .BlackAndWhite = False
    End With
    Set xRg = ActiveSheet.UsedRange
    If xRg Is Nothing Then Exit Sub
    xRows = xRg(xRg.Count).Row
    xCols = xRg(xRg.Count).Column
    If xRows < 46 Then xRows = 46
    If xCol < 8 Then xCol = 8
    xDivRow = Int(xRows / PageSize1)
    xDivCol = Int(xCols / PageSize2)
    If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
    If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
    If xDivRow = 0 Then xDivRow = 1
    If xDivCol = 0 Then xDivCol = 1
    Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
    xRow = 1
    xCol = 1
    Cells.PageBreak = xlPageBreakNone
    For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
        For J = 1 To xDivCol * PageSize2 Step PageSize2
            Cells(I, J).Resize(1, PageSize2) = xTopArr
            Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
            Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Rows(I + PageSize1 + 1).PageBreak = xlManual
            Columns(J + PageSize2).PageBreak = xlManual
        Next
    Next
End Sub

փաստաթուղթ 6-ին վերնագիր ավելացնել ֆոնին

3. Մամուլ F5 Կոդը գործարկելու համար ստեղնը, այնուհետև ֆոնի որոշակի գույն է ավելացվել յուրաքանչյուր թերթի առաջին շարքում և 47-րդ շարքում, որոնք կցուցադրվեն որպես կեղծ վերնագիր և տողատակ:
փաստաթուղթ 7-ին վերնագիր ավելացնել ֆոնին

Նշում: ծածկագրում կարող եք փոխել ստորև ներկայացված սցենարները ՝ ձեր կարիքը բավարարելու համար:

1. Փոխեք վերնագրի և էջատակի բովանդակությունը, ինչպես անհրաժեշտ է լարում:

xTopArr = զանգված («Վերևի ձախ», «», «», «Վերևի կենտրոն», «», «», «», «»)

xButtArr = զանգված («Ձախ տակը», «», «», «Ստորին կենտրոն», «», «», «», «»)

2. Փոխեք ֆոնի գույնի ցուցիչը այս խայթոցում.

Բջիջներ (I, J): Չափափոխել (1, PageSize2): Ներքին: ColorIndex = 34

Բջիջներ (I + PageSize1, J): Չափափոխել (1, PageSize2): Ներքին: ColorIndex = 34


Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations