Ինչպե՞ս կիրառել գունային գրադիենը բազմաթիվ բջիջների միջով:
Excel- ում մենք կարող ենք հեշտությամբ լրացնել ֆոնի գույնը բջիջում կամ բազմաթիվ բջիջներում, բայց երբեմն մեզ անհրաժեշտ է, որ գույնը լրացվի գրադիենտով, ինչպես ցույց է տրված հետևյալ նկարում.
Գույնի գրադիենտ մեկ խցում | Գույնի գրադիենտը `դեպի բազմաթիվ բջիջներ |
Կիրառեք գրադիենտի գույնը մեկ բջիջի վրա ՝ Ձևաչափի բջիջների հնարավորությամբ
Կիրառեք գրադիենտ գույնը VBA կոդով մի քանի բջիջների միջով
Կիրառեք գրադիենտի գույնը մեկ բջիջի վրա ՝ Ձևաչափի բջիջների հնարավորությամբ
Excel- ում Ձևաչափի բջիջների առանձնահատկությունը կարող է օգնել ձեզ լրացնել գույնի գրադիենտը մեկ խցում, խնդրում ենք անել հետևյալը.
1, Ընտրեք բջիջ կամ բազմաթիվ բջիջներ, որոնք ցանկանում եք լրացնել յուրաքանչյուր բջիջի գույնի գրադիենտով, այնուհետև աջ կտտացրեք ընտրելու համար Ձևաչափել բջիջները համատեքստային ընտրացանկից, Ձևաչափել բջիջները երկխոսության տուփ, տակ Լրացնել ներդիրը, սեղմեք Լրացրեք էֆեկտները կոճակը, տես նկարի նկարը.
2, Մեջ Լրացրեք էֆեկտները երկխոսություն, ընտրեք երկու գույներ, որոնք ցանկանում եք օգտագործել երկու բացվող ցուցակներից Գունավոր շորեր բաժինը, ապա ընտրեք ստվերի մեկ ոճ, ինչպես ցանկանում եք, ինչպիսիք են հորիզոնական, ուղղահայաց և այլն: Տեսեք,
3. Այնուհետեւ կտտացրեք OK > OK երկխոսությունները փակելու համար, և գրադիենային գույնը լրացվում է յուրաքանչյուր բջիջի համար, ինչպես ցույց է տրված հետևյալ նկարը.
Կիրառեք գրադիենտ գույնը VBA կոդով մի քանի բջիջների միջով
Վերոնշյալ մեթոդը կարող է օգնել մեզ գունային գրադիենտ կատարել անհատական բջիջի ներսում, եթե անհրաժեշտ է գույնի գրադիենը ստվերել բազմաթիվ բջիջների միջով, դրա լուծման համար անհրաժեշտ է կիրառել VBA կոդ:
1, Նախ, լրացրեք հատուկ ֆոնի գույնը բջիջների մի շարք:
2, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Կիրառել գրադիենտ գույնը բազմաթիվ բջիջների միջև.
Sub colorgradientmultiplecells()
'Updateby Extendoffcie
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xColor As Long
Dim I As Long
Dim K As Long
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the cells range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
xCount = xRg.Rows.Count
For K = 1 To xRg.Columns.Count
xColor = xRg.Cells(1, K).Interior.Color
For I = xCount To 1 Step -1
xRg.Cells(I, K).Interior.Color = xColor
xRg.Cells(I, K).Interior.TintAndShade = (xCount - (I - 1)) / xCount
Next
Next
End Sub
4, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և հայտնվում է հուշման տուփ, որը հիշեցնում է ձեզ ընտրել գունավոր բջիջները, որոնք ցանկանում եք լրացնել գրադիենտ գույնով, տե՛ս նկարը.
5. Եվ այնուհետեւ կտտացրեք OK կոճակը, բազմաթիվ բջիջների գույնը ցուցադրվել է որպես գրադիենտ գույն, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: