지나가다 글 적어 봅니다. 질문의 글 답변글에 채택을 해 주셨네요. 당연이 답변글이 도움이 되었으면 그 에대한 성의글과 더불어 님처럼 채택까지 해 주어야 되는걸로 아는데 실제로는 아무 반응이 없는게 현실이죠. 이 카페 질의 답변 게시판만 보더라도 채택은 보이지를 안는다는 ......아쉬운 부분이죠.
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부
첫댓글 정확한 양식의 형태를 올려주시면 좋은 답변이 있을거 같습니다.
2팀만 체크상자가 존재합니다. 1팀/2팀/3팀인지 구분이 없어 보입니다.
네 다시올리겠습니다
지나가다 글 적어 봅니다.
질문의 글 답변글에 채택을 해 주셨네요.
당연이 답변글이 도움이 되었으면 그 에대한 성의글과 더불어 님처럼 채택까지 해 주어야 되는걸로 아는데 실제로는 아무 반응이 없는게 현실이죠.
이 카페 질의 답변 게시판만 보더라도 채택은 보이지를 안는다는 ......아쉬운 부분이죠.
@남쪽 감사합니다. 남쪽님 ^^
안되거나 막히는 부분을 재 질문을 해주시면 정성껏 답변해 드리겠습니다. ^^
네감사합니다
실행하기 버튼의 역할과 어떤 명령어를 샐행하는지 궁금합니다.
초보라 자ㅔ세한 설명좀 부탁드립니다. 감사합니다
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부
감사합니다.....
다시한번 해보고 않되면 문의 드리겠습니다.
감사합미다,