Ինչպե՞ս տպելիս Excel թերթում վերնագրերին կամ տողատակերին ավելացնել ֆոնի գույնը:
Ինչպես գիտենք, մենք կարող ենք թերթի վերնագրին կամ տողատակին ավելացնել բովանդակություն կամ նկար, որը կցուցադրվի տպելիս: Բայց երբևէ փորձե՞լ եք վերնագրերին կամ տողատակերին ֆոնի գույն ավելացնել: Իրականում, չկա ներկառուցված գործառույթ, որը կարող է կարգավորել այն, բայց այստեղ ես ներկայացնում եմ շրջանառության որոշ եղանակներ ՝ գործողությանը հասնելու համար:
Ավելացրեք ֆոնի գույնը վերնագրին կամ տողատակին ՝ լրացնելով գույնով
VBA- ի վերնագրին և էջատակին ավելացնել ֆոնի գույնը
Ավելացրեք ֆոնի գույնը վերնագրին կամ տողատակին ՝ լրացնելով գույնով
1: սեղմեք Page Layout > Page Setup.
2. Մեջ Page Setup երկխոսություն, տակ Margins էջանիշը, տեսակը 0 մեջ Top, Գլխավայր ցատկ, Պատվանդան և Google Խմբերի սկզբնական էջ տեքստային տուփեր:
3: սեղմեք OK, Դրանից հետո ընտրեք առաջին շարքը և կտտացրեք Գլխավոր > Միաձուլում և կենտրոն.
3. Գնա առաջ ընտրելու գույնը Լրացրեք կոլոr ցուցակ ՝ միաձուլված բջիջներին ֆոնի գույն ավելացնելու համար:
4. Կրկնեք 2-րդ և 3-րդ քայլերը `ձեր ուզած ստորոտի շարքին ֆոնի գույն ավելացնելու համար:
Այժմ էջը կարծես թե ֆոնի գույնն է ավելացնում վերնագրում և էջատակին:
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
3. Մամուլ F5 Կոդը գործարկելու համար ստեղնը, այնուհետև ֆոնի որոշակի գույն է ավելացվել յուրաքանչյուր թերթի առաջին շարքում և 47-րդ շարքում, որոնք կցուցադրվեն որպես կեղծ վերնագիր և տողատակ:
Նշում: ծածկագրում կարող եք փոխել ստորև ներկայացված սցենարները ՝ ձեր կարիքը բավարարելու համար:
1. Փոխեք վերնագրի և էջատակի բովանդակությունը, ինչպես անհրաժեշտ է լարում:
xTopArr = զանգված («Վերևի ձախ», «», «», «Վերևի կենտրոն», «», «», «», «»)
xButtArr = զանգված («Ձախ տակը», «», «», «Ստորին կենտրոն», «», «», «», «»)
2. Փոխեք ֆոնի գույնի ցուցիչը այս խայթոցում.
Բջիջներ (I, J): Չափափոխել (1, PageSize2): Ներքին: ColorIndex = 34
Բջիջներ (I + PageSize1, J): Չափափոխել (1, PageSize2): Ներքին: ColorIndex = 34
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: