로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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")
도움이 되셨기를..
새 창으로
선택한 기호
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
도움이 되셨기를..