• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




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

하나를하더라도최선을
2020.09.08 00:12 89 0

본문



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




댓글목록 0

등록된 댓글이 없습니다.