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

Вход

Регистрация

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

 

= Мир MS Excel/Вывод большого количества однотипных данных. поле со списком - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод большого количества однотипных данных. поле со списком (Макросы/Sub)
Вывод большого количества однотипных данных. поле со списком
udarock Дата: Понедельник, 03.11.2014, 13:05 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 10 ±
Замечаний: 20% ±

Excel 2013
Здравствуйте!
Столкнулся с такой проблемой:
Когда на одном листе использую много полей со списком EXCEL начинает виснуть
Объясню на примере, что мне необходимо.
Есть данные (Лист1 Ячейки(А2:В7))
На Листе 2 необходимо вывести выбранное значение через одну ячейку после ячейки, в котором стоит поле со списком.
Так же хотелось бы, чтобы поиск был не по первой букве, а был по содержанию т.е. если в поле ввести "один" остались бы значения "один" и "шестьдесят один".
как можно найти решение, чтобы не EXCEL работал без зависании при увеличении числа таких полей?
К сообщению приложен файл: 7864079.xlsx (48.5 Kb)


Сообщение отредактировал udarock - Понедельник, 03.11.2014, 13:18
 
Ответить
СообщениеЗдравствуйте!
Столкнулся с такой проблемой:
Когда на одном листе использую много полей со списком EXCEL начинает виснуть
Объясню на примере, что мне необходимо.
Есть данные (Лист1 Ячейки(А2:В7))
На Листе 2 необходимо вывести выбранное значение через одну ячейку после ячейки, в котором стоит поле со списком.
Так же хотелось бы, чтобы поиск был не по первой букве, а был по содержанию т.е. если в поле ввести "один" остались бы значения "один" и "шестьдесят один".
как можно найти решение, чтобы не EXCEL работал без зависании при увеличении числа таких полей?

Автор - udarock
Дата добавления - 03.11.2014 в 13:05
Pelena Дата: Понедельник, 03.11.2014, 14:19 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19195
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
А просто выпадающие списки, созданные через Данные -- Проверка, не подойдут?
К сообщению приложен файл: 6464224.xlsx (12.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
А просто выпадающие списки, созданные через Данные -- Проверка, не подойдут?

Автор - Pelena
Дата добавления - 03.11.2014 в 14:19
udarock Дата: Понедельник, 03.11.2014, 16:58 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 10 ±
Замечаний: 20% ±

Excel 2013
Не подоидут, мне нужно, чтобы при изменении значении в ячейке, где выведены данные, менялись и данные, которые у меня сделаны через список, а у Вас через проверку данных.
 
Ответить
СообщениеНе подоидут, мне нужно, чтобы при изменении значении в ячейке, где выведены данные, менялись и данные, которые у меня сделаны через список, а у Вас через проверку данных.

Автор - udarock
Дата добавления - 03.11.2014 в 16:58
udarock Дата: Вторник, 04.11.2014, 20:57 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 10 ±
Замечаний: 20% ±

Excel 2013
Вот начал переделывать код, который нашел на этом сайте.
помогите доделать всё правильно)
в диапазоне D2:D20 можно выбрать данные из столбца L
первая проблема - это поиск работает только один раз.
вторая - хотелось выбранное значение вывести на столбец дальше на 10 столбцов от столбца D, но не получается.
К сообщению приложен файл: 127.xlsm (92.3 Kb)


Сообщение отредактировал udarock - Вторник, 04.11.2014, 21:03
 
Ответить
СообщениеВот начал переделывать код, который нашел на этом сайте.
помогите доделать всё правильно)
в диапазоне D2:D20 можно выбрать данные из столбца L
первая проблема - это поиск работает только один раз.
вторая - хотелось выбранное значение вывести на столбец дальше на 10 столбцов от столбца D, но не получается.

Автор - udarock
Дата добавления - 04.11.2014 в 20:57
udarock Дата: Вторник, 04.11.2014, 22:43 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 10 ±
Замечаний: 20% ±

Excel 2013
Поясняю:
Первая проблема:
вот эта часть кода работает только один раз
[vba]
Код
For i = 1 To UBound(x, 1)
         If InStr(x(i, 1), txt) Then s = s & "~" & x(i, 1)
Next i
ListBox1.List = Split(Mid(s, 2), "~")
End Sub
[/vba]

Вторая проблема:
Вот эта часть кода вообще не работает
[vba]
Код
ComboBox1.LinkedCell = Cells(db, (da + 10))
[/vba]
[moder]Для оформления кода используйте кнопку #[/moder]


Сообщение отредактировал udarock - Вторник, 04.11.2014, 22:48
 
Ответить
СообщениеПоясняю:
Первая проблема:
вот эта часть кода работает только один раз
[vba]
Код
For i = 1 To UBound(x, 1)
         If InStr(x(i, 1), txt) Then s = s & "~" & x(i, 1)
Next i
ListBox1.List = Split(Mid(s, 2), "~")
End Sub
[/vba]

Вторая проблема:
Вот эта часть кода вообще не работает
[vba]
Код
ComboBox1.LinkedCell = Cells(db, (da + 10))
[/vba]
[moder]Для оформления кода используйте кнопку #[/moder]

Автор - udarock
Дата добавления - 04.11.2014 в 22:43
nilem Дата: Среда, 05.11.2014, 07:14 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
udarock,
тот пример, наверное, не очень вам подходит.
Данных, вроде, не много - может все держать в комбо, и просто выбирать из него (без поиска)?


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеudarock,
тот пример, наверное, не очень вам подходит.
Данных, вроде, не много - может все держать в комбо, и просто выбирать из него (без поиска)?

Автор - nilem
Дата добавления - 05.11.2014 в 07:14
WeRiX Дата: Среда, 05.11.2014, 19:27 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 4 ±
Замечаний: 0% ±

Excel 2013
Интересный код нарыли, самому пригодилось (:
Чуток покопался и немного переворотил под свое видение-->
К сообщению приложен файл: 9724305.xlsm (91.3 Kb)
 
Ответить
СообщениеИнтересный код нарыли, самому пригодилось (:
Чуток покопался и немного переворотил под свое видение-->

Автор - WeRiX
Дата добавления - 05.11.2014 в 19:27
udarock Дата: Суббота, 08.11.2014, 22:07 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 10 ±
Замечаний: 20% ±

Excel 2013
Это в примере данных не много, а там где он мне нужен база огромная, файл 3,5 Мб.
WeRiX, спасибо, поиск правильно работает.
как только сделать так чтобы данные выводились не на выбранную ячейку?
 
Ответить
СообщениеЭто в примере данных не много, а там где он мне нужен база огромная, файл 3,5 Мб.
WeRiX, спасибо, поиск правильно работает.
как только сделать так чтобы данные выводились не на выбранную ячейку?

Автор - udarock
Дата добавления - 08.11.2014 в 22:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод большого количества однотипных данных. поле со списком (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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