当前位置随笔 >> 修订《饲料配方价格核算（用excel制作）》过程记录

修订《饲料配方价格核算（用excel制作）》过程记录

[ 字号：大中小 ] [ 关闭 ] 2009-4-19 15:06:46 原创作者：hzlyc 浏览次数：次

2009-4-15 0:31:09

今天开始修订《配方价格核算》，

是根据预混料生产报表中的小料配方、预混料配方两个工作表以及原价格核算中的原料价格、价格核算表进行的，做到了这两个系统统一，也就是原料的排序、配方表的格式都是一样的，这样有利于，修改报表。

今天也用到成组编辑工作表，还是比较省时、省力的。

--------------------------------------------

2009-4-19 1:29:57

这几天一直在做《配方价格核算》，今天基本上算做好了。比预想的要顺利，并且达到了比较满意。原先考虑到的功能都基本实现了。

在16号去掉了加载宏，决定只用函数公式做。加载宏在这个表中用处不大。取消了连接到其他表的公式，因几个表是从其他工作薄复制移动过来的，去掉连接的公式一开始无从下手，最后才找到了办法：选公式—显示公式，就能很快的找到连接的公式。

花了一上午时间把原配方转移到了这个新的工作薄。还好原来的配方格式与现在的差别不是太大，只是个顺序的问题，几十个配方也没有费很长的时间。结果与原来的基本上没有差别。
-----------------

16日还做了一项重要工作，进行营养指标的核算。

先是从配方软件中导出营养指标，新建一个工作表，用来存放营养指标和配方，并相到将来每个系列都能在这里，复核营养指标以及方便的打印。

要把每个系列配方都能转移到这里，这就用到了查找函数。这次用的是：=INDEX(高档猪料!E4:E29,MATCH(高档猪料!C4,高档猪料!C4:C29,0))，这样配方就到这个工作表了。

接下来是计算营养指标，用到了函数=SUMPRODUCT($B$3:$B$38,E3:E38)，用B列的配方去乘E列的单个营养指标，得到配方中该指标结果。向后复制公式得到其他指标的结果。

这样各营养指标虽然计算出来了，但不符合成列的要求，这就用到了选择性粘贴的转置命令。先在空白区域用等号转移营养指标，再用选择性粘贴的转置命令，就可以了，否则转置的不带公式，将来配方变动时，营养指标不会变动。

---------------------

16日，由于想营养指标工作表中查其他配方数据，用INDEX函数不行，因为他无法查找其他列的配方数据。

后来想到了VLOOKUP函数，经过查找帮助，也未能解决问题，后来才明白，这个函数只能查找列中的数据，查找行需要用HLOOKUP，改成这个函数，再结合下拉列表就可以实现了。=HLOOKUP($C$1,高档猪料!$E$2:$L$31,6,FALSE)，因为“高档猪料!$E$2:$L$31”是一个区域。用数据有效性做了个下拉框，很快实现了计算其他配方的营养指标。

“高档猪料!$E$2:$L$31”在公式中不方便，因为增加配方后公式要一个一个的更改，所以进行了名称定义。按“CTRL+F3"键进行。同理其他的也进行定义。
-------------------------------------------

2009-4-19 12:24:17

17日，上日做的只能计算常规原料的营养指标，小料中的氨基酸及矿物质不能计算，用同样的方法设置了计算预混料配方中的营养指标。

这样一来原来设计的按小类别计算，需要的工作表较多，因此，分成了四大类，即肉鸡料、肉鸭料、蛋鸡料、猪料。并把小类别原录入配方分别归并其中。这样即利于查找，又利于分类设置营养指标。这里要注意，选择时要先选定大料的配方，再选择预混料配方，因预混料配方对应不同的大料配方。

现在的问题就只有，“如何提取一列中有公式并且结果有“0”不连续的数据存放成为连续的一列”了。下午在原来下来的资料中查找，也不能找到结果，只好到网上求救了，2009-4-17 16:29到了EXCELHOME，发了帖子，http://club.excelhome.net/viewthread.php?tid=423266 ，10分钟后就有好心的人给了答案，测试一下果然好用，正是我要的效果。通过这两次的求救，这个论坛还是有好多热心人的，也就是这个网站人气旺的原因之一。以后要多利用这个论坛来学习EXCEL。

不过问题又出来了：不能设置小数位数，是计算结果的全部值，如何才能保留小数位数为1位呢？17:27又到该贴进行了提问，并用站内短消息给我解答的网友发了信息，以便得到他的帮助。

晚上回到家上了网他已给出了答案。真的谢谢lzzgzby网友。http://club.excelhome.net/space-uid-524138.html

最终答案：j2=T(TEXT(INDEX(A:A,SMALL(IF($B$2:$B$15&""<>"0",ROW($B$2:$B$15),4^8),ROW(1:1))),"[<>0]0.0;"))此为数组公式。

为了回报论坛，我对这个贴子进行了整理，并更新了帖子主题（如何使一列不连续的数据排成连续的，不连续数据有公式且结果有0、设置数据1位(已解决) ），以便后来的网友能顺利的搜索到。

----------------------------------