看到您的回答,向您求助!VBA在单元格输入时自动合并指定单元格值

发布网友发布时间：2022-05-07 10:22

我来回答

共2个回答

热心网友时间：2023-10-25 21:35

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ym As Integer

If Target.Count = 1 And Target.Column = 2 Then

ym = Format(Date, "yymm")

Application.EnableEvents = False

If Len(Target.Value) < 5 Then

Target = ym & WorksheetFunction.Rept("0", 4 - Len(Target.Value)) & Target.Value

End If

Application.EnableEvents = True

End If

End Sub

注意要放到对应的工作表里面

热心网友时间：2023-10-25 21:35

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ym As Integer

If Target.Count = 1 And Target.Column = 2 Then

ym = Format(Date, "yymm")

Application.EnableEvents = False

If Len(Target.Value) < 5 Then

Target = ym & WorksheetFunction.Rept("0", 4 - Len(Target.Value)) & Target.Value

End If

Application.EnableEvents = True

End If

End Sub

注意要放到对应的工作表里面

热心网友时间：2023-10-25 21:35

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, t$
t = Format(Now(), "YYMM")
Application.EnableEvents = False
For Each c In Target
If c.Column = 2 And Not c = Empty Then
c = t & Format(c, "0000")
End If
Next
Application.EnableEvents = True
End Sub来自：求助得到的回答

热心网友时间：2023-10-25 21:35