자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

vba [vba] 두 영역에서 교차(중첩)하는 셀...

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 8,361회 작성일 20-09-08 00:12

본문

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


댓글목록

등록된 댓글이 없습니다.