[已解决]自动编号问题

sdwffw · 发表于 2013-5-22 07:20

book1.rar (8.43 KB, 下载次数: 11)

wp8680 · 发表于 2013-5-22 08:36

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 4 Then
If Target.Value <> "" Then
Me.Cells(Target.Row, 1) = Target.Row - 1
Me.Cells(Target.Row, 2) = "(" & Sheets("设置").Range("a2") & ")-" & Sheets("设置").Range("b2") & Format(Me.Cells(Target.Row, 1), "-00000")
End If
End If
End Sub

复制代码

做了一半，有事要出去，先放一放。

sdwffw · 发表于 2013-5-22 10:35

本帖最后由 sdwffw 于 2013-5-22 10:38 编辑

老师，有几个问题：
1、从D4单元格开始，在D列录入数据后，点击其它单元格，不自动生成序号和档案编号，再回点时，才自动生成；想法是D列录入数据后，离开本单元格时即生成。
2、档案编号应在C列生成，现在是在B列生成。
3、序号是从2开始的，不是从1 开始。
请老师指教，非常感谢。

sdwffw · 发表于 2013-5-22 10:49

试了试，第2、3问题做如下修改，就可以了：
Me.Cells(Target.Row, 1) = Target.Row - 2
Me.Cells(Target.Row, 3 = "(" & Sheets("设置").Range("a2") & ")-" & Sheets("设置").Range("b2") & Format(Me.Cells(Target.Row, 1), "-00000")
第1个问题不知如何修改

ligh1298 · 发表于 2013-5-22 10:57

'试试？

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 4 Then
If Target.Value <> "" Then
Me.Cells(Target.Row, 1) = Target.Row - 2
Me.Cells(Target.Row, 3) = "(" & Sheets("设置").Range("a2") & ")-" & Sheets("设置").Range("b2") & Format(Me.Cells(Target.Row, 1), "-00000")
End If
End If
End Sub

复制代码

sdwffw · 发表于 2013-5-22 11:40

谢谢老师，测试没问题。原题中还有“A、C列数据随D列数据自动生成，不能手工输入；D列数据删除时， A、C对应数据自动删除”问题，请老师看看。

1091126096 · 发表于 2013-5-22 12:59

本帖最后由 1091126096 于 2013-5-22 13:01 编辑

Sub 生成()
Dim I, WB1, WB2
WB1 = "(" & Sheets("设置").Range("A2") & ")"
WB2 = Sheets("设置").Range("B2")
For I = 3 To Range("D65536").End(xlUp).Row
If Cells(I, 4) <> "" Then
Cells(I, 3) = WB1 & "-" & WB2 & "-" & "0000" & I - 2
End If
Next I
End Sub

复制代码

看附件

wp8680 · 发表于 2013-5-23 11:18

这个最佳答案由 wp8680 给出，感谢 wp8680 的回答。

单击隐藏图章

book1.rar (11.38 KB, 下载次数: 5)

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

[已解决]自动编号问题

浏览过的版块