VBA переносы

[Vlad]

Помогите в коде на VBA сделать переносы. В процессе потерялись, а Бейсик никто не знает. Надо расставить переносы, чтобы в рабочую программу превратился код. 

Private Sub Worksheet_Change(ByVal Target As Range)Dim vValDim StrVal As StringDim dDate As Date If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A10")) Is Nothing Then With Target StrVal = Format(.Text, "000000") If IsNumeric(StrVal) And Len(StrVal) = 6 Then Application.EnableEvents = False dDate = DateValue(Left(StrVal, 2) & "/" & Mid(StrVal, 3, 2) & "/" & Right(StrVal, 2)) .NumberFormat = "dd/mm/yyyy" .Value = CDate(DateSerial(Year(dDate), Month(dDate), Day(dDate))) End If End With End If If Not Intersect(Target, Range("B2:B10")) Is Nothing Then With Target vVal = Format(.Value, "0000") If IsNumeric(vVal) And Len(vVal) = 4 Then Application.EnableEvents = False .Value = Left(vVal, 2) & ":" & Right(vVal, 2) .NumberFormat = "[h]:mm" End If End With End If Application.EnableEvents = TrueEnd Sub

[nerv]

а Бейсик никто не знает.

я знает =) На скорую руку

Private Sub Worksheet_Change(ByVal Target As Range)    Dim vValDim StrVal As StringDim dDate As Date     If Target.Cells.Count > 1 Then Exit Sub     If Not Intersect(Target, Range("A2:A10")) Is Nothing Then         With Target             StrVal = Format(.Text, "000000")             If IsNumeric(StrVal) And Len(StrVal) = 6 Then                 Application.EnableEvents = False                 dDate = DateValue(Left(StrVal, 2) & "/" & Mid(StrVal, 3, 2) & "/" & Right(StrVal, 2))                 .NumberFormat = "dd/mm/yyyy"                 .Value = CDate(DateSerial(Year(dDate), Month(dDate), Day(dDate)))             End If         End With     End If     If Not Intersect(Target, Range("B2:B10")) Is Nothing Then         With Target             vVal = Format(.Value, "0000")             If IsNumeric(vVal) And Len(vVal) = 4 Then                 Application.EnableEvents = False                 .Value = Left(vVal, 2) & ":" & Right(vVal, 2)                 .NumberFormat = "[h]:mm"             End If         End With     End If     Application.EnableEvents = TrueEnd Sub

[Vlad]

Спасибо.

[Нарек]

Такой понятный язык на первый взгляд)

[nerv]

Такой понятный язык на первый взгляд)

Он проектировался как "язык для офисных сотрудников"

Вместо

Dim vValDim StrVal As StringDim dDate As Date

должно быть

Dim vValDim StrVal As StringDim dDate As Date

=)

[Vlad]

Да, уже понял насчёт этой строки и исправил. Больше ошибок нет.

[Николя223]

Такой понятный язык на первый взгляд)

VBA вообще очень понятный язык... правда когда меня пытались обучить ему в 7 классе - я ничего не понимал в нем... лет через пять только когда самостоятельно его разбирать начал пришло понимание ))