База данных - Мир MS Excel

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

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

База данных (Формулы)

База данных

kristina

Дата: Четверг, 03.10.2013, 12:32 | Сообщение № 1

Группа: Гости

Помогите разобраться. Такой вопрос: имеется некий счет в котором я ввожу наименование отдельно цену кол-во(что-то похожее на чек скажем). в столбике В мне нужно ввести наименование,но на листе 1 где находится этот"чек" я список наименований не могу вставить,создаем список на листе 2,и на листе 1 в столбце А строке с 4-10 делаем выбор из раскрывающегося списка,наименований много около 3000,сидеть нажимать стрелочку вниз в этом списке чтоб найти нужное не удобно. Можно ли сделать так чтоб по вводимым мною первым буквам находились похожие наименования?? например у меня есть куча штукатурки штукатурка декост штукатурка делайт лучетеза и тд мне например надо ввести деко. он должен найти штукатурка декост 5л 10 л 16л..и из 3шт я выбираю нужное

надеюсь кто поможет

Ответить

AndreTM

Дата: Четверг, 03.10.2013, 14:07 | Сообщение № 2

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

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

Сообщений: 1762

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

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

2003 & 2010

Неплохо бы пример поглядеть...

Но вообще, я бы посоветовал немного пересмотреть подход к составлению "чека".
У вас ведь один из листов - это полный прайс, разбитый по разделам (возможно, даже с группировкой)? Тогда для составления чека просто выбираем в прайсе позицию, щелкаем некую кнопочку (или действие какое-нибудь производим, типа даблклика) - и позиция переносится в свободную строчку чека. Ищем следующую позицию...
В прайсе можно воспользоваться фильтрами и т.п., а в чеке ещё сделать очистку. В целом несколько коротеньких макросов в нужных местах книги...

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Kristina

Дата: Четверг, 03.10.2013, 14:21 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2003

вот пример

К сообщению приложен файл: _-2013_-.xls (100.0 Kb)

Ответить

Kristina

Дата: Четверг, 03.10.2013, 14:22 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2003

только конечно наименование я намного сократила чтобы вместиться в 100кб

Ответить

Матраскин

Дата: Четверг, 03.10.2013, 16:21 | Сообщение № 5

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

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

Сообщений: 375

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

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

20xx

Kristina, что-то

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

в интернете опять кто-то не прав

Ответить

ikki

Дата: Четверг, 03.10.2013, 16:42 | Сообщение № 6

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

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

Сообщений: 1906

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

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

Excel 2003, 2010

http://www.excelvba.ru/code/DropDownList

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

kristina

Дата: Пятница, 04.10.2013, 13:33 | Сообщение № 7

Группа: Гости

спасибо особенно ссылка очень понятно как это делать

Ответить

Hugo

Дата: Пятница, 04.10.2013, 14:03 | Сообщение № 8

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

Ранг: Участник клуба

Сообщений: 3731

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

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

365

Я когда-то делал вот точно такую программу - есть прайс, включаем кнопку - даблклик по позиции просит ввести количество, и так пока кнопку не выключим.
Получаем лист под печать, и общий лист для архива. Ну как-то так, точно не помню. Если интересно - говорите, дома где-то в архиве должно быть, возможно найду (детали за давностью лет не помню...)
Но помню что код был не так уж прост, учитывая все нюансы.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Wasilich

Дата: Пятница, 04.10.2013, 20:44 | Сообщение № 9

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

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

Сообщений: 1232

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

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

2003

Цитата (kristina, 03.10.2013 в 12:32, в сообщении № 1)

Можно ли сделать так чтоб по вводимым мною первым буквам находились похожие наименования?

Несколько раз выкладывал этот пример. Сергей даже собирался в "Готовые решения" его положить.

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

Сообщение отредактировал Wasilic - Пятница, 04.10.2013, 20:54

Ответить

Pelena

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

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

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

Сообщений: 19427

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

Замечаний: ±

Excel 365 & Mac Excel

Wasilic, Вы же можете и сами в ГОТОВЫХ РЕШЕНИЯХ тему создать, пример ведь Ваш

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

RAN

Дата: Пятница, 04.10.2013, 21:21 | Сообщение № 11

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

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

Сообщений: 5660

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

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

2010

Я бы заменил
[vba]

Код

Private Sub TextBox1_Change()
Dim i As Long
ListBox1.Clear
If Len(TextBox1) Then
     For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
         If UCase(Left(Cells(i, 3), Len(TextBox1))) = UCase(TextBox1.Value) Then
             ListBox1.AddItem
             ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, 3)
         End If
     Next i
End If
End Sub

[/vba]