Базовые понятия

[pavel.ignatenko]

День добрый.

Может и ламмерские вопросы задам (как обычно), но с VBA приходится сталкиваться не часто, но бывает нужно. Итак:

1. Как быть если длина Query запроса к вэбу превышает 255 символов? У меня получается порядка 470.
2. Если в результате Query запроса есть возможность получать эксель файл с необходимой информацией, как его "принять". Т.е. как с ним работать, как получить доступ к листу в нем? Имя файла отдается каждый раз разное.

3. Есть лист с данными. Каким образом найти строку первого в которой искомое значени встречается первый раз? Пример: список фамилий. Нужно найти строчку, в которой "Петров" встречается первый раз.

4. Есть лист. Какой командой можно удалить строки. Ну или полностью их очистить, влючая оформление? При этом оставив нетронутыми первые две строки и ширины столбцов и высоты рядов. Пример: есть лист с таблицей. Шапку нужно оставить, всю таблицу, вместе с рамками удалить.

5. Как изменить у ячейки такое свойство как рамка? Т.е. нужно у ячейки задать рамку. Цвет текста, фона -- знаю. А вот рамку -- нет

Еще раз извините за может быть дурацкие вопросы и заранее спасибо за ответы.

[pavel.ignatenko]

Извините, за такое дурацкое название темы, но форум не хотел давать мне создать тему со следующим названием "Разноплановые вопросы".

[pavel.ignatenko]

Забыл еще про один вопрос:

6. Как определить номер последней строки с данными? Есть такая функция? Интересует именно вариант, когда среди строк встречаются пустые и нужна именно последняя.

Спасибо.

[Hugo121]

4 и 5 вручную сделать умеете? Запишите эти действия рекордером в макрос, посмотрите код. Там конечно понапишет много лишнего - можно подсократить, например п5. (из запасников):
======
Натянуть рамку:
With Sheets("Бюджет").Range("A" & r & ":G" & r)
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
End With

Как вариант:
For i = 7 To 10
Sheets("Бюджет").Range("A" & r & ":G" & r).Borders(i).Weight = xlMedium
Next
или лучше и проще
Sheets(1).Range("A" & r & ":G" & r).Borders.Weight = xlThin
=======

6. очень популярный приём:
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
т.е. ищем первую занятую снизу по выбранному столбцу.
Врёт, если столбец забит полностью, что бывает очень редко.

[EducatedFool]

Сообщение от Hugo121

6. очень популярный приём:
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
т.е. ищем первую занятую снизу по выбранному столбцу.
Врёт, если столбец забит полностью, что бывает очень редко.

вот так не врёт:

iLastRow = Range("A" & Rows.Count).End(IIf(Len(Range("A" & Rows.Count)), xlDown, xlUp)).Row

[IgorGO]

на чистом листе запишите что угодно в ячейки А2, В3, С4 и D5. два предыдущих варианта вернут 2 (последнюю заполненную строку в колонке А, потому что исследуют содержимое только колонки А.
такие варианты:

iLastRow = Cells.SpecialCells(xlLastCell).Row
iLastRow = Sheets(1).UsedRange.Row + Sheets(1).UsedRange.Rows.Count - 1

вернут 5 - номер последней строки листа, содержащей данные.

[Hugo121]

С UsedRange и xlLastCell надо быть осторожным.
Это тоже можно сказать "базовые понятия"...
Бывает, что возвращают не 5...

[IgorGO]

извините.
согласен, это всё - варианты, надо понимать что-где на листе лежит и что мы ищем вообще

[pavel.ignatenko]

Ребят, у меня без "исключений из правил".
Если строка есть, то у нее нет пробелов в ячейках.
Ну и вариант поиска по столбцу тоже подходит, т.к. в моем случае это равносильно.

А что на счет п.3? Есть какая хитрая команда поиска? Что-то типа lookup
Я ей задаю ячейку и диапазон и она ищет первое совпадение в этом диапазоне.

Я это конечно все написал, но оно в уродском виде, хочется сделать правильно.
Вот сейчас поиск максимальной строки заменю на предложенную вами строчку, и выброшу нафиг цикл.

[IgorGO]

у lookup есть три параметра
1.что ищем
2.где ищем
3.как ищем
задайте третий параметр = 0 (по умолчанию он = 1). 0 - поможет найти первое совпадение.