关于“别怕”5.5.1实例的深化问题

1366620710

我看了5.5.1实例后感触很大，原来我以前干的事情绝大多数都是白干的，所以我将其吸收消化，但该例子与我实际运用有点区别，于是苦心专研。。。。最后还是没有成功，再于是乎求助各位前辈，在次谢过！


5.5.1例子中是运用商品名称的简写来完成商品的全称，再查找参照表中的数据到相应位子，现在我想实现通过名称与规格来查询商品的价格



5.5.1 修改.rar (162.03 KB, 下载次数: 17)

2013-4-10 20:19 上传

点击文件名下载附件

4487

=SUM((J3:J12=C3)*(K3:K12=D3)*(L3:L12))

1366620710

4487 发表于 2013-4-10 21:19
=SUM((J3:J12=C3)*(K3:K12=D3)*(L3:L12))

我想实现的是从后台用vba来运行

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. '如果更改的单元格不是C列第3行以下的单元格或更改的单元格个数大于1时退出程序
   
3.     If Application.Intersect(Target, Range("C3:D65536")) Is Nothing Or Target.Count > 1 Then
   
4.         Exit Sub
   
5.     End If
   
6.     Dim i, r As Integer  '定义变量
   
7.     Dim MyValue, RefValue As String
   
8.     i = 3              '参照表中第1条记录在第3行，所以初值设为3
   
9.     Do While Cells(i, "I").Value <> ""             '在参照表里循环
   
10.         '判断录入的字母与参照表的字母是否相符
    
11.         r = Target.Row
    
12.         MyValue = UCase(Cells(r, "C").Text) & UCase(Cells(r, "D").Text)
    
13.         RefValue = Cells(i, "I").Text & Cells(i, "K").Text
    
14.         If MyValue = RefValue Then
    
15.             Application.EnableEvents = False    '禁用事件，防止将字母改为商品名称时，再次执行程序
    
16.             Cells(r, "C").Value = Cells(i, "I").Offset(0, 1).Value        '写入产品名称
    
17.             Cells(r, "B").Value = Date                       '写入销售日期
    
18.             Cells(r, "D").Value = Cells(i, "I").Offset(0, 2).Value  '写入商品代码
    
19.             Cells(r, "E").Value = Cells(i, "I").Offset(0, 3).Value  '写入商品单价
    
20.             Target.Offset(0, 3).Select             '选中销售数量列，等待输入销售数量
    
21.             Application.EnableEvents = True        '重新启用事件
    
22.             Exit Sub
    
23.         End If
    
24.         i = i + 1
    
25.     Loop
    
26. End Sub
    

复制代码