다른 필드에 계산 된 필드 값 저장

Question

계산 된 필드의 값을 다른 필드에 저장하고 싶습니다. (계산 된 필드 옆에있는 링크/단추를 클릭하는 것이 바람직 함). 이 버튼을 누를 때마다 계산 된 필드의 값이 이전에 저장된 삽입 아래의 필드에 삽입되어야합니다. 는 난이 A1에서

변수에 기초하여 값을 계산하는 공식은 센스 예

:-) 희망한다. 변수를 변경할 때마다 버튼을 클릭하여 결과를 A1에 저장할 수 있기를 원합니다 (예 : B1의 버튼). 버튼을 처음 클릭하면 결과가 C1에 저장됩니다. 다음에 버튼을 클릭하면 새로운 결과가 C2에 저장되어야합니다 (C1은 변경되지 않습니다). C3에서 세 번째 등등. 값을 저장하는 것은 적어도 통합 문서의 현재 "세션"에 저장되어 있어야합니다 (통합 문서를 닫을 때까지 의미). 이 같은

Answer 1

뭔가해야

덕분에 당신이 원하는 무엇을 : 당신은 전혀 아무것도 시도하지 않은 것처럼

Sub Button1_Click() 
    ' Get Value Cell (In first sheet cell A1) 
    Dim rA1 As Range 
    Set rA1 = ThisWorkbook.Sheets(1).Range("A1") 

    ' Get Top Cell In History (In first sheet cell C1) 
    Dim rC1 As Range 
    Set rC1 = ThisWorkbook.Sheets(1).Range("C1") 

    ' Is The Top Cell Empty, If Not Find First Empty Cell In Column 
    If (rC1.Value <> "") Then 
     ' If cell below C1 has a value then go to end of line of number 
     If (rC1.Offset(1).Value <> "") Then 
      Set rC1 = rC1.End(xlDown) 
     End If 

     ' Offset 1 cell to get empty cell 
     Set rC1 = rC1.Offset(1) 
    End If 

    ' Set Value of first blank to value cell 
    rC1.Value = rA1.Value 
End Sub