Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.03.2018, 18:07   #1
Dante18
Новичок
Джуниор
 
Регистрация: 18.03.2018
Сообщений: 4
По умолчанию Раскрывающиеся списки с помощью макроса

Добрый день!
Подскажите, пожалуйста, как сделать раскрывающийся список в Word-2007 при помощи макроса. Вариант создания через "Элементы управления" не подойдет, т.к. записей очень много, а в этой панельке каждая запись вносится вручную.

Пыталась сделать макрос, но не вышло. Файл прикладываю.
Вложения
Тип файла: docx Doc1.docx (11.8 Кб, 20 просмотров)
Dante18 вне форума Ответить с цитированием
Старый 18.03.2018, 18:30   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Sub AddValues()
    Dim i As Byte
    ComboBox1.Clear
    For i = 50 To 75
        ComboBox1.AddItem Chr(i)
    Next i
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 18.03.2018, 20:48   #3
Dante18
Новичок
Джуниор
 
Регистрация: 18.03.2018
Сообщений: 4
По умолчанию

Код:
Aleksandr H.
спасибо!


А что это за диапазон For i = 50 To 75?
и куда внести значения для списка?
Вложения
Тип файла: docx Doc2.docx (12.2 Кб, 16 просмотров)
Dante18 вне форума Ответить с цитированием
Старый 18.03.2018, 21:15   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от Dante18 Посмотреть сообщение
А что это за диапазон For i = 50 To 75?
От фонаря фрагмент ASCII-таблицы

Цитата:
Сообщение от Dante18 Посмотреть сообщение
и куда внести значения для списка?
Если список константа, в модуль и вносьте.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 18.03.2018, 21:36   #5
Dante18
Новичок
Джуниор
 
Регистрация: 18.03.2018
Сообщений: 4
По умолчанию

Код:
Aleksandr H.
Если честно я очень далека от программирования так и не поняла задачу диапазона, но вот так попробовала сделать сейчас и у меня заполнился раскрывающийся список двумя значениями:

Sub AddValues()
ComboBox1.Clear
ComboBox1.AddItem "1000.100 Отдел снабжения"
ComboBox1.AddItem "1000.100 Отдел маркетинга"
End Sub

как считаете, такой вариант хороший?
Dante18 вне форума Ответить с цитированием
Старый 18.03.2018, 22:05   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от Dante18 Посмотреть сообщение
как считаете, такой вариант хороший?
Хорошим будет любой результат который удовлетворяет Вашим требованиям и, хоть как либо, упрощает работу.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 20.03.2018, 16:29   #7
Dante18
Новичок
Джуниор
 
Регистрация: 18.03.2018
Сообщений: 4
По умолчанию

Код:
Aleksandr H.
спасибо
Dante18 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание документа с помощью макроса Katiy2002 Microsoft Office Excel 3 10.01.2018 19:28
прайс-лист и раскрывающиеся списки kasanad80 Microsoft Office Excel 9 12.12.2009 17:56
Как сделать раскрывающиеся списки 911old Microsoft Office Excel 2 20.08.2009 12:38
Подчинённые раскрывающиеся списки Flangini Microsoft Office Access 1 14.07.2009 14:16
Раскрывающиеся списки в html Ромыч Помощь студентам 1 31.05.2008 10:21