新しい「固定」値の行をテーブルに追加する方法

Question

私は個人的な月次財務のためのExcelスプレッドシートを作成しています。私の質問は、押されたときにテーブルの下部に固定行を追加するActiveXボタンを作成できますか？

表は次のようになります。上記の表の一番下に =TODAY() Rent $440.00 Checking(NF)：

Date   Description Amount  Account 
10/2/2017 Rent   $440.00 Checking(NF) 
10/3/2017 Groceries     Checking(TD) 
10/3/2017 Transfer  $140.00 Checking(NF) 
10/3/2017 Transfer  ($140.00) Credit Card(NF) 

私は固定の行を追加するために探していました。

ありがとうございました。

Answer 1

次のコードを使用してください。あなたはピボットでシートにコマンドボタンを追加し、次のコードでボタンを関連付けることができます：

Sub FindTableLastRow() 
Dim wb As Workbook 
Dim ws As Worksheet 
Dim tbl As ListObject 
Dim lRow As Long 
Dim startCol As String * 1 
Dim AddressArr() As String 

Set wb = ThisWorkbook 
Set ws = wb.Sheets(2) 'Adjust this to your sheet name with the table in. 
Set tbl = ws.ListObjects("Table1") 'Adjust to your table name 

AddressArr = Split(tbl.Range.Address, "$") 
startCol = AddressArr(1) 
lRow = AddressArr(4) 

ws.Cells(lRow + 1, startCol).FormulaR1C1 = Format(Date, "\ dd\/mm\/yyyy\") 
ws.Cells(lRow + 1, startCol).Offset(0, 1).Value = "Rent" 
ws.Cells(lRow + 1, startCol).Offset(0, 2).Value = "$440.00" 
ws.Cells(lRow + 1, startCol).Offset(0, 3).Value = "Checking(NF)" 

End Sub 

ときにソート最古それは同様ピボットに最後に表示されますので、それが日付の文字列を返します。最新の日付列に移動します。