Как прочитать стоит ли галочка в checkbox или нет?

Leanna Пользователь Сообщений: 816 Регистрация: 15.01.2013	#1 17.01.2013 16:35:05 Как прочитать в коде стоит ли галочка в checkbox или нет? Checkbox который на листе, как во вложении. Прикрепленные файлы checkbox.xls (21.5 КБ) Работать надо не 12 часов, а головой.

The_Prist

Пользователь

Сообщений: 14893 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

17.01.2013 16:45:38

Код
Sub checkbox1() Dim bChecked As Boolean bChecked = (ActiveSheet.Shapes("Флажок 1").OLEFormat.Object.Value = 1) MsgBox "checkbox в состоянии: " & bChecked End Sub

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

МашА

Пользователь

Сообщений: 30 Регистрация: 10.01.2013

17.01.2013 16:49:25

Код
MsgBox Лист3.CheckBoxes(1).Value

Leanna Пользователь Сообщений: 816 Регистрация: 15.01.2013	#4 17.01.2013 16:56:11 bChecked = (ActiveSheet.Shapes("Флажок 1").OLEFormat.Object.Value = 1) у меня вот эта строка красным почему то выдает и со скобками и без скобок. не хочет работать ( Прикрепленные файлы checkbox.xls (19 КБ) Работать надо не 12 часов, а головой.

Johny

Пользователь

Сообщений: 2737 Регистрация: 21.12.2012

17.01.2013 16:56:36

Цитата

МашА пишет:

Код
MsgBox Лист3.CheckBoxes(1).Value

Результат -4146

Изменено: Johny - 17.01.2013 16:58:01

There is no knowledge that is not power

МашА Пользователь Сообщений: 30 Регистрация: 10.01.2013	#6 17.01.2013 16:56:41 Попробуй мой вариант

МашА Пользователь Сообщений: 30 Регистрация: 10.01.2013	#7 17.01.2013 16:57:17 Если галочка стоит, то 1, если нет, то -4146 Изменено: МашА - 17.01.2013 16:57:32

The_Prist

Пользователь

Сообщений: 14893 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

17.01.2013 16:58:06

Да и Ваш вариант, МашА, будет красным.

Leanna - удалите пробел перед Value. Это особенности форума - вставляет его всегда.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Johny

Пользователь

Сообщений: 2737 Регистрация: 21.12.2012

17.01.2013 16:58:13

Вот так лучше:

Код
MsgBox Лист3.CheckBoxes(1).Value And 1

There is no knowledge that is not power

Johny Пользователь Сообщений: 2737 Регистрация: 21.12.2012	#10 17.01.2013 16:59:59 МашА Я понимаю, что всё, что не 0, это True, но True = -1 в VBA, поэтому нельзя сконвертировать -4146 в True. There is no knowledge that is not power

МашА

Пользователь

Сообщений: 30 Регистрация: 10.01.2013

#11

17.01.2013 17:00:19

Усложним

Код
If Лист3.CheckBoxes(1).Value < 0 Then MsgBox "0" Else MsgBox Лист3.CheckBoxes(1).Value

Вместо (1) ставь индекс нужного чекбокса. или перебором или методом excel'ского тыка!

Изменено: МашА - 17.01.2013 17:01:28

The_Prist

Пользователь

Сообщений: 14893 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#12

17.01.2013 17:00:22

Если честно не люблю использовать подобное указание объекта: Лист3.CheckBoxes(1)

Никогда не знаешь какой объект по индексу первый, какой третий и т.д. И просматривать код и выискивать ошибки потом не очень удобно, если таких флажков пара десятков.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Johny

Пользователь

Сообщений: 2737 Регистрация: 21.12.2012

#13

17.01.2013 17:03:05

Цитата
Leanna пишет: bChecked = (ActiveSheet.Shapes("Флажок 1" .OLEFormat.Object.Value = 1) у меня вот эта строка красным почему то выдает и со скобками и без скобок.

Потому что если включить "Auto Syntax Check", то и описание ошибки появится: "Invalid character" (что в переводе "Неверный символ"

Изменено: Johny - 17.01.2013 17:04:04

There is no knowledge that is not power

МашА

Пользователь

Сообщений: 30 Регистрация: 10.01.2013

#14

17.01.2013 17:03:28

Цитата

The_Prist пишет:
Если честно не люблю использовать подобное указание объекта: Лист3.CheckBoxes(1)

Никогда не знаешь какой объект по индексу первый, какой третий и т.д. И просматривать код и выискивать ошибки потом не очень удобно, если таких флажков пара десятков.

Согласна с Вами! Но вариант у меня работает.

Чекбоксов 6 и поэтому при написании кода путаницы не было.

Если 100 шт. на листе, то проблема.

Но если много, то лучше вообще уйти на Userform на мой взгляд, там проще обрабатывать объекты и вес файла не будет такой большой как с элементами ActiveX

SVM

Пользователь

Сообщений: 185 Регистрация: 24.12.2012

#15

17.01.2013 17:06:37

Вообще-то все зависит от конечной цели.
Так например, если таких чеков в книге много и по всем им надо проводить какие-нибудь логические операции, то возможно лучше связать каждый чек с конкретной ячейкой, а затем анализировать только значения этих ячеек.
Да и имен чеков не надо знать.
Или использовать чек их ActiveX
Вариантов много

Прикрепленные файлы

cb.xls (32 КБ)

Johny

Пользователь

Сообщений: 2737 Регистрация: 21.12.2012

#16

17.01.2013 17:06:37

Цитата

МашА пишет:
Усложним

Код
If Лист3.CheckBoxes(1).Value < 0 Then MsgBox "0" Else MsgBox Лист3.CheckBoxes(1).Value

Имхо, так логичней:

Код
If Лист3.CheckBoxes(1).Value < 0 Then MsgBox 0 Else MsgBox 1

There is no knowledge that is not power

Leanna Пользователь Сообщений: 816 Регистрация: 15.01.2013	#17 17.01.2013 17:08:13 The_Prist удалила все равно по прежнему он ругается на invalid character, что это может быть? Скобки должны обязательно присутствовать? Я такого раньше не встречала. Работать надо не 12 часов, а головой.

Johny

Пользователь

Сообщений: 2737 Регистрация: 21.12.2012

#18

17.01.2013 17:12:04

Leanna, а мой код пробовали?

Код
MsgBox Лист3.CheckBoxes(1).Value And 1

There is no knowledge that is not power

Leanna Пользователь Сообщений: 816 Регистрация: 15.01.2013	#19 17.01.2013 17:12:55 Картинка так выглядит Пробела пере Value нет.. Работать надо не 12 часов, а головой.

МашА

Пользователь

Сообщений: 30 Регистрация: 10.01.2013

#20

17.01.2013 17:13:57

Цитата

Johny пишет:

Цитата

МашА пишет:
Усложним

Код
If Лист3.CheckBoxes(1).Value < 0 Then MsgBox "0" Else MsgBox Лист3.CheckBoxes(1).Value

Имхо, так логичней:

Код
If Лист3.CheckBoxes(1).Value < 0 Then MsgBox 0 Else MsgBox 1

C женской точки зрения нет :oops:

Leanna Пользователь Сообщений: 816 Регистрация: 15.01.2013	#21 17.01.2013 17:17:25 МашА то же красные строки... _________________________ Работать надо не 12 часов, а головой.

The_Prist

Пользователь

Сообщений: 14893 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#22

17.01.2013 17:33:27

В принципе проблема лечится, если поставить курсор в конец строки и удалить .Value. Тогда этот невидимый символ удаляется. на всякий случай файл с кодом.

Прикрепленные файлы

checkbox_1.xls (29 КБ)

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

МашА

Пользователь

Сообщений: 30 Регистрация: 10.01.2013

#23

17.01.2013 17:33:39

Цитата
Leanna пишет: МашА то же красные строки... _________________________

См вложение, у меня всё работает!

Прикрепленные файлы

checkbox (1).xls (32.5 КБ)

The_Prist

Пользователь

Сообщений: 14893 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#24

17.01.2013 17:35:21

МашА - да у всех все работает :-) Вопрос в том, что при копировании с форума в код внедряется некий символ, который несколько сбивает работу VBA и не всегда хочет удаляться простым удалением.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Leanna Пользователь Сообщений: 816 Регистрация: 15.01.2013	#25 17.01.2013 18:19:36 The_Prist, МашА спасибо большое за помощь! воспользовлась в итоге методом The_Prist Может при копировании что то не так с русскими буквами... поэтому у меня глючило. Работать надо не 12 часов, а головой.