Заливка диапазона ячеек по активной ячейке

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Заливка диапазона ячеек по активной ячейке - Мир MS Excel

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

Заливка диапазона ячеек по активной ячейке (Макросы/Sub)

Заливка диапазона ячеек по активной ячейке

neolog08

Дата: Среда, 07.10.2015, 16:06 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2013

Добрый день! Прошу помощи с следующим кодом:
[vba]

Код

Sub Button5_click()
         Dim i As Integer
      i = ActiveCell.Row
      'MsgBox "current row - " & i
Sheets1.Range("A" & i, "G" & i).Interior.ColorIndex = 6
End Sub

[/vba]
Почему то выдает 424 ошибку...
Хочу закрашивать диапазон ячеек по номеру строки активной ячейки :shy:

Сообщение отредактировал neolog08 - Среда, 07.10.2015, 16:09

Ответить

Pelena

Дата: Среда, 07.10.2015, 16:14 | Сообщение № 2

Группа: Админы

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

Сообщений: 19603

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Может, так
[vba]

Код

Sub Button5_click()
     Dim i As Integer
     i = ActiveCell.Row
     'MsgBox "current row - " & i
     Sheets(1).Range("A" & i & ":G" & i).Interior.ColorIndex = 6
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

neolog08

Дата: Среда, 07.10.2015, 16:19 | Сообщение № 3

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

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

Сообщений: 2

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

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

Excel 2013

Премного благодарен) Видимо заработался)

Ответить

Заливка диапазона ячеек по активной ячейке (Макросы/Sub)

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