|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
28.05.2008, 15:40 | #1 |
Новичок
Джуниор
Регистрация: 28.05.2008
Сообщений: 1
|
Как сделать макрос для ComboBoxa
Существует документ в котором имеется 15-20 полей со списком в виде ComboBox. Поле со списком использует данные из столбца на другом листе. Как сделать макрос, который приводил бы значения во всех ComboBox,ах к "0" (очищал). До этого использовал макрос для Форм (Поле со списком). Его Код:
Sub Макрос1() ' ' Макрос1 Макрос ' Макрос записан 19.12.2007 (1) ' ' Range("A24:A44").Select Selection.ClearContents Range("C24:C44").Select Selection.ClearContents Range("D24:D44").Select Selection.ClearContents 'Начинаем обход всех объектов на листе For Each i In ActiveSheet.Shapes 'Проверяем является ли объект полем со списком, и если да, то 'ставим его в 0 If i.Type = msoFormControl Then If i.FormControlType = xlDropDown Then i.ControlFormat.Value = 0 End If End If Next i 'Выделяем какую-нибудь ячейку, так будет красивей Range("B17").Select End Sub Простая замена FormControl на ComboBox ни к чему хорошему не привела. Где я ошибаюсь?. Может кто поможетЗаранее благодарен всем за советы. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Мой первый макрос | valerij | Microsoft Office Excel | 102 | 19.11.2008 10:45 |
Как сделать чтобы макрос выполнялся сам каждые 10 минут? | Град | SQL, базы данных | 0 | 26.05.2008 16:12 |
Таймер на макрос | Hant | Microsoft Office Excel | 3 | 21.05.2008 20:10 |
Макрос | Мингиян | Microsoft Office Access | 1 | 24.01.2008 21:54 |
Макрос в Word | Mictiann | Microsoft Office Word | 1 | 12.09.2007 09:35 |