Подсчитать установленные флажки / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подсчитать установленные флажки

5 сообщений из 5, страница 1 из 1

Подсчитать установленные флажки

#37584621

Lavrenty

Участник

Откуда: Тамбов

Сообщения: 155

Рейтинг: 0 / 0

Здравия всем! На листе есть несколько checkbox-ов. Как подсчитать количество установленных в них флажков? Есть здесь какое-нибудь свойство у листа типа ControlCount?

...

Рейтинг:

0 / 0

20.12.2011, 12:09

| Ответить | Цитировать | Написать

Подсчитать установленные флажки

#37585227

BelowZero

Участник

Откуда: я выпускник... грустно...

Сообщения: 1 707

Рейтинг: 0 / 0

Lavrenty,

создать control array (положить чекбокс на форму, ктрл+С, ктрл+V), положить на форму несколько чекбоксов, кнопку. код кнопки

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

Private Sub Command1_Click()
Dim a As Long
a = 0
Dim x As Long
For x = 0 To 5 '5 если 6 чекбоксов. т.е. цикл для всех чекбоксов с индексами от 0 до 5 
If Check1(x).Value = Checked Then a = a + 1 'если галка установлена
Next x
MsgBox a
End Sub

...

Рейтинг:

0 / 0

20.12.2011, 16:04

| Ответить | Цитировать | Написать

Подсчитать установленные флажки

#37585351

alex77755

Участник

Откуда: Украина Павлоград

Сообщения: 338

Рейтинг: 0 / 0

авторНа листе есть несколько checkbox-ов
авторсоздать control array
На листе не так всё просто: массив можно, конечно, создать, но не простым, стандартным способом, а через клясс.
А так надо перебирать все контролы, проверять, является ли он чекбоксом, и если является проверять установлен ли флаг.
И ещё одно: смотря какой чекбокс из форм или из элементов управления - обращение к нему разное

...

Рейтинг:

0 / 0

20.12.2011, 16:47

| Ответить | Цитировать | Написать

Подсчитать установленные флажки

#37585358

alex77755

Участник

Откуда: Украина Павлоград

Сообщения: 338

Рейтинг: 0 / 0

примерно так. Не помню для какого типа код

Код: vbnet

1.
2.
3.
4.
5.

 For Each oble In Sheets(1).OLEObjects
        If TypeName(oble.Object) = "CheckBox" Then
'''''''''код
        End If
    Next

...

Рейтинг:

0 / 0

20.12.2011, 16:51

| Ответить | Цитировать | Написать

Подсчитать установленные флажки

#37585394

alex77755

Участник

Откуда: Украина Павлоград

Сообщения: 338

Рейтинг: 0 / 0

'Так можно перебрать все чекбоксы(заодно с кнопками и пр.)
Проверять по типу уже не получится. Можно по части имени

Код: vbnet

1.
2.
3.
4.
5.
6.

Sub AddMa()
    Dim ob
    For Each ob In Sheets(1).Shapes
''''
    Next
End Sub

...

Рейтинг:

0 / 0

20.12.2011, 17:07

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подсчитать установленные флажки

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=89&tid=2158210]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	50ms
get topic data:	12ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	2ms
others:	228ms

total:	372ms