Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » novik90
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Работа с найденной ячейкой в цикле, Не могу в найденной ячейке написать текст или закрасить ее
 
#
07.12.2015 23:23:21
gling, Спасибо!
Как все банально оказалось row и column =(
извиняюсь за невнимательность!
 
Перейти    
Работа с найденной ячейкой в цикле, Не могу в найденной ячейке написать текст или закрасить ее
 
#
07.12.2015 23:16:13
Цитата
a_s_p написал:
1. jCells.Address
2. jCells.Interior.Color = QBColor(14)
В этом случае выделятся цветом ячейки в столбце B
После выполнения программы в итоге должны выделиться ячейки D5 и E6
 
Перейти    
Работа с найденной ячейкой в цикле, Не могу в найденной ячейке написать текст или закрасить ее
 
#
07.12.2015 23:13:11
Не получается получить адрес ячейки.
В файле цикл for находит значения выделенные красным.
мне надо получить адреса ячеек на пересечении желтых линий.
 
Перейти    
Работа с найденной ячейкой в цикле, Не могу в найденной ячейке написать текст или закрасить ее
 
#
07.12.2015 23:03:55
Может есть намного проще вариант, но в темах не нашел.
В общем задача:
1. Если в массиве D4:T4 есть совпадение с ячейкой B5 (допустим совпали B5 и G4) то ячейку G5 надо закрасить.
След.Шаг
2. Если в массиве D4:T4 есть совпадение с ячейкой B6 (допустим совпали B6 и D4) то ячейку D6 надо закрасить.
и.т.д. пока не пройдет весь столбец.
 
Перейти    
Работа с найденной ячейкой в цикле, Не могу в найденной ячейке написать текст или закрасить ее
 
#
07.12.2015 22:56:06
1. Получить адрес ячейки
2. Закрасить ячейку ColorIndex = 14
 
Перейти    
Работа с найденной ячейкой в цикле, Не могу в найденной ячейке написать текст или закрасить ее
 
#
07.12.2015 22:50:39
Добрый день/ночь всем!
Не могу сообразить как сделать.
Есть: "код" который ищет одинаковые значения в строке и столбце.
Нужно: например в приложенном файле найдена ячейка на пересечении строки "6" и столбца "E" так как iCells и jCells равны (ячейка E6). Нужно с этой ячейкой работать, например закрасить ее, или вписать что-то.
Код
Sub runPrg()
    Dim jCells As Range
    Dim iCells As Range
    For Each jCells In Range("B5:B7")
        For Each iCells In Range("D4:E4")
            If jCells = iCells Then
                ....тут что то надо сделать с ячейкой... Я пока вставил "MsgBox iCells"
            Else
            End If
        Next iCells
    Next jCells
End Sub


P.S. Я знаю что я не писатель, так что говорите пожалуйста что не понятно, попробую объяснить.
Изменено: novik90 - 07.12.2015 22:52:50
 
Перейти    
Страницы: 1
Наверх