добавление уникальных элементов в несколько ComboBox - Страница 2

Старая форма входа

Страница 2 из 3 « 1 2 3 »
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » добавление уникальных элементов в несколько ComboBox (Макросы/Sub)

добавление уникальных элементов в несколько ComboBox

wild_pig

Дата: Четверг, 10.04.2014, 22:04 | Сообщение № 21

Группа: Проверенные

Ранг: Обитатель

Сообщений: 517

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

У меня сейчас только 2003 excel, в нём нет всяких "nodupes".

Ответить

Wasilich

Дата: Четверг, 10.04.2014, 22:05 | Сообщение № 22

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Цитата sos-13, 10.04.2014 в 22:00, в сообщении № 20

Может поможете с решением?

С формой - нет.

Цитата Wasilic, 10.04.2014 в 21:57, в сообщении № 19

Для меня, это лишний гемор

Ответить

sos-13

Дата: Четверг, 10.04.2014, 22:06 | Сообщение № 23

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Wasilic, Спасибо.

Ответить

RAN

Дата: Четверг, 10.04.2014, 22:09 | Сообщение № 24

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата sos-13, 10.04.2014 в 22:00, в сообщении № 20

Может поможете с решением?

Я помог? Нет? До сих пор не знаю...
Угадайте с трех раз...

Быть или не быть, вот в чем загвоздка!

Ответить

sos-13

Дата: Четверг, 10.04.2014, 22:12 | Сообщение № 25

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

RAN, Все понемногу помогли, и Вы тоже. Если не трудно посмотрите последний прикрепленный файл и Сообщение № 16.

Ответить

RAN

Дата: Четверг, 10.04.2014, 22:51 | Сообщение № 26

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

С допущениями
[vba]

Код

Sheets("Данные").Cells(Rows.Count, "A").End(xlUp).Row

[/vba] = 50
[vba]

Код

Sheets("Данные").Cells(Rows.Count, "A").End(xlUp)

[/vba] = Range("A50")
[vba]

Код

Sheets("Данные").Range(Cells(1,"A"), Cells(Rows.Count, "A").End(xlUp))

[/vba] =Range("A1:A50")

Удалите фреймы с формы, они только помеха.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 10.04.2014, 23:06

Ответить

sos-13

Дата: Четверг, 10.04.2014, 23:05 | Сообщение № 27

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Я конечно еще раз извиняюсь, я только учусь

, но что такое фреймы на форме?

Ответить

RAN

Дата: Четверг, 10.04.2014, 23:12 | Сообщение № 28

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Гугл переводит freim = рамы

У вас на форме 4 таких рамы, в которые помещены текст и комбо боксы (и все прочее)

Быть или не быть, вот в чем загвоздка!

Ответить

sos-13

Дата: Четверг, 10.04.2014, 23:13 | Сообщение № 29

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Спасибо, переделаю.

Ответить

RAN

Дата: Четверг, 10.04.2014, 23:15 | Сообщение № 30

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Для обучения ШАГ1 формочка сложновата. Она на ШАГ 10 тянет.

Быть или не быть, вот в чем загвоздка!

Ответить

sos-13

Дата: Четверг, 10.04.2014, 23:19 | Сообщение № 31

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

А я не ищу простых путей <_<

.
Еще вопрос можно: а почему выражение: Sheets("Данные").Cells(Rows.Count, "A").End(xlUp).Row
=50?

Ответить

RAN

Дата: Четверг, 10.04.2014, 23:21 | Сообщение № 32

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата RAN, 10.04.2014 в 22:51, в сообщении № 26

С допущениями

Может быть и 500 050. Это номер последней заполненной строки.

Быть или не быть, вот в чем загвоздка!

Ответить

sos-13

Дата: Четверг, 10.04.2014, 23:24 | Сообщение № 33

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Аааааа

понял, а то я подумал что чего-то не вижу "скрытого" в этой записи.
Еще раз огромное спасибо. Завтра все опробую.

Ответить

RAN

Дата: Четверг, 10.04.2014, 23:29 | Сообщение № 34

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Эти три строки
1. номер последней строки
2. адрес последней ячейки
3. адрес заполненного диапазона в столбце А

Быть или не быть, вот в чем загвоздка!

Ответить

Wasilich

Дата: Пятница, 11.04.2014, 00:31 | Сообщение № 35

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Цитата sos-13, 10.04.2014 в 23:19, в сообщении № 31

А я не ищу простых путей

Это о многом говорит!

Однако, С.В.Михалков писал - "Умный в гору не пойдет, умный гору обойдет". Поэтому, я все же осмелюсь предложить краткий пример простого пути решения задачи.

К сообщению приложен файл: SOS.xls (95.5 Kb)

Сообщение отредактировал Wasilic - Пятница, 11.04.2014, 09:55

Ответить

sos-13

Дата: Пятница, 11.04.2014, 10:02 | Сообщение № 36

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Wasilic, спасибо за помощь, но так мне точно не пойдет. Хочется более универсально сделать. Объяснять долго, но суть в следующем: необходимо сделать в итоге так, чтобы "барана" посадить за компьютер, он просто ввел или выбрал фамилию из списка, добавил пару данных и все, отпускной готов.
Я понимаю что сделать не просто, но хочется именно так. Еще раз спасибо за помощь.
Надеюсь на Вашу помощь дальше.

Ответить

Wasilich

Дата: Пятница, 11.04.2014, 13:57 | Сообщение № 37

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Цитата sos-13, 11.04.2014 в 10:02, в сообщении № 36

необходимо сделать в итоге так, чтобы "барана" посадить за компьютер, он просто ввел или выбрал фамилию из списка, добавил пару данных и все, отпускной готов.

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

К сообщению приложен файл: SOS-2.rar (35.8 Kb)

Ответить

sos-13

Дата: Пятница, 11.04.2014, 21:12 | Сообщение № 38

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Wasilic, спасибо большое. При дальнейшей работе обязательно учту. Но все же хочется добить первоначальную программку. Тем более уже столько всего сделано.

Сообщение отредактировал sos-13 - Пятница, 11.04.2014, 21:14

Ответить

sos-13

Дата: Четверг, 17.04.2014, 21:30 | Сообщение № 39

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго всем вечера. Продолжая писать программку возникают проблемы, но все же двигаюсь вперед. Подскажите пожалуйста по проблемке.
Файл вставить не могу его размер 300 Кб, поэтому вставляю часть макроса.
[vba]

Код

If тип_бланка <> "" Then
Select Case тип_бланка
Case Is = "отпускной билет"
Отпуск
Case Is = "командировочное удостоверение"
Командировка
Case Is = "ведомость на оплату"
Ведомость
Case Is = "справка форма №15"
Справка15
Case Is = "справка форма №17"
Справка17
End Select
Else
MsgBox "Вы не выбрали тип бланка", vbExclamation, "ВУНЦ СВ ''ОА ВС РФ''"
End If

[/vba]

Суть в следующем. При запуске формы, если тип бланка не выбран, и нажимаешь на кнопку создать, тогда выскакивает окошко "Вы не выбрали тип бланка", и это окошко закрыть не возможно. При нажатии на кнопку ОК оно появляется вновь и вновь, как бы зацикливаясь. Подскажите пожалуйста что не так? Спасибо.

Ответить

Serge_007

Дата: Четверг, 17.04.2014, 21:37 | Сообщение № 40

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата sos-13, 17.04.2014 в 21:30, в сообщении № 39

Файл вставить не могу

Читайте правила. Иначе выбор: либо бан, либо Вам никто не ответит

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » добавление уникальных элементов в несколько ComboBox (Макросы/Sub)

Страница 2 из 3
«
1
2
3
»