ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA EXCEL
12 сообщений из 12, страница 1 из 1
VBA EXCEL
    #39646352
vovana1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vovana1
Гость
Нужно создать цикл типа

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim i As integer
Dim k As Integer

i = 1
k = 3
For i = 1 To 49 Step 1
    If LaboratorForm.CheckBox(i).Value = True Then
        ListRow.Range(k) = "+"
    Else
        ListRow.Range(k) = " "
    End If

i = i + 1
k = k + 1
Next i



Модератор: Учимся использовать тэги оформления кода - FAQ

Ехсель не распознает ЧекБоксы
Какой выход из ситуации?
Сразу говорю, что я неопытный програмист, скорее всего самоучка пытющийся внедрить что-то в своей раоте
...
Рейтинг: 0 / 0
17.05.2018, 19:47
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646362
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vovana1Ехсель не распознает ЧекБоксыТак и выдает сообщение - "Ваш чекбокс не распознан"?
...
Рейтинг: 0 / 0
17.05.2018, 20:32
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646363
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Вообще, вроде бы VBA-шные формы не поддерживают массивы контролов, откуда там индекс?
vovana1
Код: vbnet
1.
CheckBox(i)
...
Рейтинг: 0 / 0
17.05.2018, 20:34
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646364
vovana1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vovana1
Гость
Shocker.Pro,

так в этом и вопрос, как можно обойтись без индека
...
Рейтинг: 0 / 0
17.05.2018, 20:40
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646365
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vovana1так в этом и вопрос, как можно обойтись без индекаВсе, что мы знаем о вашей задаче, это vovana1Нужно создать цикл типарады бы помочь, да только внятного вопроса нет
...
Рейтинг: 0 / 0
17.05.2018, 20:46
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646371
vovana1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vovana1
Гость
Shocker.Pro,

Действительно, вопрос получился какой-то непонятный

Я работаю в Центре Здоровья
Хочу наладить учет в лаборатории
У меня на форме 49 Чекбоксов
Допустим пациент приходит и ему делают три анализа
Оператор нажимает три флажка

Все данные должны попасть в таблицу

В принципе я могу 49 раз сделать проверку сколько флажков установлено
Но получается очень длинно
Поэтому я хотел через цикл все это сделать
Но не получается
В написанном коде выдается ошибка
а как дальше бть я не знаю
...
Рейтинг: 0 / 0
17.05.2018, 20:57
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646374
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
vovana1,

видимо, это должно помочь понять принцип: Как быстро заполнить/очистить элементы на форме(TextBox-ы, ComboBox-ы)
...
Рейтинг: 0 / 0
17.05.2018, 21:06
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646383
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vovana1У меня на форме 49 Чекбоксова когда добавляется/удаляется новый тип анализа - администратор будет программиста звать?

не проще ли было использовать листбокс?
...
Рейтинг: 0 / 0
17.05.2018, 21:39
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646393
vovana1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vovana1
Гость
The_Prist,

Большое спасибо, все получилось
...
Рейтинг: 0 / 0
17.05.2018, 22:01
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646402
vovana1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vovana1
Гость
Shocker.Pro,
Мысль хорошая
Но ЧекБоксами нагляднее и что немаловажно оператор видит все наименования,
а листбоксами приходится перелистывать названия
...
Рейтинг: 0 / 0
17.05.2018, 22:54
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646405
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
При 49 наименованиях видеть сразу все - интерфейсная глупость.
При таком количестве пора вводить категоризацию
...
Рейтинг: 0 / 0
17.05.2018, 22:57
| Ответить | Цитировать | Написать  
VBA EXCEL
    #39646407
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
...
Рейтинг: 0 / 0
17.05.2018, 22:59
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA EXCEL
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39646362&tid=2172332]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 302ms
total:  427ms
созд. / загр.: 427ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]