Как применить градиентный цвет к нескольким ячейкам?
В Excel легко задать сплошной цвет фона для одной или нескольких ячеек, но иногда требуется использовать градиентную заливку, как показано на следующем снимке экрана. Как применить градиентную заливку к одной или нескольким ячейкам в Excel?
Применение градиентной заливки к одной ячейке с помощью функции Установить формат ячейки
Применение градиентной заливки по нескольким ячейкам с помощью кода VBA
Применение градиентной заливки к одной ячейке с помощью функции Установить формат ячейки
В Excel функция «Установить формат ячейки» позволяет заполнить ячейку цветовым градиентом. Выполните следующие действия:
1. Выделите одну или несколько ячеек, которые нужно заполнить градиентом (каждая ячейка настраивается отдельно), щелкните по ним правой кнопкой мыши и выберите в контекстном меню пункт Установить формат ячейки. В открывшемся диалоговом окне Установить формат ячейки перейдите на вкладку Заливка и нажмите кнопку Эффекты заливки — см. снимок экрана:
2. В диалоговом окне Эффекты заливки в разделе Цвета выберите два нужных цвета из выпадающих списков и укажите подходящий стиль градиента — например, горизонтальный, вертикальный и т.д. См. снимок экрана:
3. Затем нажмите ОК > ОК, чтобы закрыть диалоговые окна. Градиентная заливка будет применена к каждой ячейке, как показано на следующем снимке экрана:
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Применение градиентной заливки по нескольким ячейкам с помощью кода 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. После этого нажмите кнопку ОК. Цвет в выбранных ячейках отобразится как градиент. См. снимок экрана:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек