1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

특정개체 수정 관련

VBA 조회 수 5554 추천 수 0 2015.04.02 17:11:39

업무 중에 답답한게 있어서 코드 수정 좀 부탁드리고쟈 이렇게 글을 올립니다. 

엑셀2010 32비트, 윈764비트 입니다.


아래코드는 매크를 실행하면 범위설정 대화상자가 뜨는데요.

범위를 설정하면 범위 안에 있는 개체가 선택되어집니다.

그런데 위 코드는 범위 안에 개체가 전부 들어가 있어야만 하는데요.

이런 것을 범위 안에 전부 들어와야만 선택이 되도록 하는 방법과 범위안에 일부라도 들어와도 선택이 되게끔 하는 것이죠.

그래서 매크로를 실행하면 나타나는 대화상자에 옵션단추가 두개(즉, 범위 일부, 범위 전부)가 있고

범위설정 할 수 있게 구성해서 사용자가 옵션단추를 선택하고 범위를 설정하게 하는 것이죠.

어떻게 수정하면 좋을런지요? 


Sub 선택영역개체선택()
   Dim MyShape As Object
   Dim rngSelect As Range
   Dim rngMySahpe As Range
   Dim rngSelectedCells As Range
   Dim arrShape() As Variant
   Dim W As Worksheet
   Dim i, j
   
   On Error Resume Next
   
   Set W = ActiveSheet

   i = W.Shapes.Count
   If i > 0 Then
       j = 1
       
       Set rngSelectedCells = Application.InputBox(Prompt:=i & " 개가 있습니다. 작업 하고자하는 범위를 선택하세요" _
, Title:="범위 선택", Type:=8)
       Application.ScreenUpdating = False

       ReDim arrShape(1 To i)

       For Each MyShape In W.Shapes
           Set rngMySahpe = MyShape.TopLeftCell

           Set rngSelect = Application.Intersect(rngSelectedCells, rngMySahpe)
           If Not rngSelect Is Nothing Then

               arrShape(j) = MyShape.Name
               j = j + 1

           End If
       Next MyShape

       If j > 1 Then
           ReDim Preserve arrShape(1 To j - 1)
           W.Shapes.Range(arrShape).Select
       End If

       Set rngMySahpe = Nothing
       Set rngSelect = Nothing
       Set rngSelectedCells = Nothing
       Set W = Nothing
       Erase arrShape

       If j > 1 Then
           MsgBox j - 1 & " 개 선택"
       End If
       
       Application.ScreenUpdating = True
   End If
End Sub


댓글 '5'

profile

[레벨:30]아별

2015.04.02 19:31:13
*.132.210.135

고수가 되고파님..


팁을 드리자면..


   '# 아래의 코드를..

   Set rngMySahpe = MyShape.TopLeftCell

   

   '# 아래처럼 바꾸세요..

   Set rngMySahpe = Range(MyShape.TopLeftCell, MyShape.BottomRightCell)


사용자가 선택한 셀과 rngMySahpe의 intersect한 셀의 갯수가 rngMySahpe의 셀의 갯수와 같으면 완전히 포함되는 것이고, 1보다 크고 rngMySahpe의 갯수보다 작으면 일부만 포함되는 것입니다.


그리고 rngMySahpe는 rngMyShape의 오타인것 같네요.. 타이핑할때마다 헷갈립니다. ^_^;;


도움이 되셨기를..

[레벨:4]고수가되고파

2015.04.03 16:47:42
*.156.90.221

답변 감사합니다.

그런데,  셀의 범위를 좌에서 우, 위에서 아래 그리고 우에서 좌, 밑에서 위로 설정해도 똑  같은데요.


profile

[레벨:30]아별

2015.04.06 09:49:10
*.132.210.135

무슨 말씀이신지 잘 모르겠습니다.

셀을 선택하는 방향은 상관이 없을텐데요..

선택된 셀들 안에 도형 전체가 들어갔는지, 일부가 들어갔는지를 알고 싶으신것이 아닌가요?

이런 코드의 목적이 무엇인지도 잘 모르겠습니다.


무엇을 하고 싶으신건가요?

[레벨:4]고수가되고파

2015.04.06 11:15:04
*.156.90.221

네 맞습니다. 선택된 셀들 안에 도형 전체가 들어갔는지, 일부가 들어갔는지를 알고 싶은 것입니다.

님께서 말씀하신 대로 코드를 수정해도 셀들안에 도형 전체가 들어가든 아니면 일부가 들어가던 도형 전체가 선택이 됩니다.

profile

[레벨:30]아별

2015.04.06 19:51:41
*.132.210.135

제가 답변 드린 것은,

문제 해결을 위한 가이드일뿐입니다. "팁"을 드린 것이지요..

도형 전체가 포함되었는지를 체크하려면 TopLeftCell뿐만아니라 BottomRightCell도 같이 체크해야한다는 "팁"을 드린겁니다.

위 팁을 응용하시면 문제 해결에 한발짝 더 접근할거라 생각했습니다.


제가 드린 팁을 바탕으로 한번 더 고민을 해보시고..

수정하신 코드를 다시 한번 올려주세요.. 그럼 제가 그것을 보고 다시 수정할 방향을 알려드겠습니다.

그렇게 접근하는게 공부하시는데 더 도움이 될 것 같습니다.


혹시라도, 

공부하실 생각이 없으시다면 유료로 엑셀 솔루션을 개발해주는 곳을 소개해드리겠습니다.


도움이 되셨기를..

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 39661
802 VBA 추가기능 파일 수정 관련 file [1] [레벨:4]고수가되고파 2015-04-03 7144
» VBA 특정개체 수정 관련 [5] [레벨:4]고수가되고파 2015-04-02 5554
800 VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결 file [레벨:1]speena 2015-03-11 4714
799 엑셀일반 안녕하세요? 엑셀 데이터 정렬 질문있습니다. file [2] [레벨:5]정화 2015-03-03 4546
798 엑셀수식 엑셀 수식 질문드립니다._ 2가지 조건을 만족하는 값 찾기(VLOOKUP, MATCH) secret [3] [레벨:0]대성 2015-02-26 8
797 엑셀일반 혹시 입력된 데이터숫자 사이에 - << 이걸 집어 넣을수 잇나요? [1] [레벨:1]월계몽키 2015-02-24 3171
796 VBA 엑셀 내용에서 영어만 모두 제거할 수 있을까요?? [1] [레벨:1]초보배움 2015-02-20 4211
795 기타 엑셀 문의 드립니다. secret [2] [레벨:0]대성 2015-02-06 6
794 엑셀일반 최대값, 최소값 범위 지정 file [레벨:3]읍내꽃미남 2015-01-20 3728
793 VBA 오늘도 질문!^^있습니다. [레벨:2]정용규 2015-01-19 3247
792 엑셀일반 엑셀로 출력시 출력물이 깨지는 데에 대한 문의.... imagefile [레벨:1]하룽아비 2015-01-18 3931
791 엑셀수식 랭킹 구하는 함수 질문 file [레벨:5]눈물바다 2015-01-15 2302
790 엑셀일반 일련번호의 중간 값만 올리는 함수가 궁금합니다. file [2] [레벨:1]man날 2015-01-14 3041
789 VBA 몇가지 질문들 [8] [레벨:2]정용규 2015-01-13 2897
788 VBA 특정색 행 삭제 메크로 배워보고 싶습니다~ imagefile [2] [레벨:1]굿한넘 2015-01-12 4470
787 엑셀일반 한가지 질문요 [레벨:1]싸이킥 2015-01-10 2776
786 VBA 엑셀 메모의 배경으로 삽입한 이미지 추출하기 file [레벨:2]이런젬젬 2015-01-06 3710
785 엑셀일반 칸에 맞게 붙여넣기 하는법이 궁금해요! imagefile [1] [레벨:1]냠냠이 2015-01-04 2782
784 VBA vba로 서식정렬 [4] [레벨:2]정용규 2015-01-03 3618
783 엑셀일반 메크로 관련 질문입니다!! [1] [레벨:1]럭셔리홍 2014-12-05 3653