代码不明吧，请高手们讲解下···（在线等）
请高手忙吧讲解下···谢谢！！
With ActiveSheet
If Target.Count > 2 Then Exit Sub
Set rng = .Range("E28")
If Union(rng, Target).Address = rng.Address Then
Static chkrange As Range
If Not chkrange Is Nothing Then
chkrange.Comment.Delete
End If
Dim cmt As Comment
Dim hasComment As Comment
Dim jpgImg As Object
Set chkrange = Target
Set hasComment = Target.Comment
If hasComment Is Nothing Then
Set cmt = Target.AddComment
Else
Set cmt = Target.Comment
End If
cmt.Visible = True
pcode = .[b28].Text
If VBA.Asc(pcode) >= 65 And VBA.Asc(pcode) <= 122 Then
ac = VBA.Left(pcode, 7)
If InStr(1, ac, "-") > 0 Then
fname = "V:\P Code\Customer" & .[E38].Text & "" & pcode & ".jpg"
Else
fname = "V:\P Code\Others\AC Code" & pcode & ".jpg"
End If
Else
str = VBA.Left(pcode, 6)
If CInt(str) <= 1000 Then
fname = sPath & "000001-001000" & pcode & ".jpg"
ElseIf CInt(str) > 1000 And CInt(str) <= 2000 Then
fname = sPath & "001001-002000" & pcode & ".jpg"
ElseIf CInt(str) > 2000 And CInt(str) <= 3000 Then
fname = sPath & "002001-003000" & pcode & ".jpg"
ElseIf CInt(str) > 3000 And CInt(str) <= 4000 Then
fname = sPath & "003001-004000" & pcode & ".jpg"
ElseIf CInt(str) > 4000 And CInt(str) <= 5000 Then
fname = sPath & "004001-005000" & pcode & ".jpg"
ElseIf CInt(str) > 5000 And CInt(str) <= 6000 Then
fname = sPath & "005001-006000" & pcode & ".jpg"
ElseIf CInt(str) > 6000 And CInt(str) <= 7000 Then
fname = sPath & "006001-007000" & pcode & ".jpg"
ElseIf CInt(str) > 7000 And CInt(str) <= 8000 Then
fname = sPath & "007001-008000" & pcode & ".jpg"
ElseIf CInt(str) > 8000 And CInt(str) <= 9000 Then
fname = sPath & "008001-009000" & pcode & ".jpg"
ElseIf CInt(str) > 9000 And CInt(str) <= 10000 Then
fname = sPath & "009001-010000" & pcode & ".jpg"
ElseIf CInt(str) > 10000 And CInt(str) <= 11000 Then
fname = sPath & "010001-011000" & pcode & ".jpg"
End If
End If
Set jpgImg = CreateObject("WIA.ImageFile")
jpgImg.LoadFile fname
iw = jpgImg.Width
ih = jpgImg.Height
cmt.Shape.Fill.UserPicture fname
cmt.Shape.Line.ForeColor.SchemeColor = 9
cmt.Shape.ZOrder msoSendToBack
cmt.Shape.LockAspectRatio = msoFalse
nh = .Range("D29:E36").Height
nw = .Range("D29:E36").Width
Set rg = .Range("D29:E36")
[最优解释]
在E28中输入一个数值，从文件夹中找到对应的图片，插入到批注里面来。
[其他解释]
怎么没有人回答啊？高手们快出来帮帮忙吧··
------其他解决方案--------------------
哦···谢谢。
