求助VBA代码

Tina.棠

冰冰189 发表于 2024-5-9 20:36
需判断，当提取的字符大于6，或者小于5的时候不显示，谢谢！  
增加小于5的判断

也就是B2单元格只显示6位数的是吗？这样我还能少个判断……写的时候还以为你是特意要显示的

Tina.棠

Tina.棠 发表于 2024-5-9 20:53
也就是B2单元格只显示6位数的是吗？这样我还能少个判断……写的时候还以为你是特意要显示的

发代码还要审核，你把第五行的<= 改为 = 。第10行删掉（if开头），第12行删掉（end if开头）.第11行保留。这样应该就可以了

冰冰189

Tina.棠 发表于 2024-5-9 20:57
发代码还要审核，你把第五行的

好的非常感谢老师，辛苦啦！明天我改一下。

冰冰189

Tina.棠 发表于 2024-5-9 20:10
不确定是不是这样，试试看
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLa ...

老师早上好，现在还有一个问题，当A单元格显示值后，如果我要删除A单元格的信息时，提示运行代码错误“5”，然后触发事件全部失灵，能否在增加一个判断，当删除A单元格的值时VBA代码不会报错，继续运行。

Tina.棠

昨天晚上说的那两个地方你没改。代码部分地方我有关事件响应，你卡着的地方，执行了关闭响应，卡死在中间，没执行恢复响应。我直接发代码吧。你先把上面这个tt执行一下，然后应该就能恢复事件响应了。
Sub tt()
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge = 1 Then
        If Not Intersect(Target, Range("a:a")) Is Nothing Then
                If Len(Target.Value) = 8 Then
                    Application.EnableEvents = False
                    Cells(Target.Row, "B").Value = Mid(Target.Value, 3, Len(Target.Value) - 2)
                    Cells(Target.Row, "C").Value = Left(Target.Value, 2)
                    Application.EnableEvents = True
                    
                    Cells(Target.Row, "K").Value = Cells(Target.Row, "B").Value
                Else
                    Set Rng = Union(Range(Cells(Target.Row, "B").Address, Cells(Target.Row, "C").Address), Range(Cells(Target.Row, "K").Address, Cells(Target.Row, "N").Address))
                    Application.EnableEvents = False
                    Rng.ClearContents
                    Application.EnableEvents = True
                Exit Sub
               
                End If
            
        ElseIf Not Intersect(Target, Range("K:K")) Is Nothing Then
            If Target.Value = "" Then
                Cells(Target.Row, "L").Value = ""
            Else
                Cells(Target.Row, "L").NumberFormat = "yyyy/m/d"
                Cells(Target.Row, "L").Value = Date
               
            End If
        ElseIf Not Intersect(Target, Range("L:L")) Is Nothing Then
            myId = Cells(Target.Row, "K")
            myTime = 0
            For i = 2 To Target.Row
                If Cells(i, "K").Value = myId Then
                    myTime = myTime + 1
                End If
            Next i
            If myTime Mod 2 Then
                Cells(Target.Row, "M").NumberFormat = "HH:MM:SS"
                Cells(Target.Row, "M").Value = Now
            Else
                Cells(Target.Row, "N").NumberFormat = "HH:MM:SS"
                Cells(Target.Row, "N").Value = Now
            End If
        End If
    End If
End Sub

冰冰189

Tina.棠 发表于 2024-5-10 09:32
昨天晚上说的那两个地方你没改。代码部分地方我有关事件响应，你卡着的地方，执行了关闭响应，卡死在中间， ...

非常老师，所有代码非常。

张劲松2024

厉害！！！！！！！！！！！！！！！！！！！！！！！！！！！！！