Private Sub Worksheet_Change(ByVal Target As Range)On Error Resume NextIf Len(Target) > 1 ThenApplication.EnableEvents = FalseFor i = 1 To Len(Target)If Len(xx) = 0 Thenxx = Mid(Target, i, 1)Elsexx = xx & " " & Mid(Target, i, 1)End IfNextTarget = xxApplication.EnableEvents = TrueEnd IfEnd Sub
کامنت