Страница 1 из 1
Excel и VBA
Добавлено: 19 июл 2010, 00:24
Skaris
нужна помощъ с VBA. толъко начал с ней работатъ.
естъ таблица в Excel в который естъ ячейки для заполнения, это №, ФИО ну и так далее. так же естъ кнопка на этой странице открывает форму из VBA через которую должны забиватъся данные этой таблицы. Форма уже сделана, но естъ проблемы с программным кодом.
как это все сделатъ и при этом чтобы заполненные ячейки не трогалисъ а новые данные записывалисъ в ячейки ниже?
Re: Excel и VBA
Добавлено: 19 июл 2010, 01:27
nilem
Давайте свой файл, попробуем сделать.
Re: Excel и VBA
Добавлено: 19 июл 2010, 10:39
Skaris
вот, держи[ATTACH]1340[/ATTACH]
Re: Excel и VBA
Добавлено: 19 июл 2010, 17:56
nilem
Вот, лови.
Re: Excel и VBA
Добавлено: 22 июл 2010, 10:15
Skaris
ого, все работает как надо. благодарю
а как осуществитъ поиск через VBA по определенному столбцу, например по номеру клиента? форма простая, строка куда вводишъ номер для поиска и соответственно сама кнопка поиска.
Re: Excel и VBA
Добавлено: 23 авг 2010, 10:09
RomaS
А вот так)))
Даже без формы. Ищет что угодно, но можно и конкретизировать
Excel и VBA
Добавлено: 25 авг 2010, 14:00
polia
Помогите пожалуйста.
Написала макрос для выбора данных из списка с помощью автофильтра. С числовыми колонками отрабатывает, а вот с колонкой типа "Дата" отказывается срабатывать. Причем если вручную это все проделать все нормально.
Может я чего не понимаю?
Заранее спасибо.
avto_PZ.Range("A1:H65536").AutoFilter
avto_PZ.Range("A1:H65536").AutoFilter Field:=1, Criteria1:="001-29", Operator:=xlOr, Criteria2:="001-50" '
avto_PZ.Range("A1:H65536").AutoFilter Field:=3, Criteria1:="810"
avto_PZ.Range("A1:H65536").AutoFilter Field:=4, Criteria1:="<01.01.2010"
Re: Excel и VBA
Добавлено: 25 авг 2010, 16:10
EducatedFool
а вот с колонкой типа "Дата" отказывается срабатывать
Надо сравнивать с числовым значением даты.
В вашем случае это будет так:
.AutoFilter Field:=4, Criteria1:="<40179"
Ну или так:
Код: Выделить всё
Sub test()
With avto_PZ.Range("A1:H65536")
.AutoFilter
.AutoFilter Field:=1, Criteria1:="001-29", Operator:=xlOr, Criteria2:="001-50" '
.AutoFilter Field:=3, Criteria1:="810"
.AutoFilter Field:=4, Criteria1:="<" & CDbl(CDate("01.01.2010"))
End With
End Sub
Re: Excel и VBA
Добавлено: 26 авг 2010, 12:29
polia
Работает!!! Спасибо за помощь!
Честно говоря, не думала что кто-нибудь откликнется. Приятная неожиданность.