請問大家在vba中怎么實現001~~999的遞增﹐急﹗﹗﹗

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

請問大家在vba中怎么實現001~~999的遞增﹐急﹗﹗﹗

发表于：2007-09-10 15:02:42 楼主

請問大家在vba中怎么實現001~~999的遞增

发表于：2007-09-10 15:10:131楼得分:0

什么意思？format?

dim s as string
for i=0 to 999
s=format（i, "000 ")
debug.peint s
next

这个？

发表于：2007-09-10 15:22:572楼得分:0

不是的﹐一開始為1﹐我想單擊一下按鈕就加1﹐一直遞增相加到999

发表于：2007-09-10 16:16:043楼得分:0

dim s as string
static i as integer

if i <0 or i> 999 then
i=0
end if
i=i+1
s=format（i, "000 ")
? s