编号代码

西边这片天 · 发表于 2021-9-19 10:43

我是VBA未入门者，学着吃力，但热衷于VBA，求助各位能帮帮这个代码！！！

鄂龙蒙 · 发表于 2021-9-19 11:31

C2=IF(B2="","","4121721" & TEXT(COUNTIF(B$2:B2,"*"), "0000") & IF(B2="男",1,2))

3190496160 · 发表于 2021-9-19 11:56

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Column = 2 Then
If T.Count > 1 Then Exit Sub
If T.Value = "" Then Exit Sub
If T.Value = "男" Then
xb = 1
Else
xb = 2
End If
T.Offset(, 1) = "4121721" & Format(T.Row - 1, "0000") & xb
End If
End Sub

3190496160 · 发表于 2021-9-19 11:56

编码自动生成.rar (12.44 KB, 下载次数: 6)

西边这片天 · 发表于 2021-9-19 14:06

鄂龙蒙发表于 2021-9-19 11:31
C2=IF(B2="","","4121721" & TEXT(COUNTIF(B$2:B2,"*"), "0000") & IF(B2="男",1,2))

函数居然有这种妙用。看来只是要学会才能运用得好。感谢帮助！

西边这片天 · 发表于 2021-9-19 14:10

3190496160 发表于 2021-9-19 11:56
Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Column = 2 Then
If T.Count > ...

这段代码简洁又好用，其实就是要看看有两个判断时怎么用，正合用意，受益了。感谢帮助！

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

[求助] 编号代码