房地产开发产品销售与收款管控系统

我就这样

确实实用，但是能不能开放一下修改，我新手，音乐还不知道怎么去掉

我就这样

感觉还是差一个统计报表功能啊

minjiwei

谢谢提供。学习！

天才zhh

下来看看，我是房地产菜鸟，希望对自己有帮助啊

学良

我就这样 发表于 2013-7-2 16:12
确实实用，但是能不能开放一下修改，我新手，音乐还不知道怎么去掉

在[目录]页:  窗囗→取消冻结窗囗
找到I48单元格→视图→工具→控件工具箱→设计模式→右键点I48中的方框→剪切→点设计模式

学良

我就这样 发表于 2013-7-2 16:23
感觉还是差一个统计报表功能啊

您需要什么样式的统计报表啊?
请上传附件, 我可以加进去.
谢谢您的关注!

学良

我就这样 发表于 2013-7-2 16:12
确实实用，但是能不能开放一下修改，我新手，音乐还不知道怎么去掉

给你一个去掉音乐的附件:
复件 销售管控系统.zip (342.37 KB, 下载次数: 81)

2013-7-3 12:34 上传

点击文件名下载附件

紫檀幽梦

学良老师，好东西，谢谢分享。我来回复哇。不过这个东西可不可以结合实际改良下……感觉不知道怎么用哇，还有设计交定金之类的

liang.hongzhi

咨询一下，哪个条件格式怎么做的？我看公式就是一个=TRUE 就ok了，选择到某行显示特殊格式的公式我一直用的=ROW()=CELL("row")，请老师帮忙解答下，多谢！

学良

liang.hongzhi 发表于 2013-7-8 11:32
咨询一下，哪个条件格式怎么做的？我看公式就是一个=TRUE 就ok了，选择到某行显示特殊格式的公式我一直用的 ...

在 [数据库]工 作中还设了如下自定义函数
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  If Target.Row >= 5 Then   '5,是自五行向下
     On Error Resume Next
     [ChangColor_With1].FormatConditions.Delete
     Target.EntireRow.Name = "ChangColor_With1"
     With [ChangColor_With1].FormatConditions
      .Delete
      .Add xlExpression, , "TRUE"
      .Item(1).Interior.ColorIndex = 43  '43是颜色的编号, 可自已选择
      .Item(1).Font.ColorIndex = 5
     End With
  End If
End Sub