Создание макроса для подсчета очков в ДАРТС

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание макроса для подсчета очков в ДАРТС (Макросы/Sub)

dem_dem_dem

Дата: Вторник, 01.04.2014, 07:32 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Низнаю как подойти к задаче.
Надо создать макрос при котором вписывая в ячейку Т9 будет по Enter в эту же ячейку записывться утроение 9
и анологично:
Т10=30
Т20=60
а если ставим D то удвоение
D20=40
Покопался в форуме но ничего не нашел. И в яндексе нет.

Ответить

Dмитрий

Дата: Вторник, 01.04.2014, 11:05 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 91

Репутация: 9 ±

Замечаний: 40% ±

Excel 2010

Цитата

Надо создать макрос при котором вписывая в ячейку Т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]

Ответить

Wasilich

Дата: Вторник, 01.04.2014, 11:15 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Так?
[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

[/vba]