2015-02-05 1 views
0

이것은 아마도 가장 간단한 일이라고 확신하지만, 저는 이것으로 인해 혼란 스럽습니다.수식에 VBA 삽입 '

나는이 VBA에 다음 코드 :

For j = 0 To n 
    For i = 0 To 11 
     Dim y As Integer 
     y = Sheets("Checking").Cells(3 + j, 4 + (i * 4)).Value 
     Sheets("Checking").Cells(3 + j, 5 + (i * 4)).FormulaR1C1 = "=VLookup(A" & 3 + j & ",PPG," & y + 1 & ",0)" 
    Next i 
Next j 

이 내가 그것을 엑셀로 VLOOKUP 수식을 삽입 할 때, 그러나 그것은 = VLOOKUP ('A3', PPG으로 나오고, 그것이 무엇을해야하는지 않습니다, 2,0). 셀 참조 주위에 작은 따옴표를 사용하십시오.

왜이 작업을 수행하며 어떻게 해결할 수 있습니까?

답변

1

.FormulaR1C1 대신 .Formula을 사용하십시오. 후자는 디자인에 따라 관찰하고있는 동작을 보여줍니다. 당신은 VBA를 사용하고 있기 때문에

+0

하나님 젠장! 나는 어리 석다는 것을 알았다. 고맙습니다! – Moogle

0

나는 모든 워크 시트를 방지하기 위해 선호하는 것 :

Sub M_snb() 
sn = [PPG] 
sp = [PPG].Columns(1) 

For j = 0 To n 
    For jj = 0 To 11 
    With Sheets("Checking").Cells(3 + j, 5 + (jj * 4)) 
     .Value = sn(Application.Match(Cells(j + 3, 1), sp, 0), .Offset(, -1).Value) 
    End With 
    Next 
Next 
End Sub