подскажите новичку-do-loop

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » подскажите новичку-do-loop (Макросы/Sub)

Дата: Вторник, 10.03.2015, 01:13 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Я только осваиваю excel, и сижу над задачей- задать цикл с помощью do-loop который будет повторять
текст 20 раз и окрашивать в желтый цвет каждый второй ряд. У меня получилось только часть задания:

[vba]

Код

Sub Color()
Dim i As Long
For i = 1 To 100 Step 2
Rows(i).Interior.Color = vbYellow
Next i
End Sub

[/vba]

Подскажите как написать формулу с повторением текста? Excel в английской версии. постоянно выдает ошибкую. И как совместить чтобы обе
операции выполнялись одновременно? Заранее спасибо!
[moder]Коды следует оформлять тегами (кнопка #) и название темы конкретизируйте в соответствии с Правилами форума[/moder]

Сообщение отредактировал Pelena - Вторник, 10.03.2015, 08:54

Ответить

_Boroda_

Дата: Вторник, 10.03.2015, 02:32 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub tt()
      Do
          n_ = n_ + 1
          Range("A" & n_) = "Text"
          If n_  <= 10 Then Range("A" & n_ * 2).Interior.Color = vbYellow
      Loop While n_ < 20
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Вторник, 10.03.2015, 23:52 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Вы волшебник! Работает! Огромное спасибо!:)

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » подскажите новичку-do-loop (Макросы/Sub)

Страница 1 из 1
1