Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Есть задача...подскажите как её решить.. / 3 сообщений из 3, страница 1 из 1
27.12.2006, 13:13:02
    #34227710
Есть задача...подскажите как её решить..
Наверное решение будет в макросе или массиве, формула боюсь не потянет ....

Задача: Требуется что при условии А1=А2 значение ячейки Н30 переходило в ячейку H29, а H30 становилось значением H29+O23, после этого О23 должно обнулиться.
Кто знает как это решить..?
...
Рейтинг: 0 / 0
27.12.2006, 13:25:43
    #34227764
Есть задача...подскажите как её решить..
Максим МоисеевНаверное решение будет в макросе или массиве, формула боюсь не потянет ....

Задача: Требуется что при условии А1=А2 значение ячейки Н30 переходило в ячейку H29, а H30 становилось значением H29+O23, после этого О23 должно обнулиться.
Кто знает как это решить..?

Извините ошибка в условии не О23 должно обнулиться, а другая ячейка М24....
...
Рейтинг: 0 / 0
27.12.2006, 17:50:37
    #34228755
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть задача...подскажите как её решить..
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
        If Range("$A$1").Value = Range("$A$2").Value Then
            Range("$H$29").Value = Range("$H$30").Value
            Range("$H$30").Value = Range("$H$29").Value + Range("$O$23").Value
            Range("$O$23").Value =  0 
        End If
    End If
End Sub
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Есть задача...подскажите как её решить.. / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]