excel 做的会员兑换查询，有两个有关问题没搞明白~

excel 做的会员兑换查询，有两个问题没搞明白~~在线等
excel 做的会员兑换查询，有两个问题没搞明白~~在线等

下面的是excel 附件，里面说的详细。

http://pan.baidu.com/netdisk/singlepublic?fid=216970_2334097025

http://pan.baidu.com/netdisk/singlepublic?fid=216970_2334097025
[解决办法]

引用:

1，我在兑换积分处加了个控件框，用来选取固定积分，但我在输入框输 c001 回车，这个控件就会消失在我的眼中。

2，我在兑换积分，物品，时间三处，选择，填写后，能不能将值同步到《会员基本信息》对应列里。
（比如说c002这个还没有兑换领取奖品的。而对于已经兑换过的，c001 这个会员，就不同步。）

我先给你解决第一个问题吧

Private Sub Worksheet_Change(ByVal activecell As Range)
    If Cells(3, 7) &lt;&gt; "" 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

excel 做的会员兑换查询有两个有关问

热点推荐