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

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

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

[레벨:30]아별

2014.10.24 16:42

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


도움이 되셨기를..


문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)