excel 做的会员兑换查询,有两个问题没搞明白~~在线等
下面的是excel 附件,里面说的详细。
http://pan.baidu.com/netdisk/singlepublic?fid=216970_2334097025
http://pan.baidu.com/netdisk/singlepublic?fid=216970_2334097025
------解决方案--------------------------------------------------------
我先给你解决第一个问题吧
Private Sub Worksheet_Change(ByVal activecell As Range)
If Cells(3, 7) <> "" Then
For Each sh In Sheet1.Shapes
If Not Application.Intersect(Range([A1], [L5]), sh.TopLeftCell) Is Nothing Then
sh.Delete
End If
Next If activecell.Row = 3 And activecell.Column = 7 Then
mypath = ThisWorkbook.Path & "\照片库\"
Filename = mypath & Cells(3, 7) & ".jpg"
Sheet1.Pictures.Insert(Filename).Select
Set rn = Range("i2")
Selection.Top = rn.Top
Selection.Left = rn.Left
Selection.Height = 82
Selection.Width = 108
End If
End If
End Sub