2012-08-27 189 views
1

您好我想通過確定每個值的變量插入公式到單元格中。excel vba - 使用變量插入公式

例如,

=G5/D5 

所以在電池

Sheets("Sheet1").cells(LastRow + 2, 2).value = "=columnletter1 + (lastrow + 2)/columnletter2 + (lastrow + 2) 

我找到columnletter爲G通過確定列名稱爲X,行LASTROW + 2 我怎麼寫,讓我得到「= G5/D5「回到了牢房?

回答

1

不知道如果我理解你的要求完全是,我想你的意思是:

columnletter1是一個字符串,= G
columnletter2是一個字符串,= D
lastrow是一個長期的,= 3

要設置公式,請構建一個字符串並寫入.Formula屬性

Sheets("Sheet1").cells(LastRow + 2, 2).Formula = _ 
    "=" & columnletter1 & lastrow + 2 & "/" & columnletter2 & lastrow + 2 
0

對於下面的矩陣計算,給定的代碼(包括帶有變量的公式)可能會有所幫助。

For ROW= 0 To K - 1 
    For COL= 0 To J - 1 
     Range("G5").Offset(ROW, COL).Select 
     ActiveCell.FormulaR1C1 = _ 
     "=SUMIFS(R2C5:R500C5,R2C4:R500C4,RC[" & -COL- 1 & "],R2C2:R500C2,R[" & -ROW- 3 & "]C,R2C3:R500C3,R[" & -ROW- 2 & "]C)" 

    Next 
    COL= COL + 1 

Next 
ROW= ROW + 1