2013-03-30 1 views
0
Dim n As Double 
n = Sh.Range("B10").Value 

Dim rate As Double 
rate = (datefin - datedepart)/n 

Cells(13, n + 3) = datefin 

For y = n - 1 To x Step -1 
Cells(13, y + 3) = datefin - rate 
datefin = datefin - rate 
Next y 

I가되는 (a rate에 따라 (사용자에 의해 주어진) n부터 뒤로 이동 Excel에서 세포로 값을 둔다 간단한 for 루프를 가질 또한 사용자가 지정한 값으로 계산).VBA, 어떻게 엑셀 수식 볼 수 있도록

내가 얻은 출력 값은 정확하지만 Excel에서 내 수식을 볼 수있게하고 싶습니다. 예를 들어 셀 D13을 누르면 내가 사용한 수식이 표시됩니다. 나는 ActiveCell.Formula 또는 ActiveCell.FormulaR1C1 함수로 시도했지만 n은 항상 특정 번호가 아니기 때문에 (따라서 특정 셀에서는) 내가 원하는 것을 실행하는 방법을 찾을 수 없습니다.

감사합니다.

는 개별 구성 요소가 실제로 스프레드 시트의 다른 셀에 포함되지 않은 그러나 경우, 셀에 수식을 첨부 할 .Formula를 사용하는 것이 일반적

답변

2

가 가장 잘 할 수있을거야 이다

같은
Cells(13, y + 3).Formula = "=" & format(datefin) & " - " & format(rate) 

datefin이 9이고 비율이 2 인 경우 수식이 "=9 - 2" 인 셀에 삽입됩니다.