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

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

Или вам изменения в самом списке? Тогда так.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2013, 14:16
    #38288367
mdkChaos
mdkChaos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Excel] Список и отслеживание его изменения
Я делал так:
Код: 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
| Ответить | Цитировать | Написать  
07.06.2013, 06:22
    #38289371
w3d
w3d
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Excel] Список и отслеживание его изменения
Спасибо!

Еще вопрос.
Из файла 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, 11:28
    #38289793
lbppb
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Excel] Список и отслеживание его изменения
w3d,

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



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



Только что протестировал и у меня все меняется из VBA как душе угодно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2013, 14:24
    #38294064
w3d
w3d
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[Excel] Список и отслеживание его изменения
lbppbТолько что протестировал и у меня все меняется из VBA как душе угодно.
Не ту ячейку указал, действительно меняется :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / [Excel] Список и отслеживание его изменения / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 453ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2174741]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 324ms
total:  453ms
x
x
Закрыть


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