[已解决]如何将两段代码合并，谢谢！

huangjinyui

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target <> "" Then
        Target.Offset(0, 1) = Format(Now(), "yyyy-m-d")
    ElseIf Target.Column = 2 Then
        Target.Offset(0, 1) = ""
    End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
    S = S + 1
    On Error Resume Next
    If Target.Count = 1 And Target.Column = 2 And Target.Row >= 2 Then
        If Target <> "" Then
            For I = Target.Row - 1 To 2 Step -1
                If Range("B" & I) <> "" Then S = S + 1
            Next I
            Target.Offset(, -1).NumberFormatLocal = "@"
            Target.Offset(, -1) = Format(S, "00")
        Else
            Target.Offset(, -1) = ""
        End If
        
    End If

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-6-1 16:58

回复 huangjinyui 的帖子

根据输入人名生自动生成序号(VBA)-2.rar (11.15 KB, 下载次数: 30)

2011-6-1 16:58 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

回复 huangjinyui 的帖子

根据输入人名生自动生成序号(VBA)-2.rar (11.15 KB, 下载次数: 30)

2011-6-1 16:58 上传

点击文件名下载附件

殘剑

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Row > 1 And Target.Column = 2 Then
   
4.     Application.EnableEvents = False
   
5.     If Len(Target) Then
   
6.         Target.Offset(, 1) = Date
   
7.         Target.Offset(, -1).NumberFormatLocal = "@"
   
8.         Target.Offset(, -1) = Format(WorksheetFunction.CountA(Range("b2", Target)), "00")
   
9.     Else
   
10.         Target.Offset(, 1).ClearContents
    
11.         Target.Offset(, -1).ClearContents
    
12.     End If
    
13.     Application.EnableEvents = True
    
14. End If
    
15. End Sub

复制代码

huangjinyui

谢谢各位老师，谢谢！

sunjing-zxl

学习帅帅

gakk117

过来学习 向老师学习