|
:: 게시판
:: 이전 게시판
|
- PGR21 관련된 질문 및 건의는 [건의 게시판]을 이용바랍니다.
- (2013년 3월 이전) 오래된 질문글은 [이전 질문 게시판]에 있습니다. 통합 규정을 준수해 주십시오. (2015.12.25.)
통합규정 1.3 이용안내 인용"Pgr은 '명문화된 삭제규정'이 반드시 필요하지 않은 분을 환영합니다.법 없이도 사는 사람, 남에게 상처를 주지 않으면서 같이 이야기 나눌 수 있는 분이면 좋겠습니다."
19/07/23 08:51
질문을 다시 확인하자면
표에 10~20 20~30 이 있고 데이터가 5 ,11이 있으면 표1 10~20 은 11이 있으니깐 음영이 들어가게되고 20~30은 그대로 있게 만들고 싶으신건가요?
19/07/23 09:16
(수정됨) 표를 만드셔서
데이터가 범위안에 들어가면 1 안들어가면 0이 도출되게 하신뒤 쭉 복사하시면 데이터 5의 경우 10~20안에 들어가니 1 20~30 에는 안들어가니 0 데이터 11의 경우 10~20안에 안들어가니 0 20~30안에 안들어가니 0 이렇게 표를 만드시면 범위 옆에 값이 0 1 0 1 0 0 0 이렇게 0또는 1이 쭉 나올거고 그걸 합치시면 데이터가 범위내에 있으면 양수 없으면 0이 됩니다. 그걸 가지고 셀에 if로 서식을 부여하시면 되겠습니다. countif 같은 함수 쓰셔도됩니다. 데이터들 범위안에 몇개 있느냐를 도출해서 마찬가지로 양수라면 있는거고 0이면 없는거고. 작업은 편한쪽으로 하시고 여튼간에 있으면 양수 없으면 0으로 만들어서 그 조건으로 셀에 서식을 부여하시면되겠습니다.
19/07/23 09:15
(수정됨) Option Explicit
Public Sub intShade() Dim i As Integer Dim lastRow As Integer Dim valueClass As Range lastRow = Cells(Rows.Count, "A").End(xlUp).Row ' "A" 부분은 음영을 넣을 데이터가 있는 열의 알파벳명 삽입 For i = 1 To lastRow Set valueClass = Cells(i, "A") ' "A" 부분은 음영을 넣을 데이터가 있는 열의 알파벳명 삽입 With valueClass Select Case .Value Case Is >= 100 ' 숫자는 원하는대로 삽입 .Interior.ColorIndex = 4 .Interior.TintAndShade = 0.8 Case Is >= 90 ' 숫자는 원하는대로 삽입 .Interior.ColorIndex = 4 .Interior.TintAndShade = 0.6 Case Is >= 80 ' 숫자는 원하는대로 삽입 .Interior.ColorIndex = 4 .Interior.TintAndShade = 0.4 Case Is >= 70 ' 숫자는 원하는대로 삽입 .Interior.ColorIndex = 4 .Interior.TintAndShade = 0.2 Case Is >= 60 ' 숫자는 원하는대로 삽입 .Interior.ColorIndex = 4 .Interior.TintAndShade = 0 Case Is >= 50 ' 숫자는 원하는대로 삽입 .Interior.ColorIndex = 4 .Interior.TintAndShade = -0.2 Case Else ' 숫자는 원하는대로 삽입 .Interior.ColorIndex = 4 .Interior.TintAndShade = -0.4 End Select End With Next i End Sub
19/07/24 02:01
A3 ~ A7 에 다음같은 데이터가 있고
0~10 10~20 20~30 30~40 A10 ~ A12에 다음같은 데이터가 있을때 5 23 24 조건부서식 조건 수식을 아래처럼 하니까 한번에 되네요 =SUM(IF(NUMBERVALUE(LEFT($A3,FIND("~",$A3)-1))<=$A$10:$A$12,1,0)*IF(NUMBERVALUE(RIGHT($A3,LEN($A3)-FIND("~",$A3)))>$A$10:$A$12,1,0))
|
||||||||||