Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отследить изменения в определенном столбце / 17 сообщений из 17, страница 1 из 1
23.09.2005, 10:42:16
    #33285327
foxcub
foxcub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить изменения в определенном столбце
Подскажите пжлста как отследить, что изменения произошли именно в ячейках данного столбца (нужно на изменения в столбце с датами отсортировать лист по этим датам, как сортировать уже вычитала ;)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 11:16:52
    #33285439
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить изменения в определенном столбце
В ячейках чего?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 11:35:40
    #33285514
foxcub
foxcub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить изменения в определенном столбце
в Excele
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 12:23:09
    #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, 14:12:17
    #33286071
foxcub
foxcub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить изменения в определенном столбце
to Пользователь2
Спасибище!!! Заработало!!! ;)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 14:43:36
    #33286175
foxcub
foxcub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить изменения в определенном столбце
гм... теперь другая проблема, как сделать, чтобы эта сортировка выполнялась на всех листах, в том числе только что созданных....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 14:56:40
    #33286213
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить изменения в определенном столбце
На всех листах похожие таблицы данных и ты хочешь, чтобы при изменении данных в основном листе, во всех остальных, данные сортировались так же по возрастанию дат?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 15:07:19
    #33286249
foxcub
foxcub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить изменения в определенном столбце
нет, не так.... шаблон на всех листах будет одинаковый, типа "Событие", "Дата/Время", "Место" и т.д. чтобы при изменении даты на текущем листе на нем же и происходила сортировка. Было бы определенное число листов - я бы тупо вставила эту процедуру для каждого листа, но листы могут добавляться-удаляться... надо наверное что-то на саму книгу вешать??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 15:45:17
    #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, 16:01:24
    #33286395
foxcub
foxcub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить изменения в определенном столбце
Программный доступ к объекту VB не является доверенным ;((((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 16:04:42
    #33286402
foxcub
foxcub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить изменения в определенном столбце
ощущение что что-то не то с переменной cm.... спотыкается на строчке Set...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 16:17:23
    #33286446
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отследить изменения в определенном столбце
foxcubПрограммный доступ к объекту VB не является доверенным ;((((

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

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


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