|
 , Hit : 1242 |
|
|
||||
|
|||||
|
|
|
- File #1 : KSS_SAMPLE_2019_09_06.xlsm(33.0 KB), Download : 15 |
|
생각보다 시간이 좀 걸려서... 이제야 올립니다. 우선 펑션은 두개 생성했습니다. 현재셀에 해당하는 날짜를 구하는 get_Date_for_Cell() 그리고 자동차 쉬트의 이름들을 구하는 find_Names() get_Date_for_Cell은 현재 셀의 위치 기준 1행의 값으로 월을 구하고 년도는 임의로 2019로 지정을 했습니다. 그리고 일자는 현재 셀 위치의 행 - 1로 구했습니다. 이 부분은 위치에 따라서 조정이 필요할 수 있습니다. find_Names는 입력된 날짜를 자동차 쉬트의 C열에서 검색하여 해당행의 A열의 이름을 읽어오도록 했습니다. 다만 VBA의 검색이 현재 화면에 나타난 형태의 String값으로만 가능하여, 해당 필드의 표시 형식에 따라 function 내부의 로직 수정이 필요할 수 있습니다. 그리고 이름은 같은 날짜가 여러개 있을 경우를 고려하여 이름 사이에 줄바꿈(Chr(10))을 추가하여 표시하도록 하였습니다. 보시고 막히는 부분이나 궁금하신 부분 있으시면 덧글 남겨주시거나 쪽지 주세요. 아 그리고 말하는걸 까먹어서 추가 합니다. 자동차 쉬트의 만기날짜와 년시트의 각 일자 셀에 조건부 서식 추가해서 오늘 일자보다 큰 날짜는 배경색이 다르게 표시되도록 해 두었습니다. 추천:vendetta님이 게시물을 좋아합니다. 추천:roggy 추천:견지꾼님이 게시물을 좋아합니다. 추천:투덜섬님이 게시물을 좋아합니다. 추천:행님아님이 게시물을 좋아합니다. |
|
||||||||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
