利用 VBA实现当更新工作表单元格内容时,同工作簿下其他工作表相同位置单元格内容同步更新的方法。
方法/步骤1
-
1
单击菜单:工具-宏-Visual Basic编辑器或者按ALT+F11打开VBE编辑器。
-
2
鼠标左键双击“工程-VBAProject窗口”下的ThisWorkbook,弹出代码窗口。
-
3
在代码窗口,粘贴如下代码:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Integer, r As Integer, col As Integer
Application.EnableEvents = False
r = Target.Row
col = Target.Column
For i = 1 To Sheets.Count
If Sheets(i).Name <> Sh.Name Then Sheets(i).Cells(r, col).Value = Target.Value
Next
Application.EnableEvents = True
End Sub
END
经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。
作者声明:本篇经验系本人依照真实经历原创,未经许可,谢绝转载。
展开阅读全部
文章评论