首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 办公应用 > OFFICE教程 >

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

2013-01-02 
excel 做的会员兑换查询,有两个问题没搞明白~~在线等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) <> "" 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

热点排行