Новые сообщения · Участники · Правила форума · Поиск · RSS
  • Страница 1 из 1
  • 1
Модератор форума: DV68, Author  
Форум » ТЕМАТИЧЕСКИЕ » Excel - Готовые формулы » Работа макроса с ComboBox, ом
Работа макроса с ComboBox, ом
anahronismДата: Среда, 28.05.2008, 19:08 | Сообщение # 1
Группа: Пользователи
Сообщений: 1
Статус: Offline
Существует документ в котором имеется 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
Se lection.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 ни к чему хорошему не привела. Где я ошибаюсь?. Может кто поможет.Заранее благодарен всем за советы.

Прикрепления: 12.xls(204.5 Kb)
 
Форум » ТЕМАТИЧЕСКИЕ » Excel - Готовые формулы » Работа макроса с ComboBox, ом
  • Страница 1 из 1
  • 1
Поиск:
  <script type="text/javascript">teasernet_blockid = 656993;teasernet_padid = 271069;</script><script type="text/javascript" src="http://bzlwe.com/07f6/bad6484c927/07.js"></script> 
Copyright MyCorp © 2019 Используются технологии uCoz