使用VBA用戶窗體更新活動行

Question

我加載用戶表單和編輯數據，當我點擊更新按鈕表的最後一行被更新，而不是我選擇的行

Private Sub UpdateExpenses_Click() 

ModifyTableRow ExpensesTable.ListRows(CurrentRow).Range 

UpdatePositionCaption 

End Sub 

Private Sub ModifyTableRow(TableRow As Range) 

With TableRow 

    .Cells(1, 1) = Calendar1.Value 
    .Cells(1, 2) = StaffName.Value 
    .Cells(1, 4) = SystemID.Value 
    .Cells(1, 6) = SystemAEnd.Value 
    .Cells(1, 7) = SystemBEnd.Value 
    .Cells(1, 3) = CircuitDesc.Value 
    .Cells(1, 9) = CircuitStatus.Value 
    .Cells(1, 10) = Comments.Value 
    .Cells(1, 8) = TypeofCircuit.Value 
    .Cells(1, 5) = ChannelNum.Value 



End With 

ChangeRecord.Max = ExpensesTable.ListRows.Count 

末次

對此代碼的任何幫助都會有很大的幫助

Answer 1

這個解決方案爲我

Option Explicit 
Private ExpensesTable As ListObject 
Private CurrentRow As Long 
Private WithEvent`enter code here`s Calendar1 As cCalendar 

Private Sub UpdateExpenses_Click() 
CurrentRow = ActiveCell.Row 
Cells(CurrentRow, 2) = Calendar1.Value 
Cells(CurrentRow, 3) = Me.StaffName.Value 
Cells(CurrentRow, 4) = Me.CircuitDesc.Value 
Cells(CurrentRow, 5) = Me.SystemID.Value 
Cells(CurrentRow, 6) = Me.ChannelNum.Value 
Cells(CurrentRow, 7) = Me.SystemAEnd.Value 
Cells(CurrentRow, 8) = Me.SystemBEnd.Value 
Cells(CurrentRow, 9) = Me.TypeofCircuit.Value 
Cells(CurrentRow, 10) = Me.CircuitStatus.Value 
Cells(CurrentRow, 11) = Me.Comments.Value 
Unload ExpensesForm 

End Sub 

Answer 2

試試這個來獲取當前表的活動行。發現here 最初由@Anand

回答

Sub FindRowNoInTable() 

Dim ObjSheet As Worksheet 
Dim startRow, ActiveRow, ActiveCol 
Dim ObjList As ListObject 
Set ObjSheet = ActiveSheet 
ActiveRow = ActiveCell.Row 
ActiveCol = ActiveCell.Column 
For Each ObjList In ObjSheet.ListObjects 
     Application.Goto ObjList.Range 
     startRow = ObjList.Range.Row 
Next 
Debug.Print (ActiveRow - startRow) 

End Sub 

然後把（ActiveRow - STARTROW）爲變量 「CurrentRow」