For i = 2 To lastRow With ws.Cells(i, "C") .Value = ws.Cells(i, "A").Value & " " & ws.Cells(i, "B").Value .Characters(Start:=1, Length:=Len(ws.Cells(i, "A").Value)).Font.Color = RGB(0, 0, 0) .Characters(Start:=Len(ws.Cells(i, "A").Value) + 2, Length:=Len(ws.Cells(i, "B").Value)).Font.Color = RGB(0, 0, 255) End With Next i
이게 맞는지는 모르겠는데.조건부 서식거는게 맞는것 같고요. 작업하실 셀 전체 셀 선택 → 홈(조건부수식) → 새규칙 → ▶다음을 포함하는 셀만 서식 지정 → 특정텍스트 선택 → 포함 → 해당하는 텍스트 넣으시고요. 예시로 주신거로 예를 들면 09-22 입력 → 서식 → 색 선택하시면 → 해당 데이터의 글씨색이 바뀝니다. * 근데 이게 문제는 CONCATENATE 안에 합쳐진 텍스트에서는 부분변경이 안되네요!
말씀하신 내용에는 좀 더 맞는 내용은 윗 댓글분이랑 같아요!! 구글에 [엑셀] 매크로로 선택영역의 특정 문자만 색 변환하기 검색해보시면 나오는것 같아요~
첫댓글 함수로는 셀서식을 수정할 수 없는 것으로 압니다.
매크로 작업을 하신다면 값을 얻으실 수 있습니다.
간단한 매크로는 chat gpt를 통해서 만들어 보심이 좋을 듯 합니다.
Sub MergeColumnsAndColor()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim lastRow As Long
Dim i As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow
With ws.Cells(i, "C")
.Value = ws.Cells(i, "A").Value & " " & ws.Cells(i, "B").Value
.Characters(Start:=1, Length:=Len(ws.Cells(i, "A").Value)).Font.Color = RGB(0, 0, 0)
.Characters(Start:=Len(ws.Cells(i, "A").Value) + 2, Length:=Len(ws.Cells(i, "B").Value)).Font.Color = RGB(0, 0, 255)
End With
Next i
End Sub
@중생대 바쉬 이렇다고 gpt가 알려주네요.ㅎㅎ 살짝 엑셀에서 사용해 보니 잘 작동하는 듯 합니다.^^
@중생대 바쉬 해봐야겠지만 친절한 답변 감사합니다!^^
이게 맞는지는 모르겠는데.조건부 서식거는게 맞는것 같고요.
작업하실 셀 전체 셀 선택 → 홈(조건부수식) → 새규칙 → ▶다음을 포함하는 셀만 서식 지정 → 특정텍스트 선택 → 포함 → 해당하는 텍스트 넣으시고요. 예시로 주신거로 예를 들면 09-22 입력 → 서식 → 색 선택하시면 → 해당 데이터의 글씨색이 바뀝니다.
* 근데 이게 문제는 CONCATENATE 안에 합쳐진 텍스트에서는 부분변경이 안되네요!
말씀하신 내용에는 좀 더 맞는 내용은 윗 댓글분이랑 같아요!!
구글에 [엑셀] 매크로로 선택영역의 특정 문자만 색 변환하기 검색해보시면 나오는것 같아요~
감사합니다!