Office中国论坛/Access中国论坛

标题: 自动编号问题 [打印本页]

作者: ahzy2002 时间: 2002-12-24 23:56
标题: 自动编号问题
excel表格在有每一页小计，结束有总计的情况下，如何对有内容的行进行自动编号？请高手赐教！！！

作者: cattjiu 时间: 2002-12-25 00:43
每页重新编号还是接着前编号？

作者: ahzy2002 时间: 2002-12-25 22:11
接着编号

作者: cattjiu 时间: 2002-12-25 23:34
用VBA：
dim LineAll'区域
din NoFor'编号
DIM ROW1
lineall=activeshee.usedrange.rows.count
row1=x '开始编号位置
nofor=1
do while row<=lineall
if cells(row1,Y).value=需要编号的条件 then' Y为栏数
cells(row1,1).value=noFor'假定A栏放置编号
nofor=nfor+1
end if
row1=row1+1
loop
'------------
以上未做测试，应该可以。

[此贴子已经被cattjiu于2002-12-25 15:33:46编辑过]

作者: ahzy2002 时间: 2002-12-29 18:03
感谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)