Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3139|回复: 5

[已解决]求助vba或者函数实现明细取数到单据

[复制链接]
发表于 2021-9-20 08:31 | 显示全部楼层 |阅读模式
3学分
      求助:材料明细单数据取到财务出、入库单。首先在入库单的“材料名称”是由明细的数据取过来的下拉菜单。我想实现下拉菜单选择那个存货名称,则此行的数据就跟着明细行对应名称的数据一并取到出入库单中。
最佳答案
2021-9-20 08:31
  1. Option Explicit

  2. Sub copy_in()
  3. Dim arr
  4. Dim arr1(1 To 1000, 1 To 4)
  5. Dim x, k, i As Integer
  6. x = Sheet1.Range("a6").End(xlDown).Row
  7. arr = Sheet1.Range("A6:s" & x)
  8. k = 0
  9. For i = 1 To UBound(arr)
  10.     If arr(i, 2) = Sheet2.Range("B8") Then
  11.         k = k + 1
  12.         arr1(k, 1) = arr(i, 3)
  13.         arr1(k, 2) = arr(i, 4)
  14.         arr1(k, 3) = arr(i, 9)
  15.         arr1(k, 4) = arr(i, 6)
  16.     End If
  17. Next
  18. With Sheet2
  19.     If k > 1 Then
  20.         .Rows("9:" & 9 + k - 1).Insert
  21.         .Range("B8:i" & 8 + k).FillDown
  22.     End If
  23.     .Range("C8").Resize(k, 4).Value = arr1
  24. End With
  25. End Sub
复制代码

出库入库情况明细.zip

39.49 KB, 下载次数: 13

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-9-20 08:31 | 显示全部楼层    本楼为最佳答案   
  1. Option Explicit

  2. Sub copy_in()
  3. Dim arr
  4. Dim arr1(1 To 1000, 1 To 4)
  5. Dim x, k, i As Integer
  6. x = Sheet1.Range("a6").End(xlDown).Row
  7. arr = Sheet1.Range("A6:s" & x)
  8. k = 0
  9. For i = 1 To UBound(arr)
  10.     If arr(i, 2) = Sheet2.Range("B8") Then
  11.         k = k + 1
  12.         arr1(k, 1) = arr(i, 3)
  13.         arr1(k, 2) = arr(i, 4)
  14.         arr1(k, 3) = arr(i, 9)
  15.         arr1(k, 4) = arr(i, 6)
  16.     End If
  17. Next
  18. With Sheet2
  19.     If k > 1 Then
  20.         .Rows("9:" & 9 + k - 1).Insert
  21.         .Range("B8:i" & 8 + k).FillDown
  22.     End If
  23.     .Range("C8").Resize(k, 4).Value = arr1
  24. End With
  25. End Sub
复制代码

评分

参与人数 1学分 +2 收起 理由
wanghongtao + 2 学习了

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2021-9-20 18:39 | 显示全部楼层

谢谢大神回复,可以问问如歌这个VBA加上后,有一些重复的就自动加行了,我不想加行,是不是必须需要一个唯一的数值,好比唯一的单号作为取值要求!
回复

使用道具 举报

发表于 2021-9-20 19:32 | 显示全部楼层
wanghongtao 发表于 2021-9-20 18:39
谢谢大神回复,可以问问如歌这个VBA加上后,有一些重复的就自动加行了,我不想加行,是不是必须需要一个 ...

你是想把查到的结果汇总成一条数据吧。可是你明细表的同材料规格都不统一。即使汇总了,可能都不是你想要的结果

回复

使用道具 举报

 楼主| 发表于 2021-9-21 08:03 | 显示全部楼层
lisongmei 发表于 2021-9-20 19:32
你是想把查到的结果汇总成一条数据吧。可是你明细表的同材料规格都不统一。即使汇总了,可能都不是你想要 ...

我不是想把结果汇总成一条数据,我是想把入库的和出库的材料单独从明细表里提出来自动填到后面的,出库单,入库单里。其实意思就是我想把单独一笔出库的行入到后面的单据里,现在我吧单据好作为提取列了,只把日期,名称,规格,单位,单价,数量,供应商提取到入库单,日期、名称。规格,单位,单价,数量,工程名称提到出库就可

出库入库情况明细.zip

73.78 KB, 下载次数: 7

回复

使用道具 举报

发表于 2021-9-21 11:06 | 显示全部楼层
wanghongtao 发表于 2021-9-21 08:03
我不是想把结果汇总成一条数据,我是想把入库的和出库的材料单独从明细表里提出来自动填到后面的,出库单 ...

哦哦,那你改成一个唯一值就行了,比如现在的名称。只要是一个唯一值就能提取出唯一的,现在是提取所有条目。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 17:53 , Processed in 0.371045 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表