VBA и Exel
24 Декабря 2024, 02:51:27 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: ВНИМАНИЕ Почта на домене 2126.ru прекращает свою работу
   Начало   Главная Поиск Правила Камасутра Блоги Чат (1) Галерея Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: VBA и Exel  (Прочитано 1235 раз)
0 Пользователей и 1 Гость смотрят эту тему.
madcat ТС
Ветеран форума
******

Карма +464/-0
Offline Offline

Пол: Мужской
Сообщений: 1862

Ярославль


2126-020, Уфа 1,7, БСЗ, ДААЗ 21041, Плаза.

« : 13 Декабря 2005, 16:56:26 »

вобщем есть лист exel на нем 40 одинаковых объектов ActiveX хотелось бы в цикле менять свойства этих объектов, но как к ним обратиться? В пользовательской форме есть метод UserForm.Control(0).Visible = к примеру, а вот на листе? Сделать тоже самое не получается, пишет, что нет такого метода sad

Чтобы понятнее было хотелось бы что-то типа

For i= 1 to 40

Worksheets.Item("Print").Controls(i).Visible = False

Next i
Записан
Faraday
Ветеран форума
******

Карма +505/-3
Offline Offline

Сообщений: 4321

Екатеринбург



Nissan Qashqai SE+ 2012
« Ответ #1 : 14 Декабря 2005, 07:28:55 »

На листе массив компонентов у меня не получилось сделать. Но конкретный контрол можно скрыть например так: ActiveSheet.Shapes("CommandButton2").Visible = False
Записан
madcat ТС
Ветеран форума
******

Карма +464/-0
Offline Offline

Пол: Мужской
Сообщений: 1862

Ярославль


2126-020, Уфа 1,7, БСЗ, ДААЗ 21041, Плаза.

« Ответ #2 : 14 Декабря 2005, 08:58:32 »

да это-то понятно sad я так и сделал, но получается 40 повторений кода по 5 строк выглядит смешно Smile массив бы аааа?
Записан
sav804
Частый гость
***

Карма +460/-0
Offline Offline

Пол: Мужской
Сообщений: 123

Ленинградская область

уже давно не ИЖ

« Ответ #3 : 14 Декабря 2005, 09:34:24 »

А если сделать типа этого:

for i=1 to 40
s = "CommandButton"+IntToStr(i)
ActiveSheet.Shapes(s).Visible = False
next i

Или Excel такого не позволяет?
Записан
madcat ТС
Ветеран форума
******

Карма +464/-0
Offline Offline

Пол: Мужской
Сообщений: 1862

Ярославль


2126-020, Уфа 1,7, БСЗ, ДААЗ 21041, Плаза.

« Ответ #4 : 15 Декабря 2005, 14:21:36 »

а так не ругается, но и не работает Smile
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines

Яндекс.Метрика

Google последней посетил эту страницу 19 Октября 2023, 08:13:03