Sut i gymhwyso graddiant lliw ar draws celloedd lluosog?
Yn Excel, gallwn yn hawdd lenwi lliw cefndir i gell neu gelloedd lluosog, ond, weithiau, mae angen i'r graddiant lliw gael ei lenwi fel y dangosir y llun a ganlyn, sut y gallai gael y graddiant lliw mewn cell neu ar draws celloedd lluosog yn Excel?
Graddiant lliw i un cell | Graddiant lliw ar draws i gelloedd lluosog |
Rhowch liw graddiant ar un gell gyda nodwedd Celloedd Fformat
Cymhwyso lliw graddiant ar draws celloedd lluosog gyda chod VBA
Rhowch liw graddiant ar un gell gyda nodwedd Celloedd Fformat
Yn Excel, gall y nodwedd Celloedd Fformat eich helpu i lenwi'r graddiant lliw mewn un cell, gwnewch fel a ganlyn:
1. Dewiswch gell neu gelloedd lluosog rydych chi am gael eich llenwi â graddiant lliw ym mhob cell, ac yna cliciwch ar y dde i ddewis Celloedd Fformat o'r ddewislen cyd-destun, yn y Celloedd Fformat blwch deialog, o dan y Llenwch tab, cliciwch Llenwi Effeithiau botwm, gweler y screenshot:
2. Yn y Llenwi Effeithiau deialog, dewiswch ddau liw rydych chi am eu defnyddio o'r ddwy restr ostwng Lliwiau adran, ac yna dewiswch un arddull cysgodi fel y dymunwch, fel llorweddol, Fertigol, ac ati. Gweler y screenshot:
3. Yna cliciwch OK > OK i gau'r dialogau, ac mae'r lliw graddiant wedi'i lenwi ar gyfer pob cell fel y dangosir y llun a ganlyn:
Cymhwyso lliw graddiant ar draws celloedd lluosog gyda chod VBA
Gall y dull uchod ein helpu i liwio graddiant o fewn cell unigol, os oes angen i chi gysgodi'r graddiant lliw ar draws sawl cell, mae angen i chi gymhwyso cod VBA i'w ddatrys.
1. Yn gyntaf, llenwch liw cefndir penodol i ystod o gelloedd.
2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Cymhwyso lliw graddiant ar draws celloedd lluosog:
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac ymddengys bod blwch prydlon i'ch atgoffa o ddewis y celloedd lliw rydych chi am lenwi lliw graddiant, gweler y screenshot:
5. Ac yna cliciwch OK botwm, mae'r lliw o fewn celloedd lluosog wedi arddangos fel lliw graddiant, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!