CheckBox, что-то у меня не получается... - Microsoft Office Excel

Snekich · 18.12.2011, 17:30

Есть куча макросов (в модулях).
На одной из страницы есть несколько CheckBox (элементы ActiveX).
У некоторых из них по умолчанию устоит галка.
(при загрузке файла пользователь, возможно, вообще не будет трогать CheckBox)

В одном из макросов необходимы условия типа:

If CheckBox1.Value = True Then
Application.Run "Макрос2"
End If

Но оно не работает как надо...
Я что-то забыл сделать?

Как в макросах использовать значение ( CheckBox1.Value ) ?
Или может быть этот CheckBox надо как-то активизировать?

Может что-то в исходном тексте листа с CheckBox надо что-то прописывать?

Вопрос примитивный, но я ни разу с CheckBox не работал...

kuklp · 18.12.2011, 18:13

А попробуйте:

Код:

Sub Макрос1()
    If ActiveSheet.CheckBox1.Value Then Application.Run "Макрос2"
End Sub

Snekich · 18.12.2011, 20:12

Цитата:

Сообщение от kuklp

А попробуйте:

Код:

Sub Макрос1()
    If ActiveSheet.CheckBox1.Value Then Application.Run "Макрос2"
End Sub

спасибо, помогло

18.12.2011, 18:13	#2
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	А попробуйте: Код: `Sub Макрос1() If ActiveSheet.CheckBox1.Value Then Application.Run "Макрос2" End Sub` mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Что-то не получается, возможно из-за INDY.	Den7656	Общие вопросы Delphi	0	21.11.2011 06:46
Меня что, кто-то атакует?	Altera	Свободное общение	9	03.10.2010 18:34
что-то не получается?	SvetaLee	Помощь студентам	1	29.05.2010 16:59
что-то у меня не получается	dinozavr	Помощь студентам	10	22.04.2009 21:45
у меня никак не получается скомпелировать фаил	finero	Общие вопросы C/C++	4	10.07.2008 19:29