-
특정 글자색 추려내기VB(A) 2019. 3. 16. 15:39
여러 색깔의 글자가 있고
이 중 특정 글자색만 추려내는 내용입니다.
Option Explicit '선언하지 않은 변수를 사용 못합니다Option Base 1 '배열을 1부터 시작합니다Sub GetColor()Dim AllColor As RangeDim SingleRange As RangeDim C As VariantDim v() As StringDim i As IntegerRange("C1").CurrentRegion.Offset(1).Clear '기존 자료 삭제Set AllColor = Range("A2", Cells(Rows.Count, 1).End(xlUp)) 'A열을 순환합니다'원하는 글자색이 있는 셀을 지정합니다. 취소를 누를 경우 매크로를 종료합니다.On Error GoTo jC = Application.InputBox("필터링 할 글자색이 있는 셀을 선택하세요", Title:="셀 선택", Type:=8).Font.ColorFor Each SingleRange In AllColor'원하는 글자색을 배열에 삽입합니다With SingleRangeIf .Font.Color = C Theni = i + 1ReDim Preserve v(i)v(i) = .Value2End IfEnd WithNext'출력물의 글자색을 변경합니다.Range("C2").Resize(UBound(v)) = Application.Transpose(v)Range("C1").CurrentRegion.Font.Color = Cj:End Subcs 'VB(A)' 카테고리의 다른 글
공급업체별 제품명 출력하기 (2) 2019.03.17 한 셀에서 중복제거후 정렬 (0) 2019.03.17 같은 글자색의 숫자 더하기 (0) 2019.03.15 시트명을 입력하면 해당 시트로 이동 (0) 2019.03.12 [정규식] 문자 숫자 섞여있는 셀에서 숫자만 더하기 (3) 2019.02.26 댓글