ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отследить изменения в определенном столбце
17 сообщений из 17, страница 1 из 1
Отследить изменения в определенном столбце
    #33285327
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
Подскажите пжлста как отследить, что изменения произошли именно в ячейках данного столбца (нужно на изменения в столбце с датами отсортировать лист по этим датам, как сортировать уже вычитала ;)))
...
Рейтинг: 0 / 0
23.09.2005, 10:42:16
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33285439
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
В ячейках чего?
...
Рейтинг: 0 / 0
23.09.2005, 11:16:52
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33285514
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
в Excele
...
Рейтинг: 0 / 0
23.09.2005, 11:35:40
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33285689
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column =  1  Then
        Columns("A:C").Sort _
          Key1:=Range("A1"), _
          Order1:=xlAscending, _
          Header:=xlGuess, _
          OrderCustom:= 1 , _
          MatchCase:=False, _
          Orientation:=xlTopToBottom
    End If
End Sub
...
Рейтинг: 0 / 0
23.09.2005, 12:23:09
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33286071
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
to Пользователь2
Спасибище!!! Заработало!!! ;)))
...
Рейтинг: 0 / 0
23.09.2005, 14:12:17
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33286175
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
гм... теперь другая проблема, как сделать, чтобы эта сортировка выполнялась на всех листах, в том числе только что созданных....
...
Рейтинг: 0 / 0
23.09.2005, 14:43:36
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33286213
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
На всех листах похожие таблицы данных и ты хочешь, чтобы при изменении данных в основном листе, во всех остальных, данные сортировались так же по возрастанию дат?
...
Рейтинг: 0 / 0
23.09.2005, 14:56:40
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33286249
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
нет, не так.... шаблон на всех листах будет одинаковый, типа "Событие", "Дата/Время", "Место" и т.д. чтобы при изменении даты на текущем листе на нем же и происходила сортировка. Было бы определенное число листов - я бы тупо вставила эту процедуру для каждого листа, но листы могут добавляться-удаляться... надо наверное что-то на саму книгу вешать??
...
Рейтинг: 0 / 0
23.09.2005, 15:07:19
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33286352
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Попробуй такой вариант. Динамическое создание кода в модуле листа при его создании.

В модуле книги:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim cm As CodeModule
    Dim i As Long
    
    Set cm = ThisWorkbook.VBProject.VBComponents(Sh.Name).CodeModule
    With cm
        i = .CountOfLines +  1 
        .InsertLines i, "Private Sub Worksheet_Change(ByVal Target As Range)"
        i = i +  1 
        .InsertLines i, "If Target.Column = 1 Then"
        i = i +  1 
        .InsertLines i, "Columns(""A:C"").Sort Key1:=Range(""A1""), Order1:=xlAscending, _"
        i = i +  1 
        .InsertLines i, "Header:=xlGuess, OrderCustom:=1, _"
        i = i +  1 
        .InsertLines i, "MatchCase:=False, Orientation:=xlTopToBottom"
        i = i +  1 
        .InsertLines i, "End If"
        i = i +  1 
        .InsertLines i, "End Sub"
    End With
End Sub

Подключи библиотеку "Microsoft Visual Basic for Application Extensibility".
...
Рейтинг: 0 / 0
23.09.2005, 15:45:17
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33286395
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
Программный доступ к объекту VB не является доверенным ;((((
...
Рейтинг: 0 / 0
23.09.2005, 16:01:24
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33286402
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
ощущение что что-то не то с переменной cm.... спотыкается на строчке Set...
...
Рейтинг: 0 / 0
23.09.2005, 16:04:42
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33286446
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
foxcubПрограммный доступ к объекту VB не является доверенным ;((((

Сервис -> Макрос -> Безопасность -> Отметить галочкой поле "Доверять доступ к Visual Basic Project".
...
Рейтинг: 0 / 0
23.09.2005, 16:17:23
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33286474
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
так... начинаю чувствовать себя дауном....

subscript out of range ;((
...
Рейтинг: 0 / 0
23.09.2005, 16:30:03
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33286498
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
перенесла все в новый файл, все заработало ;))), щас погоняю с удалением-добавлением листов, убедюсь, что все ок ;))).....
...
Рейтинг: 0 / 0
23.09.2005, 16:44:12
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33288952
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
нашла такой баг: когда все идет как надо листы создаются с именами типа Лист1(Лист1)... Лист10(Лист10) (если смотреть в редакторе VB), в процессе добавления/удаления/переименования листов бывают случаи, когда листы начинают создаваться с именами типа Лист2(Лист1)...Лист10(Лист9) и вот тут-то начинаются глюки: создаешь лист, программный код в нем не создается, а создается в предыдущем листе ... где-то что-то не совпадает....
...
Рейтинг: 0 / 0
26.09.2005, 15:30:41
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33289071
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Исправь
Код: plaintext
...VBProject.VBComponents(Sh.Name).CodeModule
на
Код: plaintext
...VBProject.VBComponents(Sh.CodeName).CodeModule
...
Рейтинг: 0 / 0
26.09.2005, 16:06:35
| Ответить | Цитировать | Написать  
Отследить изменения в определенном столбце
    #33289088
foxcub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxcub
Гость
моя благодарность не знает границ ;)) спасиб...
...
Рейтинг: 0 / 0
26.09.2005, 16:12:44
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отследить изменения в определенном столбце
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33286395&tid=2167125]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 81ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 200ms
total:  357ms
созд. / загр.: 357ms
x
x
Закрыть


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