VBA 的复制指定行，新人求助

exc-led

xiangbaoan 发表于 2018-9-27 08:52
……仅测试……

其实就是想要每隔一段时间打印---printout--- 出来，点击按钮即可，就像附件里的文档一样。谢谢大神

exc-led

xiangbaoan 发表于 2018-9-27 08:52
……仅测试……

哦哦，我测试了，很好，后面的我自己来吧，谢谢大神
我直接加了： Application.OnTime Now + TimeValue("00:00:01"), "test" ，但是我不知道怎么停下来，就是说死循环了，我该怎么办啊，大神

xiangbaoan

exc-led 发表于 2018-9-27 12:22
哦哦，我测试了，很好，后面的我自己来吧，谢谢大神
我直接加了： Application.OnTime Now + TimeValue( ...

Public r&, k&
Sub test()
Dim ar
If 模块1.r > Sheet2.[a65536].End(xlUp).Row Then MsgBox "木有了！": Exit Sub
If 模块1.k = 0 Then 模块1.r = 2
ar = Sheet2.Cells(模块1.r, 1).Resize(10, 11)
Sheet1.[i3] = ar(1, 10)
Sheet1.[f3] = ar(1, 11)
Sheet1.[b5].Resize(10, 9) = ar
模块1.k = 模块1.k + 1
模块1.r = 模块1.r + 10
MsgBox "ok!  第 " & 模块1.k & " 次。"
End Sub

exc-led

xiangbaoan 发表于 2018-9-27 13:19
Public r&, k&
Sub test()
Dim ar

感谢大大，但是我有一个疑问，就是我在sheet2中筛选日期的时候，参见图片选择的是4月6日的，为什么点选按钮的时候，出现的不是4月6日的？其实这个“送货日期”的作用就是筛选后的日期，都是统一的，就比方这个表格这么多数据量，就只要体现出送货日期是4月6日的数据。您明白我的意思吗？就这么说吧，这些数据都汇总在sheet2中，我VBA的作用就是按照sheet1的模板来打印即可，但肯定是筛选日期后的打印。所以就有这个疑问，再次感谢大大

exc-led

liulang0808 发表于 2018-9-27 07:02
附件内容供参考，日期部分自行处理吧

版主大大，日期怎么做到筛选？能看一下本帖的最后那个问题嘛？谢谢版主大大

liulang0808

exc-led 发表于 2018-9-28 08:32
版主大大，日期怎么做到筛选？能看一下本帖的最后那个问题嘛？谢谢版主大大

不明白楼主的意思，日期已经很明确了，还需要怎么筛选的

exc-led

liulang0808 发表于 2018-9-28 08:43
不明白楼主的意思，日期已经很明确了，还需要怎么筛选的

就是说我在sheet2中筛选了指定的某个日期，但是输出在sheet1的内容却不是筛选的内容，而是全部的内容（就是sheet1呈现的是sheet2筛选后的内容）

liulang0808

exc-led 发表于 2018-9-28 09:15
就是说我在sheet2中筛选了指定的某个日期，但是输出在sheet1的内容却不是筛选的内容，而是全部的内容（就 ...

请楼主提供附件及相关代码，并结合实例说明下

exc-led

liulang0808 发表于 2018-9-28 09:43
请楼主提供附件及相关代码，并结合实例说明下

版主，我的意思就是说，我在sheet2筛选了这个数据后，为什么我点选按钮的时候sheet1里面的内容不是sheet2中筛选后的内容？（源码在附件里面）

exc-led

liulang0808 发表于 2018-9-28 09:43
请楼主提供附件及相关代码，并结合实例说明下

按照刚才我说的sheet2筛选后的内容，sheet1表格应该呈现出如图的样式，但是sheet1却呈现的是全部的内容，好像有没有筛选对sheet1都没作用。