다른 셀의 텍스트 색을 기반으로 한 셀의 텍스트 색을 변경하려고합니다.

-5

VBA 프로그램이 다른 셀의 텍스트 색을 기반으로 한 셀의 텍스트 색을 변경하고 싶습니다. 예 :다른 셀의 텍스트 색을 기반으로 한 셀의 텍스트 색을 변경하려고합니다.

셀 A1의 텍스트 색이 파란색 인 경우. B1 셀의 텍스트 색을 파란색으로 지정합니다.

수식이나 VBA 프로그램은 많은 수의 셀에 대해 동일한 작업을 수행해야하므로 도움이됩니다.

감사합니다.

2017-05-04 dpaun

'A1'이 파란색인지 결정합니다. 그런 식으로 당신에게 왔습니까, 아니면 아마도 조건부 포맷이 사용되었을 것입니까? 단지 A1과 B1 뿐인가? 또는'B' 열에 나타날 수있는 'A1'의 * 값 *? – BruceWayne

** 프로 팁 ** : "원하는"것으로 시작하는 게시물이 있고 그 안에 코드가 없으면 99 %의 시간을 무시합니다. 지금까지 해본 내용과 실행 한 어려움을 보여주십시오. 아직 아무 것도 시도하지 않았다면 Stack Overflow가이 질문의 장소가 아닙니다. –

Macro Man에 동의합니다. 직접 해보십시오. 오류 메시지가 나타나면이를 확인하십시오. 멈추었을 때 돌아와서 오류에 대해 질문하십시오. 이것이이 사이트에서 신속하게 답변을 얻는 방법입니다. – Mozahler

지정된 셀의 Font.Color 속성을 사용하십시오.

Range("B1").Font.Color = Range("A1").Font.Color

또한 변수를 재사용 할 수 있습니다.

Dim ColorTemplate As Long = Range("A1").Font.Color 
Range("B1").Font.Color = ColorTemplate 
Range("C1").Font.Color = ColorTemplate 
...

2017-05-04 14:31:01 Alexander

답변