Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нахождение числа , по дальности на листе, с верху вниз и в строке с права на лево ? / 4 сообщений из 4, страница 1 из 1
29.01.2011, 19:43
    #37086246
Саша2410
Саша2410
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нахождение числа , по дальности на листе, с верху вниз и в строке с права на лево ?
Уважаемые форумчане , этот код находит предпоследнее значение на листе (пустых строк нет). Но если несколько значений находятся на одной строке, код видит их все как предпоследние , помогите если сможете , как включить в этот код проверку с права на лево

lr = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
If lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 Then
[a1] = Cells(Rows.Count, "B").End(xlUp)
End If

В этом примере столбец "B" фактически не -1 , а -3 от последнего значения на листе .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2011, 15:53
    #37086870
Саша2410
Саша2410
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нахождение числа , по дальности на листе, с верху вниз и в строке с права на лево ?
Уважаемые форумчане .
Вот макрос на листе если нет пустых строк находит предпоследнее значение если оно есть в столбце "в" и копирует в "a1", но если поменять в макросе "В" к примеру на "Н" если оно есть предпоследнее в столбце "Н", то уже не находит и не копирует . Возможно-ли изменить этот макрос
что-бы он находил допустим третье значение на листе учитывая , что пустых строк нет ,если вести отсчёт с самого крайнего значения UsedRange потом от него отсчитывать сразу влево по строке если нет , то подниматься выше на строку и влево т.д и когда находит , если третье крайнее с низу , значение находится в указаном в макросе столбце то копировать в "а1" Пример на четырёх листах

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Shag2_2()
lr = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count -  1 
If Application.CountA(Rows(lr)) =  2  And Cells(lr, "B") <> "" Then
[a1] = Cells(Rows.Count, "B").End(xlUp)
ElseIf Application.CountA(Rows(lr -  1 )) =  1  And Cells(lr -  1 , "B") <> "" Then
[a1] = Cells(Rows.Count, "B").End(xlUp)
End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2011, 00:59
    #37087360
Саша2410
Саша2410
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нахождение числа , по дальности на листе, с верху вниз и в строке с права на лево ?
ВСЁ РЕШИЛОСЬ .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2011, 09:03
    #37087496
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нахождение числа , по дальности на листе, с верху вниз и в строке с права на лево ?
Саша2410,

я искренне рад за вас, пострайтесь не забывать про тег SRC.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нахождение числа , по дальности на листе, с верху вниз и в строке с права на лево ? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]