excel怎么识别带图片的单元格
Q：前不久有网友问我 ， 在工作表的一列中 ， 有些单元格放置有图片 ， 有些单元格为空 ， 如何识别带有图片的单元格并输入相应的文字？如所示 ， 对工作表Sheet1的列B中含有图片的单元格 ， 输入“有图片” ， 而没有图片的单元格则输入“无图片” ， 效果如列G所示 。
文章插图
A：下面的代码可以完成我们的需求：
Sub DecidePic()
Dim cell As Range
Dim lngCells As Long
Application.ScreenUpdating = False
‘设置查找列的单元格数
lngCells = 3
For Each cell In Range(“B2:B”& lngCells)
If PicIfExists(Sheet1, cell) Then
cell.Value = https://www.i8ku.com/2021/“有图片”
Else
cell.Value = https://www.i8ku.com/2021/“无图片”
End If
Next cell
Application.ScreenUpdating = True
End Sub
Function PicIfExists(wks As Worksheet, rng As Range) As Boolean
Dim shp As Shape
For Each shp In wks.Shapes
If shp.TopLeftCell.Address =rng.Address Then
PicIfExists = True
Exit For
End If
Next shp
End Function
【excel怎么识别带图片的单元格】在自定义函数PicIfExists中 ， 使用Shape对象的TopLeftCell属性来获取图片所在单元格的地址 ， 然后与单元格相比较 ， 以判断单元格中是否含有图片 。
推荐阅读
- 迅雷下载链接怎么复制？迅雷X下载链接复制教程
- excel插入Endnote文献时死机的解决方法
- 迅雷极速版怎么启用离开模式？迅雷极速版离开模式启用方法
- 迅雷极速版怎么登录？迅雷极速版账号登录方法简述
- excel怎么筛选内容
- excel怎么统计分隔符的字符串
- 迅雷极速版开机启动怎么设置？迅雷极速版开机启动设置方法
- 迅雷极速版下载目录怎么设置？迅雷极速版下载目录设置方法简述
- 迅雷极速版怎么设置下载速度？迅雷极速版下载速度设置方法
- 郁金香什么时候开花？郁金香怎么养开花？