Здравствуйте! Помогите пожалуйста создать прайс по типу какого нибудь интернет магазина, т.е. в файле который я прикрепил на вкладке "прайс" есть строка "поиск по наименованию" дак вот было бы здорово, если клиент мог бы нажать на эту ячейки и здесь же написать слово к примеру "амортизатор" список внизу отсеит по фильтру лишнее и оставит все значения со словом амортизатор в наименовании. Ну и второе если это возможно то чтобы на против каждого наименования была ячейка с кнопкой "добавить в заявку" (типа как корзина на сайтах) и при нажатии выбранная позиция из прайса копировалась в 1 лист файла т.е. в заявку.. П.С. сам прайс конечно больше, в 100кб не укладывался, удалил многое. отправил файл как образец. Я почти не шарю в ексели и поэтому прошу помощи. Что нужно, чтобы реализовать мои задачи?
Здравствуйте! Помогите пожалуйста создать прайс по типу какого нибудь интернет магазина, т.е. в файле который я прикрепил на вкладке "прайс" есть строка "поиск по наименованию" дак вот было бы здорово, если клиент мог бы нажать на эту ячейки и здесь же написать слово к примеру "амортизатор" список внизу отсеит по фильтру лишнее и оставит все значения со словом амортизатор в наименовании. Ну и второе если это возможно то чтобы на против каждого наименования была ячейка с кнопкой "добавить в заявку" (типа как корзина на сайтах) и при нажатии выбранная позиция из прайса копировалась в 1 лист файла т.е. в заявку.. П.С. сам прайс конечно больше, в 100кб не укладывался, удалил многое. отправил файл как образец. Я почти не шарю в ексели и поэтому прошу помощи. Что нужно, чтобы реализовать мои задачи?anabioss13
дак с таким же успехом работает и ctrl+f стандартный поиск. Задача как раз в том, что бы даже самый глупый пользователь интуитивно мог оформить заказ, без всяких лишних телодвижений. в строке поиска набрать запрос, получить список и отправить выбранный товар в заявку на другой лист.
дак с таким же успехом работает и ctrl+f стандартный поиск. Задача как раз в том, что бы даже самый глупый пользователь интуитивно мог оформить заказ, без всяких лишних телодвижений. в строке поиска набрать запрос, получить список и отправить выбранный товар в заявку на другой лист.anabioss13
честно говоря не обратил внимание на это правило.. И раз уж так вышло, можете мне объяснить, что в этом ужасающего? Я просто выразил благодарность человеку ЛИЧНО, не на публику..
честно говоря не обратил внимание на это правило.. И раз уж так вышло, можете мне объяснить, что в этом ужасающего? Я просто выразил благодарность человеку ЛИЧНО, не на публику..anabioss13
_Boroda_, Саша, осмелюсь на небольшое усложнение твоей фильтрующей процедуры: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "E8" Then r_ = Range("B" & Rows.Count).End(xlUp).Row 'ActiveSheet.Range("A10:G" & r_).AutoFilter Field:=5, Criteria1:="*" & Target & "*" With ActiveSheet.Range("A10:G" & r_) If Target <> "" Then .AutoFilter Field:=5, Criteria1:="*" & Target & "*" Else .AutoFilter Field:=5 'не путать с ActiveSheet.ShowAllData ! End If End With End If End Sub
[/vba] Смысл - избавление от характерной синенькой подсветки отфильтрованных строк при пустой строке поиска. Иначе может быть чревато, например, при вставке новых строк в середину таблицы и копировании формул из соседних строк - могут скопироваться только значения. Сам нарывался пару раз, причем не сразу замечал...
_Boroda_, Саша, осмелюсь на небольшое усложнение твоей фильтрующей процедуры: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "E8" Then r_ = Range("B" & Rows.Count).End(xlUp).Row 'ActiveSheet.Range("A10:G" & r_).AutoFilter Field:=5, Criteria1:="*" & Target & "*" With ActiveSheet.Range("A10:G" & r_) If Target <> "" Then .AutoFilter Field:=5, Criteria1:="*" & Target & "*" Else .AutoFilter Field:=5 'не путать с ActiveSheet.ShowAllData ! End If End With End If End Sub
[/vba] Смысл - избавление от характерной синенькой подсветки отфильтрованных строк при пустой строке поиска. Иначе может быть чревато, например, при вставке новых строк в середину таблицы и копировании формул из соседних строк - могут скопироваться только значения. Сам нарывался пару раз, причем не сразу замечал...Gustav
Попробую показать на примере, может, кто-нибудь даст объяснение.
Попробуй в прилагаемом файле (применен автофильтр) выделить и скопировать жёлтый диапазон BF20:BR20 строкой ниже - в строку 21. По одной ячейки копируются нормально, с сохранением формул. Но всем диапазоном - после вставки остаются только значения. Какое-то "недоразумение" заключено в ячейке BQ20 (там формула со СМЕЩ). Если выделить меньший жёлтый диапазон, без нее, то формулы копируются нормально.
Если выключить автофильтр, то всё копируется абсолютно нормально, как и ожидается.
Попробую показать на примере, может, кто-нибудь даст объяснение.
Попробуй в прилагаемом файле (применен автофильтр) выделить и скопировать жёлтый диапазон BF20:BR20 строкой ниже - в строку 21. По одной ячейки копируются нормально, с сохранением формул. Но всем диапазоном - после вставки остаются только значения. Какое-то "недоразумение" заключено в ячейке BQ20 (там формула со СМЕЩ). Если выделить меньший жёлтый диапазон, без нее, то формулы копируются нормально.
Если выключить автофильтр, то всё копируется абсолютно нормально, как и ожидается.Gustav