当前位置: 代码迷 >> Office >> excel 做的会员兑换查询,有两个有关问题没搞明白~
  详细解决方案

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

热度:6906   发布时间:2013-02-26 00:00:00.0
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) <> "" 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
  相关解决方案