Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Sasanik
3 / 3 / 0
Регистрация: 12.12.2015
Сообщений: 174
1

Обработка только видимых строк

27.09.2016, 17:49. Просмотров 916. Ответов 2
Метки нет (Все метки)

Добрый день! Уважаемые форумчане, Нужна обработка только видимых строк значений в таблице. Вот таким циклом обрабатываю, табличку: -
Visual Basic
1
2
3
4
   For Each aCell In Selection.SpecialCells(xlCellTypeVisible)
         Z = aCell.Row
         ' действие
   Next
Выделяю несколько строк, или столбец ячеек и всё работает, на первый взгляд нормально. Но стоит выделить ОДНУ строку (ячейку)...
Z - номер строки активной (выбранной) ячейки, если выделена только одна ячейка, почему-то определяется как - 1. Т.е. Z = 1, а это не верно. Ведь я выделяю не первую строку, а например 15-ю. Можно ли справится с таким вероломством кода?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2016, 17:49
Ответы с готовыми решениями:

Удаление видимых строк в фильтре
Добрый день, помогите найти ошибку в коде: есть форматированная таблица, макросом через фильтр...

Обработка только 10 тысяч строк
Добрый день уважаемые форумчане! Вопрос вот в чем, есть у меня БД в MS Access 2010 - 590 000...

DataGrid обновление видимых строк
Ситуация: имею DataGrid с кучей данных, среди которых есть картинки. Картинки - автоматом созданные...

Обработка строк. В предложении оставить только слова короче четырех букв
В заданном предложении оставить только слова короче 4-х букв. Напечатать полученное предложение и...

Необходимо, чтобы видео проигрывалось только на видимых в данный момент гранях куба
Доброго времени суток! Задача такая: имеется 3х мерный куб. На его гранях расположены...

2
The_Prist
1311 / 290 / 65
Регистрация: 13.11.2008
Сообщений: 604
27.09.2016, 18:30 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim rr As Range, aCell As Range
If Selection.Count = 1 Then
    Set rr = ActiveCell
Else
    Set rr = Selection.SpecialCells(12)
End If
 
For Each aCell In rr.Cells
    Z = aCell.Row
    ' действие
Next
1
Sasanik
3 / 3 / 0
Регистрация: 12.12.2015
Сообщений: 174
27.09.2016, 19:29  [ТС] 3
The_Prist, Спасибо! Огромное, ЗАРАБОТАЛО!!! На следующей неделе буду пробовать в "боевых" условиях.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.09.2016, 19:29

Вывести массивы номеров строк и столбцов, все элементы которых равны только 1 или только 0
Задан размер квадратной матрицы и значения ее элементов (0 или 1). Сформировать и вывести массив...

Сортировка строк с суммированием чисел только выбранных строк
Наглядное условие в примере в прикрепленном файле. Как сделать сортировку построчно, при этом...

Для заданных трех строк S1, S2 и S3 напечатать те латинские буквы, которые входят только в одну из этих строк
Для заданных трех строк S1, S2 и S3 напечатать те латинские буквы, которые входят только в одну из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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