[原创]EXCEL账务处理系统(2012.3.3极速版)增加一键打印账册功能

allenkobe

沒有東西啊

name004

我提一个小小的建议，希望楼主加大使用说明的力度，毕竟是用来记帐，不是随便玩玩，谁敢用这个系统来真正的记账，一定要说明的详细一点。好像还有一些账表未完成，也希望楼主努力一把，搞就搞全面，奉献就此完美。我非常关注，也想真正用来记帐。

wenxue123

无法解压呀？

jasone

值得我们学习，感谢你无私奉献

dllyjwg

楼主：

      您好，我是109楼的，就是请教您选定单元格后变色的那位菜鸟，用了你的代码，没有用去色之前还有色，但不知道怎么用去色。如有时间请再细说说好吗？不胜感激。

luckyisland

1、增加一个模块，定义全局变量 dqrow

public dqrow as long

2、在需要实现颜色的表格，比如 凭证 表格 ，Worksheet_SelectionChange写如下代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
   Dim r As Long
   Dim temps As String

   On Error Resume Next

   If ActiveSheet.Name <> "凭证" Then   '限定在某个表格功能有效
   dqrow = 0
   Exit Sub
   End If
  
   r = dqrow '记录之前行

   temps = "g" & r & ":" & "q" & r
   Range(temps).Interior.ColorIndex = xlNone

   dqrow = ActiveCell.Row  '新当前行
   temps = "g" & dqrow & ":" & "q" & dqrow
   Range(temps).Interior.ColorIndex = 38

   dqrow = ActiveCell.Row
End Sub

JLF2003

好厉害！

我先实际试用一下！

谢谢！

[此贴子已经被作者于2008-9-4 22:09:20编辑过]

ydqyfq

再完善期末结账功能就太好了,谢!

fuwentao

楼主好厉害啊 学习学习

jw.1225

可以解压缩的，只要把RAR后面的数字去了就可以了，PART1\PRAT2,就可以解压了