帮我解释一下下面每一句的意思!谢谢!Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address "$C$2" Then Exit Sub On Error Resume Next ActiveSheet.Shapes("pic").Select Selection.ShapeRange.Fill.UserPicture _ ThisWorkbook.Path & "\" & Range("C2").Value & ".jpg" ActiveCell.SelectEnd Sub求回答问题的,不要用软件翻译
问题描述:
帮我解释一下下面每一句的意思!谢谢!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$C$2" Then Exit Sub
On Error Resume Next
ActiveSheet.Shapes("pic").Select
Selection.ShapeRange.Fill.UserPicture _
ThisWorkbook.Path & "\" & Range("C2").Value & ".jpg"
ActiveCell.Select
End Sub
求回答问题的,不要用软件翻译
答
目标范围
如果目标.地址 " $ C 2美元”然后Exit
设置错误处理
只有
------------------
路径和“\”&范围(“C2”).价值与“jpg
------------------------
程序结束