Низнаю как подойти к задаче. Надо создать макрос при котором вписывая в ячейку Т9 будет по Enter в эту же ячейку записывться утроение 9 и анологично: Т10=30 Т20=60 а если ставим D то удвоение D20=40 Покопался в форуме но ничего не нашел. И в яндексе нет.
Низнаю как подойти к задаче. Надо создать макрос при котором вписывая в ячейку Т9 будет по Enter в эту же ячейку записывться утроение 9 и анологично: Т10=30 Т20=60 а если ставим D то удвоение D20=40 Покопался в форуме но ничего не нашел. И в яндексе нет.dem_dem_dem
Надо создать макрос при котором вписывая в ячейку Т9 будет по Enter в эту же ячейку записывться утроение 9
Не совсем понятно, зачем что-то вписывать в Т9, если при любом раскладе нужно получить 27 Я понял так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("D1:D1000"), Target) Is Nothing Then If Intersect(Range("T1:T1000"), Target) Is Nothing Then Exit Sub Else If Target.Count > 1 Then Exit Sub Dim R: R = Target.Row Cells(R, 4) = R * 2 End If
If Intersect(Range("T1:T1000"), Target) Is Nothing Then If Intersect(Range("D1:D1000"), Target) Is Nothing Then Exit Sub Else If Target.Count > 1 Then Exit Sub Dim A: A = Target.Row Cells(A, 20) = A * 3 End If
End Sub
[/vba]
Цитата
Надо создать макрос при котором вписывая в ячейку Т9 будет по Enter в эту же ячейку записывться утроение 9
Не совсем понятно, зачем что-то вписывать в Т9, если при любом раскладе нужно получить 27 Я понял так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("D1:D1000"), Target) Is Nothing Then If Intersect(Range("T1:T1000"), Target) Is Nothing Then Exit Sub Else If Target.Count > 1 Then Exit Sub Dim R: R = Target.Row Cells(R, 4) = R * 2 End If
If Intersect(Range("T1:T1000"), Target) Is Nothing Then If Intersect(Range("D1:D1000"), Target) Is Nothing Then Exit Sub Else If Target.Count > 1 Then Exit Sub Dim A: A = Target.Row Cells(A, 20) = A * 3 End If
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Left(Target, 1) = "T" Then Target = Val(Mid(Target, 2)) * 3 If Left(Target, 1) = "D" Then Target = Val(Mid(Target, 2)) * 2 End Sub
[/vba]
Так? [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Left(Target, 1) = "T" Then Target = Val(Mid(Target, 2)) * 3 If Left(Target, 1) = "D" Then Target = Val(Mid(Target, 2)) * 2 End Sub