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

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

다른시트의 도형색깔 바꾸기

조회 수 6574 추천 수 0 2010.05.03 16:48:29

엑셀에서 여러가지 시트가 있는데여~

 

그 안에서 하나의 도형을 클릭했을때 도형의 색깔이 자동으로 바뀌고..

 

다른시트의 도형색깔도 함께 바꿔보려고 하는데여..

 

ㅠㅠ 잘안되네여 어떻게 하면 되나여?

 

Sub PSB01C_Click()
If (a = 0) Then
    b = 1
  
     
      ActiveSheet.Shapes("도형1").Fill.ForeColor.RGB = 210
      ActiveSheet.Shapes('sheet2'!"도형2").Fill.ForeColor.RGB = 210
      Application.Wait (Now + TimeValue("00:00:02"))
      Range("ce9").Value = b
   
    a = 1
ElseIf (a = 1) Then
b = 0
Range("ce9").Value = b
      ActiveSheet.Shapes("도형1").Fill.ForeColor.RGB = 0
      ActiveSheet.Shapes('sheet2'!"도형2").Fill.ForeColor.RGB = 0    

       Application.Wait (Now + TimeValue("00:00:02"))
      Range("ce9").Value = b
     
a = 0

End If
End Sub

 

그리고 현재 lookup을 사용해서 하나의 내용을 다른 시트로 연결시키려고 하는데

 

그것또한 오류가 나는건지 분명 내용이 틀리지는 않은것 같은데 자꾸 안되네여...ㅠㅠ

 

알려주세여~!!


댓글 '3'

profile

[레벨:30]아별

2010.05.03 23:09:08
*.75.228.207

굿! 이브닝입니다.

 

LOOKUP함수는 한개의 행 또는 열만 대상을 할 수 있고,

정렬된 상태여만 올바른 값을 구해주기 때문에.. 잘 사용하지 않습니다. 개인적으로 쓰레기라고.. 쿨럭.. ^.^;;

VLOOKUP을 사용하세요.

=VLOOKUP(1,$B$6:$C$9,2,0)

 

참고로.. 서울을 못 찾는 이유는

LOOKUP(lookup_value,lookup_vector,result_vector)

와 같은 구조에서 , lookup_vector부분인, 1, 0, 0,0 라는 값이 오름차순으로 정렬되어 있지 않기 때문입니다.

도움말에는 아래와 같은 경고 문구가 있지요.

lookup_vector의 값은 ...,-2, -1, 0, 1, 2, ..., A-Z, FALSE, TRUE처럼 반드시 오름차순으로 정렬해야 합니다. 그렇게 하지 않으면 정확한 값을 구하지 못할 수도 있습니다. 대/소문자는 구분하지 않습니다.

 

 -------------------------------------------------------------------------------------------------

그리고.. 본문에서 문의한신 코드는.. 논리적으로 문제가 있습니다.

ActiveSheet는 현재 시트입니다. 현재 시트 안에서 Sheet2의 도형에 접근할 수 없습니다.

ActiveSheet.Shapes('sheet2'!"도형2").Fill.ForeColor.RGB = 210

 

아래와 같이 접근하셔야합니다.

sheets("Sheet2").Shapes("도형2").Fill.ForeColor.RGB = 210

 

도움이 되셨기를.. ^^)/

[레벨:6]ryanoh

2010.05.04 09:37:20
*.239.74.58

천재님..사랑합니다...ㅠㅠ

profile

[레벨:30]아별

2010.05.07 14:27:41
*.75.228.246

도움이 되셨다니 다행입니다.

엑셀에 자꾸 빠져들죠.. emoticon

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 58228
821 엑셀일반 엑셀파일 비밀번호 단체 설정 가능한가요? [30] [레벨:4]쟈니 2012-06-18 55497
820 엑셀일반 회원만 질문을 올릴 수 있습니다. [레벨:30]아별 2010-09-21 34107
819 기타 [필독] 질문시.. 엑셀 파일 첨부, 윈도우버전과 엑셀버전 표기, 답변 받으면 피드백 댓글 꼭 달기.. [레벨:30]아별 2011-08-11 27406
818 엑셀일반 행높이 최대치 조절 가능할까요? _ Excel 사양 및 제한 [3] [레벨:6]파이스 2012-06-01 15847
817 엑셀 웹커리에서 URL 바꾸기 매크로 질문 [1] [레벨:1]밥사마 2009-09-01 14237
816 엑셀- sumif와 sumcol 혼용사용에 대해서 (급해요) [1] 아놔 2009-07-31 13582
815 엑셀일반 엑셀에서 사진 고정하는 방법 없을까요? [3] [레벨:3]빛의행운아 2012-07-30 13285
814 엑셀일반 csv import 관련 문의 [3] [레벨:1]지살 2016-02-23 12656
813 피벗테이블 피벗테이블에서 (비어있음)을 보이지 않게 할 수 있나요? file [레벨:1]농구경제박사 2016-02-25 11859
812 엑셀일반 엑셀 특정 자리 숫자 내림 올림 하는 방법이 뭔가요?? [레벨:1]키모스 2016-10-28 11620
811 엑셀수식 3차 방정식 풀기. [1] [레벨:3]rynoel 2012-06-13 11580
810 제가 해외 사우디에서 파일을 받았는데 글씨가 계속 깨짐니다. file [1] [레벨:0]홍콩중국홍콩 2010-05-10 11416
809 또 다시 질문이 있어서 왔습니다. (일자별 관리시트에서 이전 시트 값(전일 잔액 등) 자동 불러오기) file [1] [레벨:3]harcz 2010-05-22 11382
808 VBA 엑셀 일괄암호저장 imagefile [1] [레벨:1]천운 2017-03-13 11328
807 엑셀에서 지수값 계산하기 [1] [레벨:2]양다원 2009-07-21 11002
806 셀색깔별로 합계를 내고 싶습니다. file [1] [레벨:1]지민 2010-04-09 11000
805 VBA 추가기능 파일 수정 관련 file [1] [레벨:4]고수가되고파 2015-04-03 10986
804 VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select imagefile [1] [레벨:5]눈물바다 2009-08-27 10945
803 엑셀일반 셀 안에 삽입된 이미지의 정가운데(가로+세로)정렬 방법이 궁금합니다. [6] [레벨:6]파이스 2011-10-11 10818