Форум программистов, компьютерный форум, киберфорум
Наши страницы
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 Используя алгоритм Евклида, найти наибольший общий делитель Алгоритм Евклида нахождения наибольшего общего делителя (НОД) неотрицательных целых чисел основан на следующих свойствах этой величины. Пусть тип — одновременно не равные нулю целые неотрицательные... подробнее
nodirstein
25 / 25 / 8
Регистрация: 12.04.2015
Сообщений: 75
10.06.2017, 22:11 0

Find и Select

10.06.2017, 22:11. Просмотров 892. Ответов 40
Метки (Все метки)

Ответ

Цитата Сообщение от Simply me Посмотреть сообщение
А подскажите еще, пожалуйста. Есть какие-то способы найти последнюю непустую ячейку? Но не абсолютно последнюю, а как бы первую непустую относительно другой ячейки.
Нашла способы для нахождения абсолютно последней непустой ячейки.
Visual Basic
1
2
3
last_row = Cells(Rows.Count, 1).End(xlUp).Row
 last_row = Cells.SpecialCells(xlLastCell).Row
 last_row = UsedRange.Row UsedRange.Rows.Count – 1
Для моего случая они возвращают 35, а нужно – 27.
Visual Basic
1
Cells(22,1).end(xlDown).Row
Добавлено через 6 минут
Я так понимаю у вас ячейка "A22" всё время содержит начало "номенклатуры"
Visual Basic
1
2
3
4
5
6
7
8
Sub aaa()
Dim i As Integer, r As Integer
    For i = 22 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 2).Value = "" Then
            r = i 'r - запоминает номер строки с непустой ячейкой после строки №22
        End If
    Next i
End Sub


Вернуться к обсуждению:
Find и Select
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2017, 22:11

Find Wrap
свойство Wrap - поворачивать, заворачивать - определяет поведение поиска при...

метод find
Добрый день! Имеются столбцы А и B с данными необходимо написать макрос...

VBA-Excel-Find
Добрый день! Имеем: в ячейке A2 "2016" в ячейке B2 =ТЕКСТ("01.01." &...

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