문제는 코드의

Question

한 줄 내 응용 프로그램이 작동을 중지의 원인이되는 아포스트로피 - 나는 문제가 아포스트로피 (아마도 잘못된 탈출)와이라고 생각 : 나는 " '순서를 입력하려고

.Formula = "=IF(AND(" 'Criterion " & i & "'!" & cellAdress & ">=1;"'Criterion " & i & "'!" & cellAdress & "<=4);"'Criterion " & i & "'!" & cellAdress & ";0)" 

VBA는 자동으로 "and"사이에 공백을 넣어 후자를 주석으로 표시합니다. 무엇이 잘못 되었나요? 여기에서 탈출 캐릭터를 사용해야합니까? 그렇다면 코드 작성 방법. 1004 개체 정의 오류 응용 프로그램에 오류가 발생합니다.

감사합니다

Answer 1

당신이 따옴표, 그래서 같이 넣어 VBA에서 따옴표를 이스케이프 :

"" 

당신은 명시 적으로과 같이 큰 따옴표로 넣어 Chr(34)를 호출 할 수

을

Debug.Print "The following is in double quotes: " & _ 
    chr(34) & "Inside double quotes" & chr(34) 

Excel에서 다음 수식을 테스트 할 수 없었지만 작동해야한다고 생각합니다.

.Formula = "=IF(AND(""Criterion""" & i & "!" & cellAdress & _ 
    ">=1;""Criterion""" & i & "!" & cellAdress & "<=4);""Criterion""" & _ 
    i & "!" & cellAdress & ";0)"