[已解决]求一个自动编号的问题

syt188702 · 发表于 2011-9-16 15:48

求老师解难，b2<>"",  a2=1887020001
               b3<>"",  a3=1887020002
                           ....................
               b100<>"", a99=1887020100
               位数相同
用VBA表示，谢谢

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2011-9-16 23:02

回复 syt188702 的帖子

内容2. If Target.Count = 2这个的意思是选择的单元格是2个单元格。

由于我们都只能对一个单元格操作!所以2. If Target.Count = 1 才行

跳转到最佳答案楼层

mxg825 · 发表于 2011-9-16 15:58

遇到 =空是跳过还是怎样处理？

syt188702 · 发表于 2011-9-16 15:59

回复 mxg825 的帖子

回老师，空格停止

无聊的疯子 · 发表于 2011-9-16 16:00

回复 syt188702 的帖子

K=1887020001
for x=2 to 100
if cells(x,2)<>"" then
cells(x,1)=k
K=K+1
END IF
next

syt188702 · 发表于 2011-9-16 16:05

回复无聊的疯子的帖子

回老师，当B单元格有数据时，A 单元格自动编号(累加并位数相同)

syt188702 · 发表于 2011-9-16 16:06

回复 syt188702 的帖子

回老师，当B单元格有数据时，A 单元格自动编号(累加+1并位数相同)

mxg825 · 发表于 2011-9-16 16:21

本帖最后由 mxg825 于 2011-9-16 16:21 编辑

Sub 自动编号()
Dim X%, Y%
For X = 2 To 100
If Cells(X, 2) = "" Then Exit For
Y =Y + 1
Cells(X, 1) = "'188702" & VBA.Format(Y, "0000")
Next X
End Su

复制代码

syt188702 · 发表于 2011-9-16 16:27

回复 mxg825 的帖子

回老师，谢谢，效果是如此，能否给加一个自动，当B单元格<>""自动运行代码，谢谢

baojianming · 发表于 2011-9-16 16:35

Sub test()
Dim y%
y = 1
Do While Cells(y, 2) <> ""
Cells(y, 1) = "'188702" & VBA.Format(y, "0000")
y = y + 1
Loop
End Sub

syt188702 · 发表于 2011-9-16 16:44

回复 baojianming 的帖子

回老师，经测试，老师的代码把标题行已改了，谢谢

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