寻找符合条件的值并代入

ping200030

麻烦帮忙下。
数据量大时反应慢。
要求：

当输入编码时，自动代入基础信息表的相关信息

wowo000

楼主：下载附件试试应该是你要的结果。

ping200030

wowo000 发表于 2022-12-4 17:33
楼主：下载附件试试应该是你要的结果。

谢谢啊，不好意思又想完善下，都是些取值问题，要求在附件里，有时间帮忙看看啦，拜托

杨建营

ping200030 发表于 2022-12-4 19:23
谢谢啊，不好意思又想完善下，都是些取值问题，要求在附件里，有时间帮忙看看啦，拜托

你附件的数据错误有点多啊

ping200030

杨建营 发表于 2022-12-4 20:25
你附件的数据错误有点多啊

不好意思，有的没加上公式，没检查清楚

杨建营

请楼主参考，水平有限，尽力而为了。

昨天的有个小瑕疵，今天改了一下。

ping200030

杨建营 发表于 2022-12-4 21:06
请楼主参考，水平有限，尽力而为了。

谢谢，参考下

ping200030

杨建营 发表于 2022-12-4 21:06
请楼主参考，水平有限，尽力而为了。

昨天的有个小瑕疵，今天改了一下。

满烦您了，还有几个问题，最新的
1、那个列宽可以单独设置每列吗？有一行字多了，列就变得特别宽了

2、J、K列根据A列在基础信息表里提取，没有生成呢


2、单价提取按照具体单据日期在基础信息表里的生效日期和失效日期之间提取

ping200030

杨建营 发表于 2022-12-4 21:06
请楼主参考，水平有限，尽力而为了。

昨天的有个小瑕疵，今天改了一下。

入库数量p列代出来的应该是入库数G列，现在代出来的是F编码列，咋改下代码

1. Sub tiqu()
   
2. Dim arr, brr, i&, j&, z&, v&, k&
   
3. Dim t
   
4. Dim d As Object
   
5. t = Timer
   
6. Application.ScreenUpdating = False '关闭屏幕刷新(可以提高运行速度)
   
7. On Error Resume Next
   
8. Set d = CreateObject("scripting.dictionary")
   
9. With Sheets("基础信息")
   
10.     i = .[f65536].End(3).Row
    
11.     brr = .Range("f3:l" & i)
    
12.     For v = 2 To UBound(brr)
    
13.         d(brr(v, 1)) = brr
    
14.     Next
    
15. End With
    
16. With Sheet1
    
17.     z = .[f65536].End(3).Row
    
18.     arr = .Range("f3:t" & z)
    
19.     For j = 2 To UBound(arr)
    
20.         If d.exists(arr(j, 1)) Then
    
21.             arr(j, 15) = brr(j, 2)
    
22.             arr(j, 12) = brr(j, 6)
    
23.             arr(j, 11) = arr(j, 1)
    
24.             For q = 8 To 10
    
25.                 arr(j, q) = brr(j, q - 5)
    
26.             Next
    
27.         End If
    
28.     Next
    
29. End With
    
30. [f3].Resize(UBound(arr), UBound(arr, 2)) = arr
    
31. With Sheet1
    
32.     For k = z To 4 Step -1
    
33.         .Range("c" & k).Value = "20" & VBA.Left(.Range("h" & k), 2)
    
34.         .Range("d" & k).Value = VBA.Mid(.Range("h" & k), 3, 2)
    
35.         .Range("e" & k).Value = "'" & VBA.Mid(.Range("h" & k), 5, 2)
    
36.         .Range("r" & k).Value = Val(.Range("q" & k).Value) * Val(.Range("p" & k).Value)
    
37.         .Range("s" & k).Value = Val(.Range("r" & k).Value) * 1.3
    
38.     Next
    
39.     End With
    
40. With [a3].CurrentRegion.Resize(, 20)
    
41.     .HorizontalAlignment = xlCenter    '文字居中
    
42.     .Borders.LineStyle = xlContinuous    '边框默认
    
43.     .EntireRow.AutoFit    '自动行宽
    
44.     .EntireColumn.AutoFit    '自动列宽
    
45.     '.Font.ColorIndex = 3    '设置字体颜色
    
46.     .Font.Size = 12    '设置字体大小
    
47.     .Font.Name = "微软雅黑" '设置字体名称
    
48. End With
    
49. Application.ScreenUpdating = True    '开启屏幕刷新
    
50. MsgBox "提取完毕，用时" & Format(Timer - t, "0.00s"), 64, "看到了吗？"
    
51. End Sub
    
52. 
    

复制代码

杨建营

ping200030 发表于 2022-12-10 09:04
入库数量p列代出来的应该是入库数G列，现在代出来的是F编码列，咋改下代码

你给的要求中就是错误的，现在大部分已修改。列宽可以直接指定。关于需要组合时间取单价的条件，个人感觉不是很必要，所以没有弄。