用於從新行條目填充表單的最後一行（最後一行）

Question

是否可以寫入一個宏，以便在原始數據工作表的新行條目上填充不同工作表上的表單？

Answer 1

下面是拷貝最後編輯從Data片進入Form片的例子。把下面的代碼到Data工作表中您的VBA項目：

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 

    Static objTargetCells As Object 
    Dim objTargetCell As Range 
    Dim strHeader As Variant 
    Dim objTargetSheet As Worksheet 
    Dim x As Long 

    Set objTargetSheet = Sheets("Form") 

    If objTargetCells Is Nothing Then 
     Set objTargetCells = CreateObject("Scripting.Dictionary") 
     x = 1 
     Do 
      strHeader = Target.Worksheet.Cells(1, x).Value 
      Set objTargetCell = objTargetSheet.Cells.Find(strHeader, , xlValues, xlWhole, xlByRows, xlNext, True, , False) 
      Set objTargetCells(strHeader) = objTargetCell.Offset(0, 1) 
      x = x + 1 
     Loop While Cells(1, x).Value <> "" 
    End If 

    With Target.Worksheet 
     If .Cells(1, Target.Column).Value <> "" And Target.Row <> 1 Then 
      x = 1 
      For Each strHeader In objTargetCells 
       objTargetCells(strHeader).Value = .Cells(Target.Row, x).Value 
       x = x + 1 
      Next 
      objTargetSheet.Cells.EntireColumn.AutoFit 
     End If 
    End With 

End Sub 

這裏是Data工作表的樣子：

而且Form工作表：

的代碼每運行Data表單更改事件。第一次在Data圖紙上創建表格字段字典時，將其填入Form圖紙上相應目標單元格的引用。這些單元格可通過.Find方法找到，但您可以手動使用您的範圍硬編碼。