帮我解释一下下面每一句的意思!谢谢!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 _
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 15:35:11
帮我解释一下下面每一句的意思!谢谢!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 _
帮我解释一下下面每一句的意思!谢谢!
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
求回答问题的,不要用软件翻译
帮我解释一下下面每一句的意思!谢谢!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 _
目标范围
如果目标.地址< > " $ C 2美元”然后Exit
设置错误处理
只有
------------------
路径和“\”&范围(“C2”).价值与“jpg
------------------------
程序结束