Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2397|回复: 1

[已解决]VBA查找图片

[复制链接]
发表于 2017-4-6 22:07 | 显示全部楼层 |阅读模式
当Q10中的数据用函数从水泥表格中查找时A39-X71中的图片查不到,当Q10中的数据用手动输入时A39-X71中的图片就能查得到,请各位老师帮忙看下要怎么做才能用函数查找到的数据又能查找到图片谢谢。
最佳答案
2017-4-6 23:04
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$Q$10" Then Exit Sub
    Dim str$
    On Error Resume Next
    ActiveSheet.Shapes("pic").Select
    Selection.ShapeRange.Fill.UserPicture _
        ThisWorkbook.Path & "\" & Range("Q10").Value & ".jpg"
    ActiveCell.Select
End Sub
把红色的去除,只要改变就变化,或者对应要变化的单元格,如AB1

VBA求助.zip

243.13 KB, 下载次数: 10

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-4-6 23:04 | 显示全部楼层    本楼为最佳答案   
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$Q$10" Then Exit Sub
    Dim str$
    On Error Resume Next
    ActiveSheet.Shapes("pic").Select
    Selection.ShapeRange.Fill.UserPicture _
        ThisWorkbook.Path & "\" & Range("Q10").Value & ".jpg"
    ActiveCell.Select
End Sub
把红色的去除,只要改变就变化,或者对应要变化的单元格,如AB1

评分

参与人数 1 +12 收起 理由
ghostjiao + 12 好厉害,看不懂

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 20:44 , Processed in 0.745908 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表