Как да приложа цветен градиент в множество клетки?
В Excel можем лесно да запълним цвета на фона на клетка или множество клетки, но понякога се нуждаем цветът да бъде запълнен с градиент, както е показано на следната екранна снимка, как можем да получим цветовия градиент в клетка или в множество клетки в Excel?
Цветов градиент към една клетка | Цветов градиент в множество клетки |
Приложете градиентен цвят към една клетка с функцията за форматиране на клетки
Приложете градиентен цвят в множество клетки с VBA код
Приложете градиентен цвят към една клетка с функцията за форматиране на клетки
В Excel функцията Форматиране на клетки може да ви помогне да запълните цветовия градиент в една клетка, моля, направете следното:
1. Изберете клетка или няколко клетки, които искате да бъдат запълнени с цветен градиент всяка клетка, и след това щракнете с десния бутон, за да изберете Форматиране на клетки от контекстното меню, в Форматиране на клетки диалогов прозорец, под Напълнете раздел, моля щракнете Ефекти на запълване бутон, вижте екранната снимка:
2. В Ефекти на запълване изберете два цвята, които искате да използвате, от двата падащи списъка Цветове и след това изберете един стил на засенчване, който искате, като хоризонтален, вертикален и т.н. Вижте екранна снимка:
3, След това кликнете OK > OK за затваряне на диалоговите прозорци и цветът на градиента се запълва за всяка клетка, както е показано на следната екранна снимка:
Приложете градиентен цвят в множество клетки с VBA код
Горният метод може да ни помогне да оцветим градиента в рамките на отделна клетка, ако трябва да засенчите цветовия градиент в множество клетки, трябва да приложите VBA код, за да го разрешите.
1. Първо, попълнете определен цвят на фона в диапазон от клетки.
2. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
3. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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 Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!