Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA EXCEL / 12 сообщений из 12, страница 1 из 1
17.05.2018, 19:47
    #39646352
vovana1
vovana1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA EXCEL
Нужно создать цикл типа

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

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

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

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

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

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

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

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

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


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