如何根据前面的类型，在所有的工作表上填入单价并计算出金额

zhangzexue

hehex 发表于 2012-11-13 21:24
看附件吧，在目录表添加了一个区域用于输入土地的单价。只要在该区域内填入相应的土地类型的单价，程序会自 ...

有些单价不正确显示，看看先，多谢了！！！！！！！！！！！！！！！！

zhangzexue

hehex 发表于 2012-11-13 21:24
看附件吧，在目录表添加了一个区域用于输入土地的单价。只要在该区域内填入相应的土地类型的单价，程序会自 ...

看了你的代码，没有发现哪里错误啊，就是有些值不正确，部分不正确没有发现有问题啊

hehex

你好好看看你的子表吧，有的格式不对，还有把输入了数据的行给隐藏了的。结果我的程序给算出来合计了，咋一看没有数据怎么出来合计了，查了半天找不到问题，仔细一看你的子表格格式都不一致。
For i = 4 To xrow
                If sht.Cells(4, "c") = "" Then Exit For
                Select Case sht.Cells(i, "c").Value
                Case Is = "土"

最新的调整在上面的代码段加入了一个判断，如果你的表是空表即第一条记录的土地类型为空，就直接不计算该表退出。但是如果子表故意空一行后面填了就会忽略计算。你子表的格式填法不规范好，程序怎么写都会有问题的。
除非不用循环一个一个表进去访问，那样和你一个一个表自己进去没区别了。

zhangzexue

hehex 发表于 2012-11-13 22:41
你好好看看你的子表吧，有的格式不对，还有把输入了数据的行给隐藏了的。结果我的程序给算出来合计了，咋一 ...

我去看看，可能是录数据的人乱弄，我表都复制成一样的格式的，我再去看看。没有发现表格格式有什么不同之处啊，也没有发现隐藏。

zhangzexue

hehex 发表于 2012-11-13 22:41
你好好看看你的子表吧，有的格式不对，还有把输入了数据的行给隐藏了的。结果我的程序给算出来合计了，咋一 ...

检查了半天没有发现格式不一致的现象，也没有发现数据隐藏啊，你QQ是好多啊，给我发个私信加一下

hehex

是田和宅基地的填写单价有些问题，已经更改，参考附件。
隐藏行的子表有很多，造成看不清楚程序是否正确填写，比如梁大友的，再比如封达伦，后面还有好几张表。

zhangzexue

hehex 发表于 2012-11-14 09:31
是田和宅基地的填写单价有些问题，已经更改，参考附件。
隐藏行的子表有很多，造成看不清楚程序是否正确填 ...

太感谢了，没有搞懂隐藏行的子表是什么。

hehex

zhangzexue 发表于 2012-11-14 14:24
太感谢了，没有搞懂隐藏行的子表是什么。

你那些子表的名称应该是一些人名吧，比如梁大友这张表，明显是有很多隐藏行的，行里的数据看不到，也就不清楚具体数据是否正确填写，也不知道合计是否正确，这在调试程序的时候很麻烦。