私人子Worksheet_Change(ByVal目标范围)
如果目标。地址< > " $ C 2美元”然后Exit子
在错误的简历下
ActiveSheet.Shapes(“pic”)只有
Selection.ShapeRange.Fill。 UserPicture _
ThisWorkbook。 路径和“\”&范围(“C2”)。价值与“jpg”
ActiveCell.Select
结束子
目标范围
如果目标。地址< > " $ C 2美元”然后Exit
设置错误处理
只有
------------------
路径和“\”&范围(“C2”)。价值与“jpg
------------------------
程序结束
这是一个VB编程代码的