来了来了别催了~~~【购物车】驾到！

购物车功能其实在去年就有朋友想让我做，但是因为一直很忙所以就一直没有做。今年又有几个朋友想要，那么正好抽出一点时间，把这个给做了，下面是视频，看效果。

点击挑选之后，挑选框自动打勾，金额自动累积，再次点击挑选框，勾去掉，金额自动扣除。

实现这个功能其实很简单，但是需要一点点逻辑。

在购物车中，我们肯定已有的数据是：名称，价格，以及顾客肯定知道的数量。所以我们只需要增加图片以及打勾就自动累积金额的功能就好。

在我的表中，需要严格执行下列规则：

1.图片放在本文件同层的文件夹中。

2.图片的名字必须与产品编号的名字一致。

3.打对勾的控件是ActiveX控件。

然后你就可以使用下面这段代码。

Sub s() Dim gp, i As Integer Dim shp As Shape, Rng As Range, Rngadd As Range On Error Resume Next For Each shp In ActiveSheet.Shapes If shp.Type = 1 Then shp.Delete Next
For Each Rng In Range("B2:B100") If Rng.Value = "" Then GoTo NextOne If Dir(ThisWorkbook.Path & "\图片\" & Rng.Text & ".jpg") = "" Then GoTo NextOne
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Rng.Offset(0, -1).Left + 3, Rng.Offset(0, -1).Top + 3, Rng.Offset(0, -1).Width - 6, Rng.Offset(0, -1).Height - 6).Select Selection.ShapeRange.Fill.UserPicture ThisWorkbook.Path & "\图片\" & Rng.Text & ".jpg"
NextOne: Next
i = 2 For Each gp In ActiveSheet.OLEObjects gp.LinkedCell = "$H$" & i i = i + 1 Next [a1].SelectEnd Sub

代码很简单，循环B列的产品编号，在A列的对应位置插入图片。以及在H列建立你控件对应的链接单元格，用来控制False还是True的。

然后字体设置为白色。

END 总是这么的突然~~