插入.EntireRow.Insert宏只有第一次有用

chxw68 · 发表于 2017-8-17 14:26

不就是插入一行吗，不需要整那么多高大上的代码。

ry719533094 · 发表于 2017-8-17 14:46

chxw68 发表于 2017-8-17 14:26
不就是插入一行吗，不需要整那么多高大上的代码。

老师刚刚那个问题自己解决了，然后看了您写的代码，感觉明明几句搞定的给我写了那么长

ry719533094 · 发表于 2017-8-17 15:09

chxw68 发表于 2017-8-17 14:26
不就是插入一行吗，不需要整那么多高大上的代码。

老师不是做插入一行那么简单还有东西要整，所以才那么写的，我后面还写了一个删除，然后现在还有2个问题，需要请教老师，请老师解答下，问题如下：第一个问题：excel workingsheet里的c8(插入行之前是c8)是用公式求得c3到c7的平均值（=AVERAGE(C3:C7)），是写死的，然后现在的需求是这样的，想每插入一行那个求平均值的跟着变，比如插入了一行那个平均值公式就变为（=AVERAGE(C3:C8)）这种的，求教如何实现
第二个问题：E列是cost,cost列的值是根据D列下拉框选择来的选择不同的下来框根据对应的公式算出对应的值，公式如下{E:{UP*2:C*2,UP*3:C*3,UP*5:C*5,AVG:C-C8}} c8是平均值。
求老师帮忙解答，万分感谢

ry719533094 · 发表于 2017-8-17 15:12

附上最新excel

chxw68 · 发表于 2017-8-17 15:18

ry719533094 发表于 2017-8-17 15:09
老师不是做插入一行那么简单还有东西要整，所以才那么写的，我后面还写了一个删除，然后现在还有2个问题 ...

你想实现什么目的，直接说你的需要就行了，帮助者会根据自己的习惯写代码的。看了半天你的代码，不知道你想干什么。

ry719533094 · 发表于 2017-8-17 15:33

chxw68 发表于 2017-8-17 15:18
你想实现什么目的，直接说你的需要就行了，帮助者会根据自己的习惯写代码的。看了半天你的代码，不知道你 ...

老师有4个需求：1.添加行，要求是在平均值那一行上面添加
                        2.求平均值，每插入一行，平均值的计算需要加入该行一起计算
                        3.E列是cost,cost列的值是根据D列下拉框选择来的选择不同的下来框根据对应的公式算出对应的值，公式如下{E:{UP*2:C*2,UP*3:C*3,UP*5:C*5,AVG:C-C8}} c8是平均值。例子当D3为UP*2时E3的值为C3*2,当D4为UP*5时E4的值为C4*5,当D3为AVG时E3的值为C3-C8(C8为平均值)
                     4.删除行

ry719533094 · 发表于 2017-8-17 17:18

chxw68 发表于 2017-8-17 15:18
你想实现什么目的，直接说你的需要就行了，帮助者会根据自己的习惯写代码的。看了半天你的代码，不知道你 ...

老师帮看看能解决吗

chxw68 · 发表于 2017-8-17 17:27

ry719533094 发表于 2017-8-17 17:18
老师帮看看能解决吗

简单问题复杂化。

ry719533094 · 发表于 2017-8-17 17:39

chxw68 发表于 2017-8-17 17:27
简单问题复杂化。

没有办法，给的调研题目就是这样的。。

ry719533094 · 发表于 2017-8-18 09:27

chxw68 发表于 2017-8-17 17:27
简单问题复杂化。

老师求解答，那个下拉框选择计算结果的，是不是可以在宏里面写if else这种的，第一次接触vba求解答

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

[求助] 插入.EntireRow.Insert宏只有第一次有用

评分

最新热点 /1