- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 编号请教？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56243)
-- 发布时间：2014/9/1 20:15:00
-- 编号请教？
甜老大：好！
如果删除项目情况后，编号三自动变成二、投资预算，后面续排序，一般如何处理？
-- 发布时间：2014/9/1 20:17:00
--
例子发上来。
-- 发布时间：2014/9/1 20:37:00
--
项目模板中删除任意一编号的内容，如：2、短期投资及所属内容后，后面自动编号。详见模板。请指教，这样的模板如何制作？模板中的内容来自不同的表？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目18.zip |
-- 发布时间：2014/9/1 20:48:00
--
1、去学习vba知识；
2、每个单元格的值，用vba知识，取表的值，赋值进去；
3、不能通过模板实现移除行、自动编号和多个表
-- 发布时间：2014/9/1 21:00:00
--
我感觉vba运行太慢，所以才学狐表的，因为涉及的数据太多，表有1000多张且相互要勾稽计算，看来又要走回头路了！！
-- 发布时间：2014/9/1 21:03:00
--
呃.....只是叫你用vba删除对应的行和赋值，没有叫你计算。
1、先计算所有的数据保存在一个地方；
2、用vba操作excel赋值。
-- 发布时间：2014/9/1 21:11:00
--
劳驾帮助写一段删除后自动编号的代码如何？看来回避vba还是不行呀！
-- 发布时间：2014/9/1 21:18:00
--
参考代码
Dim file As String = "D:\\B2-21-1会计报表附注-新会计准则.xls"
FileSys.CopyFile(file, "d:\\temp.xls", True)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\\temp.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Rows("31:60")
Rg.Delete(MSExcel.XlDirection.xlUp) \'下面的单元格上移
\'对应的把各个单元格的值赋值为其它
App.Visible = True
-- 发布时间：2014/9/1 21:55:00
--
关键不知道客户删除多少行，在哪个事件里写？
-- 发布时间：2014/9/1 23:56:00
--
以下是引用hbhb在2014-9-1 21:55:00的发言：
关键不知道客户删除多少行，在哪个事件里写？
关键不知道客户删除多少行，在哪个事件里写？
1、删除多少行？这个是要定死的，每个编号必须是固定的行数；
2、生成报表的按钮那里写