Как выделить определенные ячейки макросом?

20.01.2011, 17:19. **Показов** 20486. **Ответов** 8

Author24 — интернет-сервис помощи студентам

Добрый день!
Заранее простите за глупый вопрос.
Есть массив ячеек (5-7 тысяч в столбце).Нужно выделить, допустим, каждую третью.
Как это сделать?
хотел записать макрос.

получил в тестовом режиме вот что^

Visual Basic

1 2	Range('K594,K595').Select Range('K595').Activate

сгенерировал список номеров ячеек путем x+3
вставил его в range
ругается, выделяет красным, типа много ему ячеек. С 10-20 ячейками получается, больше почему-то нет.
Подскажите, пожалуйста, как это сделать.
Заранее благодарен
С уважением,
Евгений

@ktrn · 23.01.2011, 10:12

Допустим, если нужно выделить в первом столбике каждую третью ячейку, начиная c 1 и заканчивая 5000:

Visual Basic

sub test()
 
Dim i As Integer
For i = 1 To 5000 Step 3
cells(i, 1).Select
'Selection.Font.ColorIndex = 3 
'это если хотим, чтобы цвет шрифта в  ячейке красным был (например)
Next
End Sub

23.01.2011, 10:37

Спасибо, я попробовал! но он не выделяет ячейки все равно. Что делать?

@ktrn · 23.01.2011, 11:18

нужно, чтобы они просто выделились и одновременно все были с синим выделением (как если выделяешь с нажатым Ctrl) или с выделенными ячейками нужно что-то сделать?

23.01.2011, 11:18

нужно, чтобы они одновременно выделились (как с ctrl)

@ktrn · 23.01.2011, 11:50

Может, как-нибудь и проще можно...

Visual Basic

Sub test()
 
Dim i As Integer
Dim r1 As Range
Dim r2 As Range
 
i = 1
Do
    If i > 100 Then
        Exit Do
    End If
    
    Set r1 = Range(Cells(i, 1), Cells(i, 1))
    
    If i = 1 Then
        Set r2 = r1
    Else
        Set r2 = Union(r1, r2)
    End If
    i = i + 3
Loop
 
r2.Select
 
Set r1 = Nothing
Set r2 = Nothing
 
End Sub

23.01.2011, 11:56

Отлично! Это получилось. Огромное спасибо!
но есть два маленьких вопроса:
1. Как сделать то же самое, но со строками целиком
2.Что означает вот этот кусок:

Visual Basic

Do
If i > 100 Then
Exit Do
End If

@ktrn · 23.01.2011, 12:15

Это цикл - Do-loop.
А условие if i>100 then exit Do -условие, что нужно выйти из цикла, в нашем случае, когда доходим до 100-й строчки.

Visual Basic

Sub test()
 
Dim i As Integer
Dim r1 As Range
Dim r2 As Range
 
i = 1
Do
    If i > 100 Then
        Exit Do
    End If
    
    Set r1 = Range(i & ':' & i)
    
    If i = 1 Then
        Set r2 = r1
    Else
        Set r2 = Union(r1, r2)
    End If
    i = i + 3
Loop
 
r2.Select
 
Set r1 = Nothing
Set r2 = Nothing
 
End Sub

23.01.2011, 14:00

Спасибо еще раз огромное!

hijacker
	23.01.2011, 10:37	3
	Спасибо, я попробовал! но он не выделяет ячейки все равно. Что делать?

@ktrn 0 / 0 / 0 Регистрация: 02.11.2010 Сообщений: 7
	23.01.2011, 11:18	4
	нужно, чтобы они просто выделились и одновременно все были с синим выделением (как если выделяешь с нажатым Ctrl) или с выделенными ячейками нужно что-то сделать? 0

hijacker
	23.01.2011, 14:00	9
	Спасибо еще раз огромное!