如何在excel A列的单元格中输入001产品编号,旁边的B列的空格中就出现相应的001编号的图片?谢谢高手指点

2025-02-24 10:34:45
推荐回答(1个)
回答1:

用vba,按下ALT+F11,菜单:插入-模块,复制下面代码至代码框.按F5即可

Sub addpicture()

Dim FirstRow, LastRow As Integer, FileType As String
FirstRow = Sheet1.UsedRange.Row
LastRow = FirstRow + Sheet1.UsedRange.Rows.Count - 1
FileType = InputBox("输入你的图片的后缀名", "输入图片格式", "jpg")
For i = FirstRow To LastRow
Numb = Cells(i, 2).Value
With ActiveSheet
.Pictures.Insert("D:\tmp\" & Numb & "." & FileType).Select
Set Target = .Cells(i, 1)
End With
With Selection
.Top = Target.Top + 1
.Left = Target.Left + 1
.Width = Target.Width - 1
.Height = Target.Height - 1
End With
Next i
End Sub

说明,假设图片文件夹路径D:\tmp\ 。
图片文件名与输入产品编号一致。