나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 dew (dewdrop)

추천:  2
파일:     통합 문서1(92)_Ans.xlsm (16.2KB) 조회:  1617
제목:   [RE]연결된 시트에서 셀 색깔까지
　 　 　
　 시트1과 시트2가 연결되어 있는데

텍스트 뿐만 아니라 셀 색상까지 연결할 수 방법이 있는지 궁금합니다.
==============[김우형님 글에 대한 답변입니다]==============
VBA(워크시트 이벤트함수) 예문입니다.... 
첨부화일 참고하세요

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target = "" Then Target.Clear: Exit Sub
    
    Dim sFormula() As String
    Dim rX As Range
    
    sFormula = Split(Mid(Target.Formula, 2), "!")
    Set rX = Worksheets(sFormula(0)).Range(sFormula(1))
    With Target
        .Interior.Color = rX.Interior.Color
        .Font.Name = rX.Font.Name
        .Font.Size = rX.Font.Size
        .Font.Bold = rX.Font.Bold
        .Font.Italic = rX.Font.Italic
    End With
End Sub
 		　
[불량 게시물 신고]  
김우형시트1에서 'TEST'의 해당 셀 색깔을 바꿔봤는데
시트2에서 'TEST'는 셀 색깔이 변하지 않는데요

셀 색상 변경하고 뭘 따로 해야하는 건가요?		02-08 (11:55)
ⓧ삭제 ■신고
dewWorksheet_Change 이벤트를 사용하고 있기 때문에, 시트2 에 링크되어 있는 셀에서 F2를 누르고 엔터하면 이벤트가 발생하여 반영됩니다.02-08 (15:09)
ⓧ삭제 ■신고
김우형지금까지 답변들 감사합니다.
한가지 궁금한게 생겼는데 데이터가 여러 개 있을 때는 하나하나 셀을 클릭하고 F2를 눌러줘야 하는데 

혹시 시트1에서 변경시 바로 바뀌거나
아니면 시트1에서 변경 후 시트2에서 전체 영역을 한번에
이벤트를 적용시키는 방법은 없을까요?		02-13 (09:24)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-02-07(12:36)
최종수정일 : 2019-02-07(12:36)
　


 ◎ 관련글
  제 목   작성자   날짜
연결된 시트에서 셀 색깔까지 김우형 2019-02-07
◎ [RE]연결된 시트에서 셀 색깔까지 dew 2019-02-07