提取数据

ysxhefei

求大神修改代码，按天提取台账中自购的数据。

vbee

1.     With ActiveSheet
   
2.         .Name = Key + 1
   
3.         Sheets("模板").Range("a1:h29").Copy .[a1]
   
4.         .[d2] = Mid((Sheets("模板").Range("d2")), 1, 8) & Key + 1
   
5.         bh = bh + 1
   
6.         .[h2] = "编号：yyc" & bh
   
7.         d(Key).Copy
   
8.         .[a5].PasteSpecial (xlPasteFormulas)
   
9.     End With

复制代码

liulang0808

楼主反查下代码，看看原始数据啊
br数组的写入值，然后放置进行表格，再读取到字典，作为关键字的列是有0这个值的

ysxhefei

liulang0808 发表于 2018-8-8 18:37
楼主反查下代码，看看原始数据啊
br数组的写入值，然后放置进行表格，再读取到字典，作为关键字的列是有0 ...

这个代码取数还是不对

liulang0808

ysxhefei 发表于 2018-8-9 10:48
这个代码取数还是不对

具体哪里不对？楼主结合附件说明清楚
还有具体实现步骤怎样的

ysxhefei

liulang0808 发表于 2018-8-9 10:53
具体哪里不对？楼主结合附件说明清楚
还有具体实现步骤怎样的

老师你好，我想要根据台账中日期和截取摘要栏前两个字是“自购”这两个条件同时满足时的数据，现在工作名为0的那个表是很多天的配购数在一起，所以时间没法识别，就出现0，麻烦老师帮解决。（就是找台账中每一天自购的，有数据就一天生成一张单，无数据就不生成。）

liulang0808

ysxhefei 发表于 2018-8-9 14:23
老师你好，我想要根据台账中日期和截取摘要栏前两个字是“自购”这两个条件同时满足时的数据，现在工作名 ...

br(n, 7) = ar(i, 2) And Mid(ar(i, 3), 1, 2) = "自购"
楼主的需求没有看太明白，if语句增加了红色部分条件
For i = 1 To UBound(ar)
                If Len(ar(i, 6)) And Mid(ar(i, 3), 1, 2) = "自购" Then
                    n = n + 1
                    br(n, 1) = sht.[c2]
                    br(n, 2) = sht.Name
                    br(n, 3) = Split(sht.[f2], "·")(0)
                    br(n, 4) = ar(i, 4)
                    br(n, 5) = ar(i, 5)
                    br(n, 6) = ar(i, 6)
                    br(n, 7) = ar(i, 2) And Mid(ar(i, 3), 1, 2) = "自购"
                End If
            Next i

liulang0808

不知道是否满足需求，供参考。。。。。。

ysxhefei

谢谢老师，符合要求了。知识不够，还要努力学习。