Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.04.2020, 17:00   #1
pacha.i
Пользователь
 
Регистрация: 06.10.2017
Сообщений: 32
По умолчанию Выделение строк по условию

Здравствуйте. Подскажите, пожалуйста, как можно выделить каждую третью строку таблицы. ? Таблица большая и состоит из слов. Спасибо.
pacha.i вне форума Ответить с цитированием
Старый 08.04.2020, 17:11   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

с помощью условного форматирования
Вложения
Тип файла: xlsx Каждая3я.xlsx (9.6 Кб, 4 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 08.04.2020, 17:49   #3
pacha.i
Пользователь
 
Регистрация: 06.10.2017
Сообщений: 32
По умолчанию

Я выделяю строку, а потом с пом. CTRI выделяю остальные через 2, чтобы потом вставить пустую строку. Т.е. получить 3-пустая-3-пустая-3-пустая и т.д. А как с помощью усл. форматирования,? Необходимо ли скачивать надстройку?
pacha.i вне форума Ответить с цитированием
Старый 08.04.2020, 18:02   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

вы когда определитесь что вам нужно:
1. выделить каждую 3-ю строку в таблице
2. выделять по 2
3. вставлять пустые строки
4. х\з еще что...

тогда пишите, может кто-то поможет, а пока собираетесь с мыслями - чтобы не терять время делайте все врукопашную
удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 24.04.2020, 22:03   #5
Артём812
Пользователь
 
Регистрация: 12.10.2016
Сообщений: 12
По умолчанию

Sub dmi()
Dim i As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
ws.Cells.Clear
For i = 1 To 10 Step 3
ws.Cells(i, "A").Interior.Color = vbYellow
Next i
End Sub
Артём812 вне форума Ответить с цитированием
Старый 24.04.2020, 22:51   #6
Артём812
Пользователь
 
Регистрация: 12.10.2016
Сообщений: 12
По умолчанию

Прошу прощения, предыдущий код выделяет цветом каждую третью ячейку. Код ниже вставляет после каждой третьей строки новую строку в диапазоне от 1 до 10.

Dim i As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets(1)

For i = 1 To 10 Step 3
ws.Cells(i, "A").Select
Selection = ws.Cells(i, "A").Insert
ws.Cells(i, "A").Value = " "
Next i
Артём812 вне форума Ответить с цитированием
Старый 25.04.2020, 13:13   #7
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Цитата:
Сообщение от Артём812 Посмотреть сообщение
Код ниже вставляет после каждой третьей строки новую строку
1. Код нужно публиковать правильно.
2. в коде много лишнего, процесс можно сократить до
Код:
    For i = 1 To 10 Step 3: ws.Cells(i, "A").Insert: Next
3. самое основное - этот код не вставляет строку!!!
Код:
For i = 1 To 10 Step 3: ws.Cells(i, "A").EntireRow.Insert: Next
Вот этот вставляет. Но не до 10-й.
Поэтому обычно идут циклом снизу вверх - там точно понятно без доп.вычислений до какой строки будет результат.
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 25.04.2020 в 13:20.
Hugo121 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удаление строк по опр условию 30gb Microsoft Office Excel 3 14.08.2014 19:12
скрытие строк по условию govorun1 Microsoft Office Excel 5 24.05.2014 21:50
Скрытие строк по условию MaxxVer Microsoft Office Excel 11 09.04.2010 05:55
Выделение диапазона по условию тестовых значений ячеек as-is Microsoft Office Excel 1 08.03.2010 14:45
выделение листов по условию Bronyk Microsoft Office Excel 5 11.03.2008 19:40