|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.04.2020, 17:00 | #1 |
Пользователь
Регистрация: 06.10.2017
Сообщений: 32
|
Выделение строк по условию
Здравствуйте. Подскажите, пожалуйста, как можно выделить каждую третью строку таблицы. ? Таблица большая и состоит из слов. Спасибо.
|
08.04.2020, 17:11 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
с помощью условного форматирования
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.04.2020, 17:49 | #3 |
Пользователь
Регистрация: 06.10.2017
Сообщений: 32
|
Я выделяю строку, а потом с пом. CTRI выделяю остальные через 2, чтобы потом вставить пустую строку. Т.е. получить 3-пустая-3-пустая-3-пустая и т.д. А как с помощью усл. форматирования,? Необходимо ли скачивать надстройку?
|
08.04.2020, 18:02 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
вы когда определитесь что вам нужно:
1. выделить каждую 3-ю строку в таблице 2. выделять по 2 3. вставлять пустые строки 4. х\з еще что... тогда пишите, может кто-то поможет, а пока собираетесь с мыслями - чтобы не терять время делайте все врукопашную удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
24.04.2020, 22:03 | #5 |
Пользователь
Регистрация: 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 |
24.04.2020, 22:51 | #6 |
Пользователь
Регистрация: 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 |
25.04.2020, 13:13 | #7 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
1. Код нужно публиковать правильно.
2. в коде много лишнего, процесс можно сократить до Код:
Код:
Поэтому обычно идут циклом снизу вверх - там точно понятно без доп.вычислений до какой строки будет результат.
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 25.04.2020 в 13:20. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удаление строк по опр условию | 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 |