Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выбранные данные из ListBox2 сопоставить с полным списком - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбранные данные из ListBox2 сопоставить с полным списком (Макросы/Sub)
Выбранные данные из ListBox2 сопоставить с полным списком
Drreik Дата: Понедельник, 14.04.2014, 21:07 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток, уважаемые гуру!

Прошу вашей помощи в решении задачи, так как я в этом не силен.
Суть проблемы:
Имеется список с уникальным значением шифра, для удобства отображения используется ListBox1. При выборе нужного шифра значение добавляется в ListBox2.
Нужно чтобы данные из ListBox2 сопоставлялись с полным списком и напротив выбранных значении ставилась единица.

Помогите, пожалуйста. Спасибо!
К сообщению приложен файл: listbox.xlsm (90.4 Kb)


Сообщение отредактировал Drreik - Понедельник, 14.04.2014, 21:07
 
Ответить
СообщениеДоброго времени суток, уважаемые гуру!

Прошу вашей помощи в решении задачи, так как я в этом не силен.
Суть проблемы:
Имеется список с уникальным значением шифра, для удобства отображения используется ListBox1. При выборе нужного шифра значение добавляется в ListBox2.
Нужно чтобы данные из ListBox2 сопоставлялись с полным списком и напротив выбранных значении ставилась единица.

Помогите, пожалуйста. Спасибо!

Автор - Drreik
Дата добавления - 14.04.2014 в 21:07
wild_pig Дата: Вторник, 15.04.2014, 02:15 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 516
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
При нажатии на какую кнопку это должно происходить, а, главное, где "полный список" на листе "Тома" или в комбо1 и куда должна единица встать на лист или в комбо? Доходчивей объясняйте.
 
Ответить
СообщениеПри нажатии на какую кнопку это должно происходить, а, главное, где "полный список" на листе "Тома" или в комбо1 и куда должна единица встать на лист или в комбо? Доходчивей объясняйте.

Автор - wild_pig
Дата добавления - 15.04.2014 в 02:15
Drreik Дата: Вторник, 15.04.2014, 06:37 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Прошу прощение!

Полный список находится на листе «Тома».

Действие должно происходить после нажатия на кнопку «ОК» между ListBox1 и ListBox2.

Действия, происходящие при нажатии на кнопку «ОК»:
а) определяется количество выбранных значений в ListBox2;
б) определяется следующая пустая строка по «столбцу 1» в «Листе1» и ставит в порядковый номер на единицу больше, чем в предыдущей строке;
в) определяется следующий пустой столбец по «строке 1» в листе «Тома» и подставляется порядковый номер, определенный в пункте «б»;
г) следующим действием должно идти сопоставление данных из ListBox2 с полным списком на листе «Тома» и напротив выбранных значении ставилась единица в столбец определенный пунктом «в».
 
Ответить
СообщениеПрошу прощение!

Полный список находится на листе «Тома».

Действие должно происходить после нажатия на кнопку «ОК» между ListBox1 и ListBox2.

Действия, происходящие при нажатии на кнопку «ОК»:
а) определяется количество выбранных значений в ListBox2;
б) определяется следующая пустая строка по «столбцу 1» в «Листе1» и ставит в порядковый номер на единицу больше, чем в предыдущей строке;
в) определяется следующий пустой столбец по «строке 1» в листе «Тома» и подставляется порядковый номер, определенный в пункте «б»;
г) следующим действием должно идти сопоставление данных из ListBox2 с полным списком на листе «Тома» и напротив выбранных значении ставилась единица в столбец определенный пунктом «в».

Автор - Drreik
Дата добавления - 15.04.2014 в 06:37
wild_pig Дата: Вторник, 15.04.2014, 13:11 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 516
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Если привязаться к порядковому номеру из базы, то можно так:
К сообщению приложен файл: 123.rar (49.9 Kb)


Сообщение отредактировал wild_pig - Вторник, 15.04.2014, 13:16
 
Ответить
СообщениеЕсли привязаться к порядковому номеру из базы, то можно так:

Автор - wild_pig
Дата добавления - 15.04.2014 в 13:11
Drreik Дата: Вторник, 15.04.2014, 14:34 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
wild_pig, Благодарю!
То, что надо!

Подскажите, как правильно написать в VBA формулу для прибавления 5 рабочих дней к дате указанной в TextBox3 и отображения ее в TextBox4.
Если записывать формулой, то выглядит так
Код
=РАБДЕНЬ(RC[-4];5)

а если при помощи записи макроса то так
Код
ActiveCell.FormulaR1C1 = "=WORKDAY(RC[-4],5)"


Заранее благодарен!
 
Ответить
Сообщениеwild_pig, Благодарю!
То, что надо!

Подскажите, как правильно написать в VBA формулу для прибавления 5 рабочих дней к дате указанной в TextBox3 и отображения ее в TextBox4.
Если записывать формулой, то выглядит так
Код
=РАБДЕНЬ(RC[-4];5)

а если при помощи записи макроса то так
Код
ActiveCell.FormulaR1C1 = "=WORKDAY(RC[-4],5)"


Заранее благодарен!

Автор - Drreik
Дата добавления - 15.04.2014 в 14:34
wild_pig Дата: Вторник, 15.04.2014, 17:20 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 516
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Может так:
[vba]
Код
TextBox4 = Format(WorksheetFunction.WorkDay(CDate(TextBox3), 5), "dd.mm.yyyy")
[/vba]


Сообщение отредактировал wild_pig - Вторник, 15.04.2014, 17:21
 
Ответить
СообщениеМожет так:
[vba]
Код
TextBox4 = Format(WorksheetFunction.WorkDay(CDate(TextBox3), 5), "dd.mm.yyyy")
[/vba]

Автор - wild_pig
Дата добавления - 15.04.2014 в 17:20
Drreik Дата: Среда, 16.04.2014, 05:58 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Может так:

Спасибо, работает!
 
Ответить
Сообщение
Может так:

Спасибо, работает!

Автор - Drreik
Дата добавления - 16.04.2014 в 05:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбранные данные из ListBox2 сопоставить с полным списком (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!