自动将单元格范围转换为另一张图片上的图片并自动更新的excel

我想创build一个Excel工作簿,可以将表格上的单元格响应转换为另一个表格上的图片,并且可以在源表单上进行任何修改时自动更新图片。 我没有macros背景。

这是一个你可以适应的例子。 我们想要捕捉范围C3:F10的变化

这些是input变化而不是计算结果。

如果该块中的单元格发生更改,则将该块复制为图片,并将图片粘贴到单元格C5附近的Sheet3中

在工作表代码区域中插入以下事件macros:

Private Sub Worksheet_Change(ByVal Target As Range) Dim r1 As Range, r2 As Range, sv As Range Dim sh As Worksheet Set r1 = Range("C3:F10") Set r2 = Sheets("Sheet3").Range("C5") If Intersect(Target, r1) Is Nothing Then Exit Sub Set sv = Selection Set sh = ActiveSheet Application.EnableEvents = False r1.CopyPicture Appearance:=xlScreen, Format:=xlPicture Sheets("Sheet3").Select On Error Resume Next ActiveSheet.Shapes("Latest Snap").Delete On Error GoTo 0 r2.Select ActiveSheet.Paste Selection.Name = "Latest Snap" sh.Select sv.Select Application.EnableEvents = True End Sub 

因为它是工作表代码,所以安装和自动使用非常简单:

  1. 右键单击Excel窗口底部附近的选项卡名称
  2. select查看代码 – 这会popup一个VBE窗口
  3. 粘贴东西,closuresVBE窗口

如果您有任何疑问,请先在试用工作表上尝试。

如果您保存该工作簿,该macros将与它一起保存。 如果您在2003年以后使用的是Excel版本,则必须将该文件另存为.xlsm而不是.xlsx

要删除macros:

  1. 调出上面的VBE窗口
  2. 清除代码
  3. closuresVBE窗口

要了解有关macros的更多信息,请参阅:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件macros(工作表代码)的更多信息,请参阅:

http://www.mvps.org/dmcritchie/excel/event.htm

macros必须启用这个工作!