如何使的插入行自動帶入上一行的公式(已結案)

konicchu · 发表于 2010-4-20 14:26

如何使的插入行自動帶入上一行的公式

插入行自動帶入公式.rar (51.36 KB, 下载次数: 118)

Sorry,還需要些微的改動。希望每次點插入按鈕時，都是在列12和13之間插入一行，最好再彈出一窗口給用戶輸入“插入XX行”。

為什麼要在列12和13之間插入呢？因為下面有一些統計函數，如用到范圍B$12:B14，如果在12和13列之間插入一行，函數范圍就會變成 B$12:B15；如果在原始表格最後一行下面插入一行，范圍就不會變，還是B$12:B14，那麼B15的數據就沒法參與計算了

[ 本帖最后由 konicchu 于 2011-1-13 09:41 编辑 ]

来生缘 · 发表于 2010-4-20 14:34

看不懂。。。

lorvoo · 发表于 2010-4-20 14:48

LZ试试看这个可以吗？

_________.rar (53.89 KB, 下载次数: 448)

konicchu · 发表于 2010-4-20 14:50

如圖，我在列13上面插入行，希望插入的行和列12具有相同的函數設置。
附件A12:B14單元格是有函數的
因為表格是做給供應商來填的，所以單元格將鎖定，不然函數會被他們破壞
想設置一個按鈕，到時填寫人員隻要點那個按鈕，就可以增加一行，就是不知道怎樣將函數導進來

（我們的供應商很多，不同的材料他們的零部件數量不一樣，有的可能就2個材料，有的可能有400多個材料，所以材料多的時候我就讓他們自己增加行來填寫）

konicchu · 发表于 2010-4-20 14:53

非常感謝lorvoo 的回復，就是我想要的結果

lorvoo · 发表于 2010-4-21 10:49

原帖由 konicchu 于 2010-4-20 14:26 发表
如何使的插入行自動帶入上一行的公式702948

Sorry,還需要些微的改動。希望每次點插入按鈕時，都是在列12和13之間插入一行，最好再彈出一窗口給用戶輸入“插入XX行”。

為什麼要在列12和13之間插入呢？因為下面 ...

再看看，没有优化代码，插入多行可能会慢点。

_________.rar (54.5 KB, 下载次数: 92)

konicchu · 发表于 2010-4-22 08:48

謝謝lorvoo 的回復
插入多行還真是慢呢

lorvoo · 发表于 2010-4-22 10:05

原帖由 konicchu 于 2010-4-22 08:48 发表
謝謝lorvoo 的回復
插入多行還真是慢呢

去掉了原来的循环语句，现在快了，插入2行和20行差不多时间。

_________.rar (54.64 KB, 下载次数: 404)

konicchu · 发表于 2010-4-22 10:20

確實快了，就這樣比較好。
非常感謝！

yaozong · 发表于 2010-4-22 11:24

確實快了！
i = Application.InputBox(Prompt:="How many Rows?", Type:=1)
改略为:
i = InputBox("How many Rows?")
可消除对话框关闭时瞬间的阴影。

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

[已解决] 如何使的插入行自動帶入上一行的公式(已結案)