ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / [Excel] Список и отслеживание его изменения
11 сообщений из 11, страница 1 из 1
[Excel] Список и отслеживание его изменения
    #38287735
w3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
w3d
Участник
В Excel есть список в ячейке, сделанный через Данные-Проверка.
Можно ли как-то отследить изменение значения в этом списке и привязать на него макрос?
...
Рейтинг: 0 / 0
06.06.2013, 08:14
| Ответить | Цитировать | Написать  
[Excel] Список и отслеживание его изменения
    #38288163
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim12345678
Гость
А можете файлик приложить?
...
Рейтинг: 0 / 0
06.06.2013, 12:38
| Ответить | Цитировать | Написать  
[Excel] Список и отслеживание его изменения
    #38288313
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
w3d,

Вообще прежде чем спрашивать тут, можно поискать в Интернете. Но так уж и быть вот пример.
...
Рейтинг: 0 / 0
06.06.2013, 13:49
| Ответить | Цитировать | Написать  
[Excel] Список и отслеживание его изменения
    #38288339
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
lbppb,

Или вам изменения в самом списке? Тогда так.
...
Рейтинг: 0 / 0
06.06.2013, 14:02
| Ответить | Цитировать | Написать  
[Excel] Список и отслеживание его изменения
    #38288367
mdkChaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mdkChaos
Гость
Я делал так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
    Dim KeyCells As Range
    Set KeyCells = Range("I4")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        
        Код программы.

    End If
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub
...
Рейтинг: 0 / 0
06.06.2013, 14:16
| Ответить | Цитировать | Написать  
[Excel] Список и отслеживание его изменения
    #38289371
w3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
w3d
Участник
Спасибо!

Еще вопрос.
Из файла Excel вывожу информацию в Word:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Anketa()
iPath = ActiveWorkbook.Path
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add iPath & "\Anketa.doc"
With objWord.ActiveDocument
.Bookmarks("BM1").Select
objWord.Selection.TypeText Text:="asdfsdfsdsdf"
End With
objWord.Visible = True 'Показываем документ пользователю
Set objWord = Nothing
End Sub


Как можно перед выводом снять защиту с вордовского файла, а после вывода опять защитить файл?
...
Рейтинг: 0 / 0
07.06.2013, 06:22
| Ответить | Цитировать | Написать  
[Excel] Список и отслеживание его изменения
    #38289793
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
w3d,

Код: vbnet
1.
2.
wrd.ActiveDocument.Protect wdNoProtection
wrd.ActiveDocument.Protect wdAllowOnlyReading



Ну и остальные параметры (пароль например) по необходимости.
...
Рейтинг: 0 / 0
07.06.2013, 11:28
| Ответить | Цитировать | Написать  
[Excel] Список и отслеживание его изменения
    #38293454
w3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
w3d
Участник
Возможно из VBA установить определенное значение в списке?
Так не устанавливается
Код: sql
1.
Worksheets("Справочники").Range("$D$2888").Value = "Автомобили В"
...
Рейтинг: 0 / 0
11.06.2013, 08:21
| Ответить | Цитировать | Написать  
[Excel] Список и отслеживание его изменения
    #38293456
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
w3d , у вас "список" - это элемент интерфейса,который в "Данные-Проверка"?
Если уж вы используете макросы - так внедрите ActiveX- или MSForms-список, и работайте с его свойствами.
...
Рейтинг: 0 / 0
11.06.2013, 08:37
| Ответить | Цитировать | Написать  
[Excel] Список и отслеживание его изменения
    #38293985
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
w3dВозможно из VBA установить определенное значение в списке?
Так не устанавливается
Код: sql
1.
Worksheets("Справочники").Range("$D$2888").Value = "Автомобили В"



Только что протестировал и у меня все меняется из VBA как душе угодно.
...
Рейтинг: 0 / 0
11.06.2013, 13:54
| Ответить | Цитировать | Написать  
[Excel] Список и отслеживание его изменения
    #38294064
w3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
w3d
Участник
lbppbТолько что протестировал и у меня все меняется из VBA как душе угодно.
Не ту ячейку указал, действительно меняется :)
...
Рейтинг: 0 / 0
11.06.2013, 14:24
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / [Excel] Список и отслеживание его изменения
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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