Определение номера строки

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение номера строки (Макросы/Sub)

Паштет

Дата: Среда, 18.07.2018, 14:02 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 155

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

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

Excel 2010

Добрый день!
Вроде легкий вопрос, но так и не получилось самому сделать рабочий код.
Необходимо сделать заливку ячейки/строки, по значению в ячейке. При записи данных из формы, значение из формы ищется на листе и должна сменится заливка ячейки.
Сделал такой код:
[vba]

Код

iRow = Sheets("Журнал ИБ").Range(Cells(4, 1), Sheets("Журнал ИБ").Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Find(akt2).Offset(, 0)
         For c = 1 To 21
        Sheets("Журнал ИБ").Cells(iRow, c).Interior.Color = RGB(153, 255, 51)
     Next c

[/vba]
Но iRow переписывается строчными буквами и становится как обычная переменная, присваивая себе значение ячейки, а не ее номер.

Сообщение отредактировал Паштет - Среда, 18.07.2018, 14:07

Ответить

_Boroda_

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

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

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

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

в первую строку в конец допишите
.Row

И у Вас там вообще неверно написано. К Келлс нет листаю К Rows тоже
[vba]

Код

With Sheets("Журнал ИБ")
    iRow = .Range(.Cells(4, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 1)).Find(akt2).Row
'или так iRow = .Cells(4, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - 3).Find(akt2).Row
    For c = 1 To 21
        .Cells(iRow, c).Interior.Color = RGB(153, 255, 51)
    Next c
End With

[/vba]

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

Ответить

sboy

Дата: Среда, 18.07.2018, 14:23 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
[vba]

Код

    With Sheets("Журнал ИБ")
        iRow = Range(.Cells(4, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Find(akt2).Row
        Range(.Cells(iRow, 1), .Cells(iRow, 21)).Interior.Color = RGB(153, 255, 51)
    End With

[/vba]

Яндекс: 410016850021169

Сообщение отредактировал sboy - Среда, 18.07.2018, 14:27

Ответить

Паштет

Дата: Среда, 18.07.2018, 14:26 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 155

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

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

Excel 2010

Спасибо. Всё задуманное заработало.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение номера строки (Макросы/Sub)

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