체크된 인원만 표기방법

[학꽁치]

복사본 표기.xlsx

초보라 잘좀 부탁드립니다

이러헤게 될수있는 방법좀 부탁드립니다

감사합니다,

첨부파일첨부된 파일이 2개 있습니다.

• xlsx 파일 표기.xlsx 다운로드
• xlsx 파일 복사본 표기.xlsx 다운로드

[최우성]

남쪽 감사합니다. 남쪽님 ^^

[최우성]

안되거나 막히는 부분을 재 질문을 해주시면 정성껏 답변해 드리겠습니다. ^^

[학꽁치]

네감사합니다
실행하기 버튼의 역할과 어떤 명령어를 샐행하는지 궁금합니다.
초보라 자ㅔ세한 설명좀 부탁드립니다. 감사합니다

[최우성]

ALT + F11을 누르시면 VBA 창이 열리고 거기에 실행할 내용을 미리 코딩해 놓은 거고요.
수식으로 처리하기가 다소 부담스러워서 VBA로 처리를 했으며 아울러 VBA 실행하기라는 단추에 연결을 해놓았습니다.
Sub 테스트()
Dim C As Range, rngS As Range, rngT As Range
Dim A()
Dim i As Integer

Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
Set rngS = Union(Range("F5:F8"), Range("H5:H8"), Range("J5:J8"))
Set rngT = Range("A" & Rows.Count).End(xlUp)

For Each C In rngS
If C.Value Then
ReDim Preserve A(i)
A(i) = C.Offset(0, -1)
i = i + 1
End If
Next C
~~ VBA부

[학꽁치]

감사합니다.....
다시한번 해보고 않되면 문의 드리겠습니다.
감사합미다,