请教：如何将凭证信息自动导入汇总表中

第三杯茶

<DIV class=quote><B>以下是引用<I>kevinyou</I>在2004-9-17 10:26:00的发言：</B>

<P>请问学宏要从何学起。</P>
<P>谢谢赐教。</P></DIV>


<P>举个例子说明一下吧，或许能说明点问题：</P>
<P> zxHc4dZW.rar (7.31 KB, 下载次数: 59)

2004-9-17 11:19 上传

点击文件名下载附件
请教：如何将凭证信息自动导入汇总表中

</P>

colgo

既然信息可以导入,那么可否将信息输出呢,这样就不就可以查询并打印以前的凭证了?[em09]

ladhome

<P><TABLE 54pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=72 border=0 x:str><COLGROUP><COL style="WIDTH: 54pt" width=72><TR 15pt" height=20><TD class=xl22 #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; WIDTH: 54pt; BORDER-BOTTOM: #d4d0c8; HEIGHT: 15pt; BACKGROUND-COLOR: transparent" width=72 height=20><PRE>我也是正在学习,昨天刚做了一个收据,存根联的信息一经登记,不可再作任何改动.</PRE></TD></TR></TABLE></P><P><a href="http://club.excelhome.net/viewthread.php?tid=62282" target="_blank" >http://club.excelhome.net/viewthread.php?tid=62282</A></P>

江湖海洋

<P>这个问题是应想办法解决.财务工作中好多这方面的问题.如果那位能解决,好多人会感谢你.</P>

第三杯茶

<P>Sub 导入汇总表()
Dim k As Long, c As Range
If MsgBox("是否导入凭证信息汇总表?", vbYesNo) = vbNo Then Exit Sub    '询问提示
With Sheets("凭证信息汇总")     '以下代码前带点的都是对【凭证信息汇总】操作
    k = .[d65536].End(xlUp).Row + 1     '【凭证信息汇总】D列最后行号
    .Cells(k, 1) = [i2]     '写入字号
    .Cells(k, 2) = DateSerial([c2], [d2], [e2])     '日期
    .Cells(k, 3) = [a5]
    .Cells(k, 9) = [f11]
    .Cells(k, 10) = [i11]
    For Each c In [h5:h10]      '对借方金额区循环
        If c &lt;&gt; "" Then         '借方不空
            .Cells(k, 4) = c.Offset(0, -6)
            .Cells(k, 5) = c.Offset(0, -5)
            .Cells(k, 6) = c.Offset(0, -4)
            .Cells(k, 7) = c
            k = k + 1
        ElseIf c.Offset(0, 1) &lt;&gt; "" Then        '贷方不空
            .Cells(k, 4) = c.Offset(0, -3)
            .Cells(k, 5) = c.Offset(0, -2)
            .Cells(k, 6) = c.Offset(0, -1)
            .Cells(k, 8) = c.Offset(0, 1)
            k = k + 1
        End If
    Next
End With
End Sub
<b>这是taller版主提供的代码，大家试试看，共同学习一下。</b></P>

chb001

十分感谢老兄提供的倒入汇总表的代码，使我受益匪浅，只是倒入汇总表后，日期列有空行，不知有什么办法解决。

湿衣

嘿嘿,谢谢了,路过

baijj

<strong>如何将凭证信息自动导入汇总表中</strong>