Excel: if/then?

[Dara]

С 9-ти часов мучаюсь:
Есть колонка RecentAktivities (RA) и колонка Date (D). Надо, чтобы при внесении изменений в RA, в D обновлялась дата, если изменений нет - дата оставалась прежней.

Беда в том, что я не програмирую , пыталась сделать на основе функзий Excell, например: создать дополнительную колонку RA1. Если RA<>RА1, то D=today() and RА1=RА. Никак не могу задать два результата в функzии if.

Народ, если-таки придется влезать в VB, можно обяснить как для выпускника економики?

[alibek]

Код требуемого листа:

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)
'замени 2 на номер твоей колонки RA
'замени 3 на номер твоей колонки D
'если колонки ограничены по вертикали, надо
'ввести дополнительную проверку Target.Row
If Target.Column = 2 Then
  Cells(Target.Row, 3).Value = Now()
End If
End Sub

[Dara]

Долго думала. Не понятно:

1. Target означает изменения в колонке?
2. Как это дело запустить?

[GSerg]

Как знал, как знал

Открыть файл. Нажать Alt+F11. Нажать Ctrl+R. Узреть дерево проекта (обычно слева). Найти там искомый лист. Даблкликнуть по нему. Вставить приведённый код в появившееся окно.

[Dara]

А как запустить?

[GSerg]

Приведённый мануал является исчерпывающим

[Dara]

Согласна, тогда не работает
Вот что поменяла:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = AO
Then
Cells(Target.Row, D).Value = Now()
End If
End Sub

[GSerg]

Номер...
Номер ставь...
А если буквой, то в кавычки её (их)...
Но в первом случае всё равно нужен номер.

[Dara]

так?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = [AO] Then
Cells(Target.Row, [D]).Value = Now()
End If
End Sub

А номер, это столбики считать ?

[Igor_123]

Нет, не так!
Так
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 41 Then
Cells(Target.Row, "D").Value = Now()
End If
End Sub

Ну зачем столбики считать
в ячейках А1 ставишь 1, в А2 - 2, выделяешь две ячейки и тащищь сколько надо, потом смотришь номер

Удачи!

[Dara]

Черт, я тут совсем за день отупела

Все равно не работает

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 41 Then
Cells(Target.Row, 4).Value = Now()
End If
End Sub

[Dara]

А как грамотно на ВБ написать алгоритм:

if AO21<>AP21
then (D21=now() and AP=AO21)

[Igor_123]

Private Sub Worksheet_Change(ByVal Target As Range) - вызывается самим Екселем каждый раз когда происходит редактирование ячейек листа.
If Target.Column = 41 Then - проверяется на номер столбца и ести номер столбца изменяемой ячейки равен тому, который нужен обновляем дату:
Cells(Target.Row, "D").Value = Now()
И все!

if AO21<>AP21
then (D21=now() and AP=AO21)

Что такое АО21, АР21?

[Dara]

Да, именно такой проверки хотелось. Почему ж не работает?

/if AO21<>AP21
/then (D21=now() and AP=AO21)

это с чего я начинала (сорри за бездумный copy-paste)
примерно:
if RA<>RA1
then (D=now() and RA1=RA), хотела создать дополн.столбик для проверки, но теперь вроде не нужно

Cells(Target.Row, "D").Value = Now() "D"заменила на 4 = N столбика

[Igor_123]

Возможно отключены макросы
Меню "Сервис"->"Макрос"->"Безопасность"
средний уровень поставь

Процедура не на нужном листе вставлена

[AlexG]

Прочитал ветку.......просто плакал....)

[Igor_123]

просто плакал

Правильно делал, смеятся - грешно!

Кстати решил с Exchange???

[Dara]

Да, меня уже поздравили с новой серией КИСА-КУКУ. А что вы хотели от выпускницы международных отношений с русским языком как иностранный и латинской клавиатурой

Кому интересно - пытаюсь включить макросы

[AlexG]

Да нет ребят....я без издевки...

Просто я сунулся сюда только после того как прочитал не менее двух книг по VBA....

To Igor_123: пока не решил....я себя вольготно чувствую в VBA/Excel.....но если сунуться в чужое приложение, такое как Outlook - слаб....

Ниччеее выберемся.....

[Igor_123]

Пример то хоть работает???

При среднем уровене будет, приоткрытии книги с макросами, задавать один из фундаментальных вопросов русской интилигенции "Что делать?".

Включила???


2 AlexG так это ещё и Outlook!!!
Я думал это в Екселе!!!
В понедельник дам ссылку на книжки по Outlook.
Мож помогут

[Dara]

УррА! Заработало
Но не знаю, почему Макросы включила, вопрос не вылезал.

Не знаю, стоит ли читать книгу по VB, ведь сразу видно, что не мое

Огромное вам, ребята, спасибо.

З.Ы. И на прощание не удержалась:
если то же надо для столбика 42, то?

Private Sub Worksheet_Change1 (ByVal Target As Range)
If Target.Column = 42 Then
Cells(Target.Row, 4).Value = Now()
End If
End Sub

[Igor_123]

УррА! Заработало
Но не знаю, почему Макросы включила, вопрос не вылезал.

Не знаю, стоит ли читать книгу по VB, ведь сразу видно, что не мое

Огромное вам, ребята, спасибо.

З.Ы. И на прощание не удержалась:
если то же надо для столбика 42, то?

Private Sub Worksheet_Change1 (ByVal Target As Range)
If Target.Column = 42 Then
Cells(Target.Row, 4).Value = Now()
End If
End Sub

Да