帮我解释一下下面每一句的意思!谢谢!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/06/28 07:07:00
![帮我解释一下下面每一句的意思!谢谢!Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address](/uploads/image/z/5421670-70-0.jpg?t=%E5%B8%AE%E6%88%91%E8%A7%A3%E9%87%8A%E4%B8%80%E4%B8%8B%E4%B8%8B%E9%9D%A2%E6%AF%8F%E4%B8%80%E5%8F%A5%E7%9A%84%E6%84%8F%E6%80%9D%21%E8%B0%A2%E8%B0%A2%21Private+Sub+Worksheet_Change%28ByVal+Target+As+Range%29++++If+Target.Address++%22%24C%242%22+Then+Exit+Sub++++On+Error+Resume+Next++++ActiveSheet.Shapes%28%22pic%22%29.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 _
帮我解释一下下面每一句的意思!谢谢!
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
------------------------
程序结束