根据表1的价格表，计算出表2的价格。

skyrocket11

根据表1的价格表，计算出表2的价格。 具体细节在EXCEL表 2 内，难度较大。求大侠 发个实现代码 和 实现步骤  录像。越详细，越具体，为好，本人菜鸟级别



万分感谢！！！

skyrocket11

有哪位大侠，能有解决办法，是不是，，EXCEL，无法实现这功能。

chxw68

没有做完，不知道是否符合你的意思，你试试看。

chxw68

上个文件是字典等是前期帮定，你可能用不了，我改成后期帮定发给你。

dsmch

1. Sub aa()
   
2. On Error Resume Next
   
3. Dim arr, brr, d As Object
   
4. Dim mrr, nrr
   
5. Sheet2.Activate
   
6. mrr = [a2:b168]
   
7. ReDim nrr(1 To UBound(mrr), 1 To 1)
   
8. Set d = CreateObject("scripting.dictionary")
   
9. arr = Sheet1.[a1:a19]
   
10. brr = Sheet1.[b1:n19]
    
11. crr = Application.Index(brr, 1, 0)
    
12. For i = 2 To UBound(arr) '牌号所在的行数
    
13.     d(arr(i, 1)) = i
    
14. Next
    
15. For i = 1 To UBound(mrr)
    
16.     s1 = 0: s2 = 0
    
17.     x = d(mrr(i, 1))
    
18.     y = Split(mrr(i, 2), "*")
    
19.     drr = Application.Index(brr, x, 0)
    
20.     s1 = Application.WorksheetFunction.Lookup(Val(y(0)), crr, drr) '
    
21.     Select Case Val(y(1))
    
22.         Case Is < 1000
    
23.         s2 = 300
    
24.         Case 1000 To 1200 - 0.0001
    
25.         s2 = 150
    
26.         Case 1350 + 0.0001 To 1650
    
27.         s2 = -50
    
28.         Case 1200 To 1350
    
29.         s2 = 0
    
30.         Case 1650 + 0.0001 To 1800 - 0.0001
    
31.         s2 = 50
    
32.         Case Is >= 1800
    
33.         s2 = 100
    
34.     End Select
    
35.     nrr(i, 1) = IIf(s1 + s2 > 1000, s1 + s2, "")
    
36. 100:
    
37. Next
    
38. Range("c2").Resize(UBound(nrr)) = nrr
    
39. End Sub
    

复制代码

dsmch

……………………

skyrocket11

dsmch 发表于 2013-10-31 22:41
……………………

谢谢，我看下，，看

skyrocket11

skyrocket11 发表于 2013-11-1 18:32
谢谢，我看下，，看

粗看了下，就觉得，是高手

jsxjd

表2的 CR2 为什么在表1没有对应？

skyrocket11

jsxjd 发表于 2013-11-1 18:51
表2的 CR2 为什么在表1没有对应？

因为没有价格，