2016-08-26 3 views
1

VBA 코드를 통해 수식을 특정 셀에 넣으려고합니다.VBA 코드에서 셀에 수식 추가

이 내 공식은 :

=CONCATENATE("SK-",IF(A5+1<1000,IF(A5+1>=10,CONCATENATE("0",A5+1),CONCATENATE("00",A5+1)),A5+1),"-",RIGHT(J8,LEN(J8)-2)) 

그리고 난 셀에 수식을 추가하고 싶지만, 내가 코드를 실행할 때 오류 1004가 나타납니다.

나는이 노력하고있어 :

Sheets("Sheet1").Select 
Range("J6").Formula = "=CONCATENATE('SK-',IF(A5+1<1000,IF(A5+1>=10,CONCATENATE('0',A5+1),CONCATENATE('00',A5+1)),A5+1),'-',RIGHT(J8,LEN(J8)-2))" 

어떤 질문 게시물 의견을!

+0

귀하의 문제는 공식 자체보다는에 넣어 당신의 방법입니다. 당신이 ("Sheet1의")를'시도 시트합니다. 범위 ("J6"). 공식 = "= TODAY()" '아무 문제 없어. 아마도 철자가 틀리거나 브래킷 등이 빠졌을 가능성이 높습니다. –

+0

@TimEdwards 수식이 시트에서 직접 수식을 올바르게 테스트하면 수식이 정상적으로 작동합니다. – TimeToCode

+0

내 컴퓨터에서는 작동하지 않습니다. 나는'''문자라고 생각합니다 .... –

답변

4

Sheets("Sheet1").Range("J6").Formula = "=CONCATENATE(""SK-"",IF(A5+1<1000,IF(A5+1>=10,CONCATENATE(""0"",A5+1),CONCATENATE(""00"",A5+1)),A5+1),""-"",RIGHT(J8,LEN(J8)-2))"

+0

오, 이제 코드가 작동하지만, 당신이 할 수 있다는 것을 몰랐습니다! 지원해 주셔서 감사합니다. – TimeToCode