[vba] 두 영역에서 교차(중첩)하는 셀...
하나를하더라도최선을
2020-09-08 00:12:44
45,078
0
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