Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA ошибка "Метод paste из класса worksheet завершен неверно" http://www.cyberforum.ru/vba/thread1999752.html
Private Sub CommandButton1_Click() Dim b As String Dim str As String b = Mid(Cells(2, 2), 3, 8) Range("A1:M120").Select Selection.Copy ChDir...
VBA Функция: вернуть значение, равное удвоенной сумме переданных параметров, деленной на 33 Написать функцию Func_33, которая принимает два числа с плавающей точкой в качестве параметров и возвращает число с плавающей точкой, равное удвоенной сумме переданных параметров, деленной на 33.... http://www.cyberforum.ru/vba/thread1999747.html
Вывод всех строк,содержащих введенное слово VBA
У меня есть форма и на ней есть 2 текстбокса. В один я ввожу строку для поиска,а во вторую выводится сообщение о содержании данной строки в ячейке А. Оно только находит одну строку,а другие не...
VBA Определить номер строки,номер столбца элемента aij=3
Пусть дана матрица размерности m=29, n=3. Определить номер строки,номер столбца элемента aij=3. Нужна программа.Помогите,пожалуйста.Вопрос жизни и двойки на экзамене.
VBA Решение системы уравнений методом Гаусса (чуть-чуть поправить) http://www.cyberforum.ru/vba/thread1999478.html
Всем привет. Задача решить систему уравнений. Получилось следующее. ПРоблема заключается в том, что для некоторых значений происходит деление на 0, из -за чего падает программа. Помогите, пожалуйста,...
VBA Используя алгоритм Евклида, найти наибольший общий делитель Алгоритм Евклида нахождения наибольшего общего делителя (НОД) неотрицательных целых чисел основан на следующих свойствах этой величины. Пусть тип — одновременно не равные нулю целые неотрицательные... подробнее
Simply me
235 / 31 / 6
Регистрация: 05.05.2012
Сообщений: 321
Завершенные тесты: 1
13.06.2017, 08:00  [ТС] 0

Find и Select

13.06.2017, 08:00. Просмотров 880. Ответов 40
Метки (Все метки)

Ответ

1. что скрывается в first_row - неизвестно.
Visual Basic
1
2
 Set C1 = Sheets.Item(i).Range("A1:A1000").Find("№")
first_row=C1.Row+2 'Первая строка таблицы
Я так понимаю у вас ячейка "A22" всё время содержит начало "номенклатуры"
Нет, не на всех листах книги.

Добавлено через 35 минут
Такой код работает:
Visual Basic
1
last_row=Sheets.Item(i).Cells(first_row, 2).End(xlDown).Row
Но почему-то кроме случаев, когда в таблице - 1 строка (first_row=last_row).

Вернуться к обсуждению:
Find и Select
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2017, 08:00
Готовые ответы и решения:

Как оформить условие на попадание в диапазон в конструкции Select Case ... End Select?
Народ, подскажите please, правильна ли конструкция следующего кода: Sub...

Ошибка в пользовательской форме "End Select without select case"
У меня был написан код, который хорошо работал.Я решил добавить...

Select Without Select Case
Помогите кто-нибудь, пожалуйста! Написала такой вот код, но мне выдает...

Find Find
Здравствуйте, имею код: With ActiveDocument.Range.Find 'ищем текст ...

Find в VBA
Помогите с помощью Find найти в каком из столбцов находиться число 4,начиная с...

40
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru