Як застосувати кольоровий градієнт у кількох клітинках?
В Excel ми можемо легко заповнити фоновий колір клітинки або кількох комірок, але, іноді, нам потрібно залити кольором градієнт, як показано на наступному скріншоті, як можна отримати градієнт кольору в комірці або в декількох клітинках Excel?
Колірний градієнт до однієї комірки | Колірний градієнт у декількох клітинках |
Застосуйте градієнтний колір до однієї комірки за допомогою функції Форматувати клітинки
Застосуйте градієнтний колір у кількох клітинках за допомогою коду VBA
Застосуйте градієнтний колір до однієї комірки за допомогою функції Форматувати клітинки
У програмі Excel функція «Формат клітинок» може допомогти вам заповнити кольоровий градієнт в одній комірці, виконайте такі дії:
1. Виберіть комірку або кілька комірок, які потрібно заповнити кольоровим градієнтом кожної комірки, а потім клацніть правою кнопкою миші, щоб вибрати Формат ячеек з контекстного меню в Формат ячеек у діалоговому вікні під Заповнювати вкладку, натисніть Ефекти заливки , див. знімок екрана:
2, в Ефекти заливки діалоговому вікні, виберіть два кольори, які ви хочете використовувати, із двох випадаючих списків Кольори а потім виберіть один із потрібних вам стилів затінення, наприклад горизонтальний, вертикальний тощо. Дивіться знімок екрана:
3. Потім натисніть OK > OK щоб закрити діалогові вікна, і колір градієнта заповнюється для кожної комірки, як показано на наступному знімку екрана:
Застосуйте градієнтний колір у кількох клітинках за допомогою коду VBA
Вищевказаний метод може допомогти нам забарвити градієнт в межах окремої комірки, якщо вам потрібно затінити градієнт кольору в декількох клітинках, вам потрібно застосувати код VBA для його вирішення.
1. Спочатку заповніть певний колір фону в діапазоні комірок.
2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
3. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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% та зменшує сотні клацань миші для вас щодня!