powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Событие - обновление ячейки
13 сообщений из 13, страница 1 из 1
Событие - обновление ячейки
    #33233788
-GL-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть текущий workbook и текущая страница, с которой идет работа. Нужно при обновлении (изменении значения) некоторой ячейки, обновить определенные данные в какой-то ячейке на какой-то странице в другом workbook-е.Как это сделать? Помогите плззз.

п.с. Нужно обойтись без формул.
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #33233885
Код: plaintext
1.
2.
3.
4.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        MsgBox "Событие"
    End If
End Sub
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #33239196
-GL-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть ли какой-то более простой способ определить координаты ячейки, чье значение изменилось? А то знаете как-то неудобно циклом по всему листу прочесывать...
Да, и можно ли Target.Adress сравнивать не в виде "$A$1", а, допустим, (1,1)?
Мне так легче.
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #33239257
-GL-Есть ли какой-то более простой способ определить координаты ячейки, чье значение изменилось?
Этот вариант

Код: plaintext
1.
2.
3.
Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox "Изменилась ячейка. Строка: " _
      & Target.Row & " Столбец: " & Target.Column
End Sub

чем не устраивает?

-GL-Да, и можно ли Target.Adress сравнивать не в виде "$A$1", а, допустим, (1,1)?
Код: plaintext
If Target.Address = Cells( 1 ,  1 ).Address Then
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #33242337
-GL-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Thanx
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #33246910
-GL-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Что-то не работает обновление

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "updated"
End Sub

Ничего не выодит :(

Может я че-нить не так делаю?
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #33247204
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
-GL-Что-то не работает обновление

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "updated"
End Sub

Ничего не выодит :(

Может я че-нить не так делаю?

А куда ты этот код вставил?
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #33247217
-GL-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ok, хорошо. А куда его нужно вставить, чтобы он заработал?
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #33247381
Модуль листа.
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #33249452
-GL-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Microsoft Excel Objects > имя листа? Или modules? Или что еще?
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #33249960
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
-GL-Microsoft Excel Objects > имя листа? Или modules? Или что еще?
Нажми Alt F11
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Событие - обновление ячейки
    #37516787
Фотография Wipeout2097
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ, доброго всем времени суток! Утащу свои пять копеек, как говориться... ;)
Такой вопрос: а как смоделировать событие "Перед обновлением ячейки"? Ну, типа что-то вроде аналога в Аксессе - Before_Update (или Before_Change)? И возможно ли такое вообще?
P.S. это мне необходимо для специфической проверки введенного значения, которую я не смог обеспечить штатными средствами Excel (такими как Данные -> Проверка -> и т.д.
...
Рейтинг: 0 / 0
Событие - обновление ячейки
    #37516850
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Wipeout2097,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Worksheet_Change(ByVal Target As Range)
'вставлять в исходный текст листа
    If Not Intersect(Target, Range("C6")) Is Nothing Then
        'сравниваем значение ячейки с числом
        'If Range("C6").Value > 6 Then
        'сравниваем длину содержимого в ячейке
        'Функция CStr(Conversion to String) используется для приведения числового выражения в строку (тип String)
        If Len(CStr(Range("C6").Value)) >  6  Then
        'срабатывает, после ввода в ячейку С6 данных
        Range("C6").Select
            MsgBox "Введено неверное значение!"
        End If
    End If

End Sub
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Событие - обновление ячейки
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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