VBA把参数表C列的内容更新到原始表(多谢各位解答)

zhangmy66

参数表C列输入你想自定义的内容；用参数表A列B列和电子锯开料单的厚度和材质双匹配，把参数表C列的信息更新到电子锯开料单表的材质列；

excel玉米

同一种厚度有两种材质名称，这在实际中无法正向对应，只能反向对应。

1. Sub updata_参数表()
   
2. Dim arr, i&, j&, key$
   
3. Dim dic As Object
   
4. Set dic = CreateObject("scripting.dictionary")
   
5. arr = Sheets("电子锯开料单").UsedRange
   
6. For i = 4 To UBound(arr)
   
7.     dic(arr(i, 11)) = arr(i, 7)
   
8. Next i
   
9. With Sheets("参数表")
   
10.     j = .Cells(65536, 2).End(xlUp).Row
    
11.     For i = 2 To j
    
12.         key = .Cells(i, 2)
    
13.         If dic.exists(key) Then .Cells(i, 1) = dic(key)
    
14.     Next i
    
15. End With
    
16. MsgBox "更新updata_参数表Ok"
    
17. End Sub
    
18. Sub updata_开料单表()
    
19. Dim arr, i&, j&, key$
    
20. Dim dic As Object
    
21. Set dic = CreateObject("scripting.dictionary")
    
22. arr = Sheets("参数表").UsedRange
    
23. For i = 2 To UBound(arr)
    
24.     dic(arr(i, 2)) = arr(i, 3)
    
25. Next i
    
26. With Sheets("电子锯开料单")
    
27.     j = .Cells(65536, 4).End(xlUp).Row
    
28.     For i = 4 To j
    
29.         key = .Cells(i, 11)
    
30.         If dic.exists(key) Then .Cells(i, 11) = dic(key)
    
31.     Next i
    
32. End With
    
33. MsgBox "更新开料单表Ok"
    
34. End Sub

复制代码

shiruiqiang

为啥第一个16得到不同的材质，第二个16，得到的材质相同

zhangmy66

shiruiqiang 发表于 2025-4-2 17:17
为啥第一个16得到不同的材质，第二个16，得到的材质相同

主要就是G列和K列，获取厚度对应的材质，同样的厚度会有不同的材质，再把更新后的材质回填回去。

zhangmy66

shiruiqiang 发表于 2025-4-2 17:17
为啥第一个16得到不同的材质，第二个16，得到的材质相同

不知道为啥，我就获取了3种材质

ykcbf1100

这个没法做吧，厚度对应好几个材质，而参数表里面数据不全，还要手工输入后再重新写回。没搞懂啊，为啥参数表数据不先搞全呢，本来可以一步到位的。

zhangmy66

ykcbf1100 发表于 2025-4-2 17:34
这个没法做吧，厚度对应好几个材质，而参数表里面数据不全，还要手工输入后再重新写回。没搞懂啊，为啥参数 ...

参数表  自己输入内容再回填回去就行，只要能回填回去参数表怎么设置都行

ykcbf1100

zhangmy66 发表于 2025-4-2 17:40
参数表  自己输入内容再回填回去就行，只要能回填回去参数表怎么设置都行

这不是你应该先做的事吗？这个还要别人帮你来编吗？

zhangmy66

ykcbf1100 发表于 2025-4-2 17:46
这不是你应该先做的事吗？这个还要别人帮你来编吗？

自己改造了好多次也没有实现，所有来论坛求助一下

ykcbf1100

zhangmy66 发表于 2025-4-2 17:57
自己改造了好多次也没有实现，所有来论坛求助一下

你这样估计没人会出手。