Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Определение номера строки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение номера строки (Макросы/Sub)
Определение номера строки
Паштет Дата: Среда, 18.07.2018, 14:02 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 1 ±
Замечаний: 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
 
Ответить
СообщениеДобрый день!
Вроде легкий вопрос, но так и не получилось самому сделать рабочий код.
Необходимо сделать заливку ячейки/строки, по значению в ячейке. При записи данных из формы, значение из формы ищется на листе и должна сменится заливка ячейки.
Сделал такой код:
[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:02
_Boroda_ Дата: Среда, 18.07.2018, 14:20 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13700
Репутация: 5587 ±
Замечаний: 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
 
Ответить
Сообщениев первую строку в конец допишите
.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_
Дата добавления - 18.07.2018 в 14:20
sboy Дата: Среда, 18.07.2018, 14:23 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2240
Репутация: 635 ±
Замечаний: 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]


Сообщение отредактировал sboy - Среда, 18.07.2018, 14:27
 
Ответить
СообщениеДобрый день.
[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]

Автор - sboy
Дата добавления - 18.07.2018 в 14:23
Паштет Дата: Среда, 18.07.2018, 14:26 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Спасибо. Всё задуманное заработало.
 
Ответить
СообщениеСпасибо. Всё задуманное заработало.

Автор - Паштет
Дата добавления - 18.07.2018 в 14:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение номера строки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!