excel - 列の値が変更されたときに特定のセルを更新する

Question

私は、データの列が一番下のセルへの最新のエントリを更新する方法を作成することを任されています。より具体的には、今年の各月のローン ポートフォリオの金額が入力され、最新のエントリも列の下部に表示される必要があります。これが私が最初に思いついたものですが、これは底の前の最後のエントリでは機能しません.

Private Sub Worksheet_Change(ByVal Target As Range)

xC = 0

yC = 7

If (Target.Column = 3) Then

Do

prevInt = currentInt

currentInt = Sheet1.Cells(yC, 3).Value

If (currentInt = 0) Then

Sheet1.Cells(19, 3).Value = prevInt

xC = 1

End If

yC = yC + 1

    Loop Until xC = 1

    End If

End Sub

Answer 1

12月でない限り、最新の月の合計の下のセルは常に空白になると思います。そうしないと、最新のものをどのように知ることができるかわかりません。

Public Sub SetTotalCellValue()
Const portfolioColumn As Integer = 3
Const endRow As Integer = 14 'row of "total" cell

Dim sheet As Worksheet
Dim rowCount As Integer
Dim val As Object

rowCount = 2 'start at January, skip header row

'Set sheet = some sheet

'find last empty cell
For a = 1 To endRow
If sheet.Cells(a, portfolioColumn).Value = Empty Then
   sheet.Cells(endRow, portfolioColumn).Value = sheet.Cells(a - 1, portfolioColumn).Value
Exit For
ElseIf a = endRow - 1 Then
  sheet.Cells(endRow, portfolioColumn).Value = sheet.Cells(a, portfolioColumn).Value
Exit For
End If

Next a

End Sub