는 - 우수한 라이브러리

객체가 내 코드에서 CheckBox9 값 라인에 는

오류가 필요한 클릭했습니다. 사용자가 여러 시트를 편집하는 동안 통합 문서에서 단일 시트에 대한 계산을 해제하고 싶습니다.

어디에서 오류인지 파악할 수 없습니다. 체크 박스의

Sheets("Sheet1").EnableCalculation = Not (Sheets("Sheet1").CheckBox9)

확인 이름 : 당신은 액티브 X를 찾을해야하는 경우

출처

2017-12-15 Ben Kowalsky

: 위의 댓글 대화에서 논의 된 바와 같이

는 워크 시트의 Shapes 컬렉션에서 당신의 체크 박스를 가져 오기? – JohnyL

체크 박스가 폼 컨트롤 인 경우 (ActiveX 기능이 필요하지 않은 경우 적극 권장합니다.) If Check ActiveSheet.Shapes ("체크 박스 9") ControlFormat.Value = 1' –

@ FernandoJ.Rivera는 If 문을 사용할 필요가 없으며 두 가지 브랜치는 반대의 부울 값을 할당합니다. 이것은 하나의 라이너가 될 수 있습니다. 예 : ControlFormat.Value' –

과 함께 전체 If 문을 교체 도와 주셔서 감사합니다 또는 작업 양식의 양식 컨트롤 eet. 액티브 체크 상자 또는 양식 -`CheckBox9`인가

Sheets("Sheet1").EnableCalculation = _ 
    Not (ActiveSheet.Shapes("Check Box 9").ControlFormat.Value)

출처

2017-12-15 18:34:49 ashleedawg

이 함수가 객체와 함께 지원되지 않는다고 말하는 오류가 나타납니다. –

확인란이 'CheckBox9'라고 확신합니까? – ashleedawg

this answer를 참조

Sub StopCalc() 

If CheckBox9.Value = True Then 
    Sheets("Sheet1").EnableCalculation = False 
    Else 
    Sheets("Sheet1").EnableCalculation = True 
    End If 

End Sub

출처

2017-12-15 20:27:58

는

답변

관련 문제