[已解决]Range("B13").End(3)(2).Row 问题求解

lgpoo

各位老师大家好，上次有个高手帮我做过一个凭证批量打印的代码的
现在又出现了一点小问题，谁能帮我看看
比较急

这个代码就是为了把“凭证登记”里面的凭证按照格式一一对应的打印到凭证打印里面去
原先还是比较好的，在我自行添加了一行明细科目之后，现在却出现了“明细客户”无法正常出现的状况，也不是全部都没有，只是间歇性的没有

主要是这段代码
e = 2
                    If .Range("B13").End(3)(2).Row = 5 Then e = 3
                    .Range("B13").End(3)(e) = Range("E" & i)
                    .Range("C13").End(3)(e) = Range("F" & i)
红色部分是我后来因为要打印明细科目，后来加的

首先我要问一下：为什么要End(3)后面有偏移量2  和  3 的区别  为什么要偏移这么多呢？

我后来又加了一栏  明细科目，就是红色字体部分，但是有时候会出现没有明细科目的问题，这是为什么呢？
求解

这个附件 代码比较长，只要看 “凭证录入”  和  “凭证打印” 工作表    和 “打印凭证” 模块  就好了！

求助高手

最佳答案

月排行榜 / 总排行榜

Zipall

2012-6-27 11:09

跟丢了?
http://www.excelpx.com/thread-249360-1-1.html

跳转到最佳答案楼层

lgpoo

求助 在线等
谁能先帮我解释一下 ，为什么偏移量 有2  和  3  的分别啊！

lgpoo

在线等啊在线等
有高手在么？

Zipall

跟丢了?
http://www.excelpx.com/thread-249360-1-1.html

lgpoo

Zipall 发表于 2012-6-27 11:09
跟丢了?
http://www.excelpx.com/thread-249360-1-1.html

搞不懂啊
这个最后是.row 应该是行号 = 5
怎么会是 判断区域 空和非空呢？
及其困惑

lgpoo

Zipall 发表于 2012-6-27 11:09
跟丢了?
http://www.excelpx.com/thread-249360-1-1.html

                   .Range("B13").End(3)(e) = Range("E" & i)
                    .Range("C13").End(3)(e) = Range("F" & i)
这两个语句
在实际单元格中会有不同吗

哥，我困惑啊

Select

1. Sub test()
   
2.     Debug.Print Range("B13").End(3).Address(0, 0)
   
3.     Debug.Print
   
4.     Debug.Print Range("B13").End(3)(1).Address(0, 0)
   
5.     Debug.Print Range("B13").End(3)(2).Address(0, 0);    '第4句
   
6.     Debug.Print Range("B13").End(3)(3).Address(0, 0)
   
7.     Debug.Print
   
8.     Debug.Print Range("B13").End(3).Item(2).Address(0, 0)    '第7句
   
9.     Debug.Print Range("B13").End(3).Item(2, 1).Address(0, 0)    '第8句
   
10. End Sub

复制代码

第4句、第7句、第8句，三者等效。只不过：
第7句较第8句，省略了些。
第4句较第7句，省略了些。

Select

即使代码可用，查看或修改，也极不方便。

1）“汇总登记表”模块里的代码，建议重新写。
2）“打印凭证”模块里的代码，说明情况，看能否注释下，或请高手帮助重写。

leolee82

不建议这样写，建议直接使用XlDirection枚举常量