[分享]我的自动财务报表!

dgsun · 发表于 2004-10-22 07:20

很好!很不错!!!,谢谢了！ 保护的密码:<TABLE 161pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=214 border=0 x:str><COLGROUP><COL style="WIDTH: 54pt" width=72><COL style="WIDTH: 107pt; mso-width-source: userset; mso-width-alt: 4544" width=142><TR 17.1pt; mso-height-source: userset" height=22><TD>说明</TD><TD class=xl23 #d8d0c8; BORDER-TOP: #d8d0c8; BORDER-LEFT: #d8d0c8; WIDTH: 107pt; BORDER-BOTTOM: #d8d0c8; BACKGROUND-COLOR: transparent" width=142>TTWSWZXBPRYQUFX</TD></TR></TABLE><TABLE 161pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=214 border=0 x:str><COLGROUP><COL style="WIDTH: 54pt" width=72><COL style="WIDTH: 107pt; mso-width-source: userset; mso-width-alt: 4544" width=142><TR 17.1pt; mso-height-source: userset" height=22><TD>凭证</TD><TD class=xl24 #d8d0c8; BORDER-TOP: #d8d0c8; BORDER-LEFT: #d8d0c8; WIDTH: 107pt; BORDER-BOTTOM: #d8d0c8; BACKGROUND-COLOR: transparent" width=142>ZAJJMRVGHWGRGMS</TD></TR></TABLE>

兰色幻想 · 发表于 2004-10-22 11:31

不错，凭证输入可以改进一下，比如输入到最后一列时按回车实现自光标自动转行（转到下一行第一个单元格）：Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
Range("A65536").End(xlUp).Offset(1, 0).Select
End If
End Sub

shuiyuan · 发表于 2005-2-19 02:39

很好，谢谢

69292000 · 发表于 2005-2-18 17:29

很好!很不错!!!,谢谢了！ ,再加上明细科目会更完美一点

liyh67 · 发表于 2005-2-19 02:09

真不错，让我学习学习。

xieyidh · 发表于 2005-2-22 20:28

不错,应考虑记帐凭证月与月之间的独立与报表月与月之间的连续性.

1365252869 · 发表于 2005-3-4 19:52

给我一个密码，感激你一生， 136525286942475@163.com

1563 · 发表于 2005-3-5 10:50

真不错

mcy318 · 发表于 2005-3-6 10:05

太差了,这样的也算好呀,你们是不懂会计吗

1563 · 发表于 2005-3-6 10:36

对小单位这个很实用

		自动登录	找回密码
密码			免费注册

[分享] [分享]我的自动财务报表!