ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск макроса при записи в области ячеек цифровых значений?
10 сообщений из 10, страница 1 из 1
Запуск макроса при записи в области ячеек цифровых значений?
    #35121097
Константин Сочи
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Константин Сочи
Гость
Подскажет кто нибудь.
Есть Столбец J:J с пустыми ячейками
Необходимо запускать макрос как только в этом столбце
появится цифровое значение?
...
Рейтинг: 0 / 0
08.02.2008, 18:25:05
| Ответить | Цитировать | Написать  
Запуск макроса при записи в области ячеек цифровых значений?
    #35121216
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
смотри на событие Worksheet_Change()
...
Рейтинг: 0 / 0
08.02.2008, 19:30:12
| Ответить | Цитировать | Написать  
Запуск макроса при записи в области ячеек цифровых значений?
    #35121231
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Константин СочиПодскажет кто нибудь.
Есть Столбец J:J с пустыми ячейками
Необходимо запускать макрос как только в этом столбце
появится цифровое значение?

В модуль Листа вставь


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range, iCel As Range
 Set myRng = Intersect(Target, Columns( 10 ))
 If Not myRng Is Nothing Then
  For Each iCel In myRng
   If iCel <> "" Then
    MsgBox "ты меня запустил :)"
    Exit For
   End If
  Next iCel
 End If
End Sub
...
Рейтинг: 0 / 0
08.02.2008, 19:44:58
| Ответить | Цитировать | Написать  
Запуск макроса при записи в области ячеек цифровых значений?
    #35121327
кладовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кладовщик
Участник
Deggasad Константин СочиПодскажет кто нибудь.
Есть Столбец J:J с пустыми ячейками
Необходимо запускать макрос как только в этом столбце
появится цифровое значение?

В модуль Листа вставь


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range, iCel As Range
 Set myRng = Intersect(Target, Columns( 10 ))
 If Not myRng Is Nothing Then
  For Each iCel In myRng
   If iCel <> "" Then
    MsgBox "ты меня запустил :)"
    Exit For
   End If
  Next iCel
 End If
End Sub

Наверное, описались.
Вместо
Код: plaintext
If iCel <> "" Then
нужно вставить другую проверку.
Если тред-стартер не путает число с цифрой, то нужно проверять, не является ли iCell.Value цифрой.
...
Рейтинг: 0 / 0
08.02.2008, 21:03:52
| Ответить | Цитировать | Написать  
Запуск макроса при записи в области ячеек цифровых значений?
    #35121426
Константин Сочи
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Константин Сочи
Гость
Чегото блин работает но не так.
При записи в ячейку всплывает окно с именем....
а вот как запустить отдельный макрос книги.
К примеру "Макрос1"
несоображу
...
Рейтинг: 0 / 0
08.02.2008, 22:44:48
| Ответить | Цитировать | Написать  
Запуск макроса при записи в области ячеек цифровых значений?
    #35121430
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Константин СочиЧегото блин работает но не так.
При записи в ячейку всплывает окно с именем....
а вот как запустить отдельный макрос книги.
К примеру "Макрос1"
несоображуAlt+F8
...
Рейтинг: 0 / 0
08.02.2008, 22:46:34
| Ответить | Цитировать | Написать  
Запуск макроса при записи в области ячеек цифровых значений?
    #35121488
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Константин СочиЧегото блин работает но не так.
При записи в ячейку всплывает окно с именем....
а вот как запустить отдельный макрос книги.
К примеру "Макрос1"
несоображу
Да уж длин
вместо строки
Код: plaintext
[FIXED]    MsgBox "ты меня запустил :)"[/FIXED]
Вставляем своё имя макроса
...
Рейтинг: 0 / 0
08.02.2008, 23:58:54
| Ответить | Цитировать | Написать  
Запуск макроса при записи в области ячеек цифровых значений?
    #35121627
Константин Сочи
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Константин Сочи
Гость
Спасибо большое.
Теперь можно неработать.
Все само считает и думает
...
Рейтинг: 0 / 0
09.02.2008, 10:55:12
| Ответить | Цитировать | Написать  
Запуск макроса при записи в области ячеек цифровых значений?
    #35121882
Константин Сочи
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Константин Сочи
Гость
А вот косяк.
Если в этом диапазоне вставляеш значение то макрос запускается так как надо.
Но, если я удаляю строку, а под ней существуют не пустые значения( а именно в указанном ряду),
то эти значения соответственно поднимаются на место удаляемой строки и опять запускается макрос...
Как можно исключить такое действие макроса
...
Рейтинг: 0 / 0
09.02.2008, 16:50:47
| Ответить | Цитировать | Написать  
Запуск макроса при записи в области ячеек цифровых значений?
    #35121938
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Проще всего так, но так и свтавка новой строки со значением в столбце J не будет запускать
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Option Explicit
Dim flag As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then

Dim myRng As Range, iCel As Range
 Set myRng = Intersect(Target, Columns( 10 ))
 If Not myRng Is Nothing Then
  For Each iCel In myRng
   If iCel <> "" Then
    MsgBox "ты меня запустил :)"
    Exit For
   End If
  Next iCel
 End If

End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   flag = Not (Target.Columns.Count = Cells.Columns.Count)
End Sub
...
Рейтинг: 0 / 0
09.02.2008, 18:33:29
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск макроса при записи в области ячеек цифровых значений?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2181451]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 80ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 248ms
total:  398ms
созд. / загр.: 398ms
x
x
Закрыть


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