Note: The other languages of the website are Google-translated. Back to English

여러 셀에 색상 그라디언트를 적용하는 방법은 무엇입니까?

Excel에서 배경색을 셀 또는 여러 셀로 쉽게 채울 수 있지만 때로는 다음 스크린 샷과 같이 색상을 채우기 그라디언트가 필요합니다. 셀 또는 Excel의 여러 셀에서 색상 그라디언트를 어떻게 얻을 수 있습니까?

하나의 셀에 대한 색상 그라디언트 여러 셀에 걸친 색상 그라디언트
문서 색상 그라디언트 1 문서 색상 그라디언트 2

셀 서식 기능을 사용하여 하나의 셀에 그라디언트 색상 적용

VBA 코드로 여러 셀에 그라디언트 색상 적용


화살표 블루 오른쪽 거품 셀 서식 기능을 사용하여 하나의 셀에 그라디언트 색상 적용

Excel에서 셀 서식 기능을 사용하면 하나의 셀에 색 그라데이션을 채우는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 각 셀마다 색상 그라데이션으로 채우려는 셀을 하나 또는 여러 개 선택한 다음 마우스 오른쪽 단추를 클릭하여 선택합니다. 셀 서식 상황에 맞는 메뉴에서 셀 서식 대화 상자에서 작성 탭을 클릭하십시오 채우기 효과 버튼, 스크린 샷 참조 :

문서 색상 그라디언트 3

2. 에서 채우기 효과 대화 상자의 두 드롭 다운 목록에서 사용할 두 가지 색상을 선택합니다. 색상 섹션을 클릭 한 다음 가로, 세로 등과 같은 원하는 음영 스타일을 선택합니다. 스크린 샷보기 :

문서 색상 그라디언트 4

3. 그런 다음 OK > OK 대화 상자를 닫고 다음 스크린 샷과 같이 각 셀에 대해 그라디언트 색상이 채워집니다.

문서 색상 그라디언트 5


화살표 블루 오른쪽 거품 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 키를 눌러이 코드를 실행하면 그라디언트 색상을 채우려는 색상 셀을 선택하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

 

문서 색상 그라디언트 6

5. 그런 다음 OK 버튼을 누르면 여러 셀 내의 색상이 그라디언트 색상으로 표시됩니다. 스크린 샷 참조 :

 

문서 색상 그라디언트 7


최고의 사무 생산성 도구

Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 향상시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300 개 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에 쉽게 배포 할 수 있습니다. 전체 기능 30 일 무료 평가판. 60 일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50 % 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (21)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그라디언트가 왼쪽에서 오른쪽으로 이동하도록 하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 션
색상 그라디언트를 왼쪽에서 오른쪽으로 적용하려면 다음 VBA 코드를 사용하십시오.

하위 색상 그라디언트multiplecells()
범위로 Dim xRg
Dim xTxt를 문자열로
xCell을 범위로 흐리게 처리
Dim xColor As Long
흐릿한 I As Long
딤케이 애즈롱
Dim xCount As Long
오류에 대한 다음 재개
ActiveWindow.RangeSelection.Count > 1이면
xTxt = ActiveWindow.RangeSelection.AddressLocal
다른
xTxt = ActiveSheet.UsedRange.AddressLocal
END IF
L입력:
xRg 설정 = Application.InputBox("셀 범위를 선택하십시오:", "Kutools for Excel", xTxt, , , , 8)
xRg가 아무것도 없으면 Sub를 종료하십시오.
xRg.Areas.Count > 1이면
MsgBox "여러 선택을 지원하지 않습니다", vbInformation, "Kutools for Excel"
GoTo L입력
END IF
오류에 대한 다음 재개
Application.ScreenUpdating = False
xCount = xRg.Columns.Count
K = 1의 경우 xRg.Rows.Count까지
xColor = xRg.Cells(K, 1).Interior.Color
I = xCount에서 1단계로 -1의 경우
xRg.Cells(K, I).Interior.Color = xColor
xRg.Cells(K, I).Interior.TintAndShade = (xCount - (I - 1)) / xCount
다음
다음
최종 하위

도움이 되기를 바랍니다. 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
왼쪽 위에서 오른쪽 아래로 그라디언트를 원하면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
위에서 아래로 그라디언트를 수행하는 코드를 게시할 수 있습니까? 정말 감사하겠습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
상단의 가장 어두운 음영에서 하단의 더 밝은 음영까지의 코드도 필요합니다. :(
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 로라
작업을 해결하려면 다음 코드를 적용하십시오.

하위 색상 그라디언트multiplecells()

'Updateby Extendoffcie

범위로 Dim xRg

Dim xTxt를 문자열로

xCell을 범위로 흐리게 처리

Dim xColor As Long

흐릿한 I As Long

딤케이 애즈롱

Dim xCount As Long

오류에 대한 다음 재개

ActiveWindow.RangeSelection.Count > 1이면

xTxt = ActiveWindow.RangeSelection.AddressLocal

다른

xTxt = ActiveSheet.UsedRange.AddressLocal

END IF

L입력:

xRg 설정 = Application.InputBox("셀 범위를 선택하십시오:", "Kutools for Excel", xTxt, , , , 8)

xRg가 아무것도 없으면 Sub를 종료하십시오.

xRg.Areas.Count > 1이면

MsgBox "여러 선택을 지원하지 않습니다", vbInformation, "Kutools for Excel"

GoTo L입력

END IF

오류에 대한 다음 재개

Application.ScreenUpdating = False

xCount = xRg.Rows.Count

K = 1의 경우 xRg.Columns.Count까지

xColor = xRg.Cells(1, K).Interior.Color

I = xCount에서 1단계로 -1의 경우

xRg.Cells(I, K).Interior.Color = xColor

xRg.Cells(I, K).Interior.TintAndShade = I / xCount

다음

다음

최종 하위

시도해보십시오. 도움이 되길 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
오른쪽에서 왼쪽으로 이동하는 코드를 어떻게 만들 수 있습니까? 미리 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 애슐리,
오른쪽에서 왼쪽으로 색상 그라디언트를 만들려면 다음 vba 코드가 도움이 될 수 있으므로 시도해 보십시오.

하위 색상 그라디언트multiplecells()
범위로 Dim xRg
Dim xTxt를 문자열로
xCell을 범위로 흐리게 처리
Dim xColor As Long
흐릿한 I As Long
딤케이 애즈롱
Dim xCount As Long
오류에 대한 다음 재개
ActiveWindow.RangeSelection.Count > 1이면
xTxt = ActiveWindow.RangeSelection.AddressLocal
다른
xTxt = ActiveSheet.UsedRange.AddressLocal
END IF
L입력:
xRg 설정 = Application.InputBox("셀 범위를 선택하십시오:", "Kutools for Excel", xTxt, , , , 8)
xRg가 아무것도 없으면 Sub를 종료하십시오.
xRg.Areas.Count > 1이면
MsgBox "여러 선택을 지원하지 않습니다", vbInformation, "Kutools for Excel"
GoTo L입력
END IF
오류에 대한 다음 재개
Application.ScreenUpdating = False
xCount = xRg.Columns.Count
K = 1의 경우 xRg.Rows.Count까지
xColor = xRg.Cells(K, 1).Interior.Color
I = xCount에서 1단계로 -1의 경우
xRg.Cells(K, I).Interior.Color = xColor
xRg.Cells(K, I).Interior.TintAndShade = I / xCount
다음
다음
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 그래디언트를 수행할 수 있지만 왼쪽 하단에서 오른쪽 상단으로 이동합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이봐, 나는 VBA 코드에 익숙하지 않습니다. 코드에서 다른 색상을 어떻게 설정합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 폴
다른 색을 설정하고 싶다면 셀에 원하는 색을 채우고 이 글에서 위의 코드를 적용하면 된다.
시도하십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사해요! 효과가있다 :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
흑백 색상이 그라디언트를 대체하는 이유
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Piyaphan님.
위의 코드는 내 워크시트에서 잘 작동합니다. 어떤 Excel 버전을 사용하십니까?
또는 문제를 더 자세히 설명할 수 있습니다.
감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요! 나는 같은 문제가 있습니다. 그라디언트의 색상을 선택하지만 코드를 적용하면 검정색에서 흰색 그라디언트로 바뀝니다. 도움이 되셨나요?? 감사해요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 노란색에서 빨간색으로 어떻게 갈 수 있습니까(예를 들어)? 흰색에서 다른 색상으로만 작동합니다. 나는 왼쪽에서 오른쪽으로 코드로 작업합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 재스민입니다.
죄송합니다. 이 코드는 한 가지 색상에만 적용되며, 왼쪽에서 꽉찬 그라데이션으로 채우고 싶다면 아래 댓글에 해결 방법이 있으니 확인해주세요.
감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이것을 1에서 5와 같은 범위에 적용할 수 있습니까? 셀에 숫자가 있고 5가 가장 어두운 셀에 있습니까?

Kutools는 위와 약간 유사하지만 숫자 행을 척도로 정렬할 수 있습니까? 설명에 능숙하지 않습니다. 1에서 5까지의 척도로 설문조사에 응답한 다음 1, 2의 응답 비율을 보여주는 그래픽으로 질문당 하나의 막대를 표시합니다. 3% 4's, 5% 5's 1% 10's 및 2% 15's , 3% 50's 그러나 수평 막대에 색상의 그라디언트를 표시합니다(4가지 색상인 경우 더 좋음).

고마워요, 고르드
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, VBA 코드 복사를 시도했지만 실행하려고 하면 '컴파일 오류: 잘못된 외부 프로시저'라는 메시지가 계속 표시됩니다....


이 문제를 어떻게 해결합니까 ??


감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이것을 1에서 5와 같은 범위에 적용할 수 있습니까? 셀에 숫자가 있고 5가 가장 어두운 셀에 있습니까?
Kutools는 위와 약간 유사하지만 숫자 행을 척도로 정렬할 수 있습니까? 설명에 능숙하지 않습니다. 1에서 5까지의 척도로 설문조사에 응답한 다음 1, 2의 응답 비율을 보여주는 그래픽으로 질문당 하나의 막대를 표시합니다. 3% 4's, 5% 5's 1% 10's 및 2% 15's , 3% 50's 그러나 수평 막대에 색상의 그라디언트를 표시합니다(4개의 색상인 경우 더 좋음).
고마워요, 고르드
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이 공식을 두 가지 색상에 적용하려면 어떻게 해야 하나요? 위의 솔루션을 볼 수 없습니다. 제발
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치