0
A
回答
0
下面是拷贝最后编辑从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
方法找到,但您可以手动使用您的范围硬编码。
相关问题
- 1. 取表最新的条目。最后一行数据库表
- 2. 单个更新一组ID的最后一行条目 - MySQL
- 3. 在动态列表周围填充相同的填充并从第一行和最后一行删除填充
- 4. 填充直到最后一个空行或下一个填充的单元格
- 5. 从最后一行到最后一行的粘贴公式
- 6. 用第二行到最后一行的数据更新最后一行
- 7. 最后一行
- 8. 用最后一个非空值填充空行值 - SQL表
- 9. COPY最后一行从WB1和最后一行WB2
- 10. 变量数组仅填充mysql表的最后一行
- 11. 自动填充动态范围最后一行和最后一列
- 12. MySQL不会更新表中最后一行的最后一个单元格
- 13. jQuery的:克隆最新行表 - 不是最后一排,最新
- 14. 范围内的最后一行 - 最后一行不是整个表格中的最后一行[解决]
- 15. 从最后一行更新datagridview
- 16. 从parse.com表中查询最后一行?
- 17. 在文件的最后一行之前追加三条新行
- 18. 表视图使用最后一个XML条目填充所有单元格iphone
- 19. 从一个表中获取第一行和最后一行
- 20. 禁用最后一行
- 21. 取最后一个填充的单元格在data.frame中的每一行R
- 22. UITableViewRowAnimationBottom不适用于最后一行
- 23. 最后一个唯一行
- 24. TextView填充动态切断文本的最后一行
- 25. Countif直到特定列中的最后一行填充
- 26. wkhtmltopdf是随机添加额外的填充到最后一行
- 27. 自动填充到列中的最后一行
- 28. MYSQL,返回单行JOIN中的第一行和最后一行
- 29. 用于交替行颜色的CSS条件语句(从最后一行开始?)
- 30. 让最后一个例外从最后一个powershell执行
是的,它可以用VBA完成。这个问题还有别的吗? – CallumDA
(请阅读[如何问](http://stackoverflow.com/help/how-to-ask))。 – BruceWayne
谢谢你们的回复,特别是如何在这个论坛上提出一个好问题的提示。特别是,因为这是我的第一个。为了解决你的问题@ CallumDA33,是的,我猜的问题还有更多。你能帮助VBA代码吗? –