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

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

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

글 수 113

특정값이 변경될 경우 매크로실행 또는 0이 아닐경우 실행

VBA 조회 수 9162 추천 수 0 2014.10.24 10:26:56
[레벨:3]jmsynn *.163.60.21

안녕하세요 아별님~

오랫만에 찾아왔습니다.

 

요즘 VBA에 관심이 많아 이것저것 하던중.. (정식으로 공부를 시작하진 않았습니다..ㅠㅠ)

아래와 같은 난관에 봉착하여 아별님의 큰 은총을 받고자 질문을 드립니다.

 

일단, 해당 시트의 특정 Range 의 값이 변경될 경우(직접변경), 매크로가 자동실행되도록 짜보았습니다.

하지만, 해당 값이 다른시트의 값을 참조하는 경우 변경으로 보지 않아 매크로가 실행되지 않더라구요..

 

질문 1. 다른시트의 값을 참조하여 값이 변경된 경우에도 매크로가 자동실행되도록 가능한지..

 

질문 2. 안된다면... 특정 셀의 값이 0이 아닐경우, 자동으로 매크로가 실행되도록 가능한지..

 

 

위의 두가지입니다.

 

부탁드리겠습니다! ^^

 

 

http://www.evernote.com/l/ACdkhz0XAkZIQIs9DoproV92cvayVqHPtnc/

 

 

회사내 보안으로 첨부파일은 Evernote 링크로 대체하였습니다.

 

안보일...까요?; ㅠㅠ

이 게시물을...
엮인글 :
http://abyul.com/zbxe/131993/faf/trackback
목록

댓글 '2'

profile

[레벨:30]아별

2014.10.24 16:42:30
*.132.210.135

jmsynn님 반갑습니다. ^^


아래처럼 Worksheet_Change대신에 Worksheet_Calculate를 사용하시고..


Private Sub Worksheet_Calculate()

    If Intersect(Target, Range("d5:e28")) Is Nothing Then Exit Sub

        Call 목표값찾기

End Sub


모듈에서는 목표값찾기를 아래처럼 특정 시트에서 동작하도록 수정해보세요..


Sub 목표값찾기()

    Dim sht As Worksheet

    Set sht = Sheets("참고")

    sht.Range("D34").GoalSeek Goal:=0, ChangingCell:=Range("D4")

    sht.Range("E58").GoalSeek Goal:=0, ChangingCell:=Range("e4")

End Sub


도움이 되셨기를..


[레벨:3]jmsynn

2014.10.27 16:17:00
*.163.60.21

아별님 답변 감사드려요..

말씀하신 것 처럼 수정해서 실행해보니 컴파일 오류가 뜨더라구요

내용 : 424 런타임 오류가 발생하였습니다. 개체가 필요합니다.

대상 : If Intersect(Target, Range("d5:e28")) Is Nothing Then



이부분 이예요.. 무슨 문제 일까욧?

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜sort 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 139430
33 VBA .Find 주소 검색기 이름중복검색 file [3] [레벨:1]최종원 2012-08-07 5579
32 VBA sub과function차이 [4] [레벨:2]snail0513 2012-08-07 4711
31 VBA [ XML PARSING ] 오픈 API 관련된 질문입니다. [3] [레벨:2]난호 2012-07-26 4966
30 VBA 조건문을 변수화 하는 방법 [2] [레벨:3]엑셀대단해 2012-07-23 9401
29 VBA 필터된 데이터 가져오기 시 문제점 [5] [레벨:3]엑셀대단해 2012-07-23 6313
28 VBA 시트와 차트에 따라 다른 함수 실행? [4] [레벨:3]고독한나그네 2012-07-14 4214
27 VBA [긴급] Range 범위 "A2:A10" -> 를 변수로 받게 하는 방법.. file [3] [레벨:1]마리너 2012-07-05 6681
26 VBA 셀에 맞춰 그림 삽입하기 [1] [레벨:5]눈물바다 2012-06-05 10638
25 VBA 도형에 회전에 관해서.... [5] [레벨:2]루이비나 2012-05-27 5668
24 VBA 데이터가 있을 경우 수식 넣기?? [4] [레벨:1]아우릭 2012-03-20 4762
23 VBA 데이터 수집 질문_01 입니다. file [2] [레벨:1]아우릭 2012-03-20 4527
22 VBA 오늘은 간단한 것 질문할께요 _ VBE 모듈, 유저폼 내보내기(Export) 방법 [4] [레벨:3]엑셀대단해 2012-03-05 5120
21 VBA 외부 어플리케이션 실행 & 유저폼 일괄 닫기 & 리본 메뉴 사용자 추가 탭 숨기거나 보이게 하는 방법 [7] [레벨:3]엑셀대단해 2012-02-08 6780
20 VBA 동적 데이터 교환 질문 [1] [레벨:3]바람 2011-12-27 4682
19 VBA 아별님 안녕하세요 질문이 하나 있습니다 ^^ file [3] [레벨:0]하이버리 2011-12-09 4627
18 VBA 랜덤 출력 관련 짧고 간결(?)한 3가지 질문입니다. _ 중복 없는 랜덤 패스워드 생성하는 방법.. [4] [레벨:6]파이스 2011-11-29 9118
17 VBA 갑자기 궁금해서 질문드리는건데요... _ VBA를 다른 오피스 프로그램에서 사용 가능한지..? [3] [레벨:6]파이스 2011-11-27 4987
16 VBA 2개의 시트를 비교하여 다른 부분을 찾아내는 프로시저 질문입니다! file [3] [레벨:6]파이스 2011-11-24 6747
15 VBA 아별님 안녕하세요? 파이스입니다. _ 엑셀창과 VBE창 창전환 쉽게 하는 방법 [3] [레벨:6]파이스 2011-11-23 5249
14 VBA 질문있습니다. 아뵬님. ㅠ _ 텍스트 박스 회전시키는 VBA 코드 [1] [레벨:6]ryanoh 2011-11-15 4637
목록
쓰기