테이블에 새로운 "고정 된"값 행을 추가하는 방법

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 

날짜 열에서 가장 최신 항목을 선택하십시오.