Jak zastosować gradient kolorów w wielu komórkach?
W programie Excel możemy łatwo wypełnić kolor tła do komórki lub wielu komórek, ale czasami potrzebujemy wypełnienia gradientu koloru, jak pokazano na zrzucie ekranu, w jaki sposób można uzyskać gradient koloru w komórce lub w wielu komórkach w programie Excel?
Gradient koloru do jednej komórki | Gradient koloru do wielu komórek |
Zastosuj kolor gradientu do jednej komórki za pomocą funkcji Formatuj komórki
Zastosuj kolor gradientu w wielu komórkach za pomocą kodu VBA
Zastosuj kolor gradientu do jednej komórki za pomocą funkcji Formatuj komórki
W programie Excel funkcja Formatuj komórki może pomóc w wypełnieniu gradientu koloru w jednej komórce, wykonaj następujące czynności:
1. Wybierz komórkę lub wiele komórek, które chcesz wypełnić gradientem koloru w każdej komórce, a następnie kliknij prawym przyciskiem myszy, aby wybrać Formatowanie komórek z menu kontekstowego w Formatowanie komórek okno dialogowe w obszarze Wypełniać Kliknij Efekty wypełnienia przycisk, zobacz zrzut ekranu:
2, w Efekty wypełnienia wybierz dwa kolory, których chcesz użyć, z dwóch rozwijanych list Kolory , a następnie wybierz jeden ze stylów cieniowania, na przykład poziomy, pionowy i tak dalej. Zobacz zrzut ekranu:
3. Następnie kliknij OK > OK aby zamknąć okna dialogowe, a kolor gradientu jest wypełniany dla każdej komórki, jak pokazano na poniższym zrzucie ekranu:
Zastosuj kolor gradientu w wielu komórkach za pomocą kodu VBA
Powyższa metoda może pomóc nam w uzyskaniu gradientu kolorów w obrębie pojedynczej komórki, jeśli chcesz zacienić gradient kolorów w wielu komórkach, musisz zastosować kod VBA, aby go rozwiązać.
1. Najpierw wypełnij określony kolor tła do zakresu komórek.
2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
3. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Zastosuj kolor gradientu w wielu komórkach:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okno zachęty przypominające o wybraniu kolorowych komórek, które chcesz wypełnić kolorem gradientu, zobacz zrzut ekranu:
5. A następnie kliknij OK przycisk, kolor w wielu komórkach został wyświetlony jako kolor gradientu, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!