vba [vba] 두 영역에서 교차(중첩)하는 셀...
페이지 정보
본문
Set rngs = Application.Intersect(Range([D6], [D38]), Selection) '// D6 ~ D38 셀중 선택한 셀이랑 포함되는셀
If rngs Is Nothing Then '// 포함되지 않으면
MsgBox "없습니다."
Else
If rngs.Count > 1 Then '// 1개 이상일경우
MsgBox "너무많은 셀을 선택하였습니다."
Else
MsgBox rngs.Address(0, 0) '// 셀주소를 메세지로...
End If
End If
- 이전글[vba] 서울스토어(seoulstore) 크롤링 / Dictionary, JsonConverter 20.09.08
- 다음글[vba] Collection을 활용한 중복값 없이 랜덤 추출하기 20.09.04
댓글목록
등록된 댓글이 없습니다.