Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
yl3d
3 / 3 / 1
Регистрация: 28.09.2015
Сообщений: 271
1

Определение координат всех ячеек имеющих красный цвет

11.07.2017, 13:40. Просмотров 900. Ответов 3
Метки нет (Все метки)

Здравствуйте форумчане.
Помогите разобраться с проблемой.

На листе есть несколько цветных ячеек - желтые, синие и красные.
В диапазоне M7:N33 - находится таблица (с заголовками X и Y)

Как макросом, при нажатии на кнопку - выписать в таблицу (X и Y) - координаты всех ячеек, имеющих красный цвет?
(Под координатами имеются ввиду численные координаты Листа)
0
Вложения
Тип файла: xls 45675.xls (29.5 Кб, 4 просмотров)
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.07.2017, 13:40
Ответы с готовыми решениями:

В выделенном диапазоне ячеек поменять цвет заливки всех ячеек с числами
лабараторная 6 Задание 1. Напишите код программы, которая бы закрывала без сохранения изменений...

Как осуществить поиск всех ячеек из столбца и поменять цвет?
у меня есть key.xls в нем один столбец заполнен номерами и есть main.xls в котором в неизместном...

Определение координат центров ячеек из столбцов, текст которых - вписан в заголовки столбцов
Добрый вечер, специалисты по эксель. Помогите решить вопрос. На листе несколько столбцов с...

Определение всех гео координат в радиусе
Всем добрый день! Задали тут мне задачку: есть гео координаты в формате 55.755831, 37.617673...

При нажатии на radiobutton3 цвет у label становится зеленым, если выбраны другие кнопки, цвет красный
При нажатии на radiobutton3 цвет у label становится зеленым, еси выбраны другие кнопки, цвет...

3
OLEGOFF
994 / 456 / 115
Регистрация: 27.02.2013
Сообщений: 1,323
11.07.2017, 14:34 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Color()
 
 Dim c As Range
 Dim target As Range
 
 Range(Cells(7, 13), Cells(100, 14)).ClearContents
 
 Set target = Selection
 i = 7
        For Each c In target
           If c.Interior.Color = 255 Then
           Cells(i, 13).Value = c.Row
           Cells(i, 14).Value = c.Column
           i = i + 1
           End If
        Next c
End Sub
1
SoftIce
es geht mir gut
11189 / 4612 / 1161
Регистрация: 27.07.2011
Сообщений: 11,313
Завершенные тесты: 1
11.07.2017, 14:43 3
Лучший ответ Сообщение было отмечено yl3d как решение

Решение

Цитата Сообщение от yl3d Посмотреть сообщение
(X и Y) - координаты
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub FindRed()
    Dim c As Range, k As Integer
    k = 6
    For Each c In Range("B1:I40")
      If c.Interior.Color = 255 Then
          k = k + 1
          Cells(k, 13) = c.Cells.Left
          Cells(k, 14) = c.Cells.Top
      End If
    Next c
End Sub
1
yl3d
3 / 3 / 1
Регистрация: 28.09.2015
Сообщений: 271
11.07.2017, 18:22  [ТС] 4
SoftIce , спасибо.
Все работает.
0
11.07.2017, 18:22
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.07.2017, 18:22

Как при загрузке формы задать цвет шрифта ячеек DGV для "да" - зеленый, для "нет" - красный
Всем привет, подскажите как реализовать следующую задачу: DGV заполняется из файла exl В...

Откуда красный цвет?
В процедуре DrawRect специально меняю цвет, так он все равно рисует прямоугольник красным! Проверил...

не печатает красный цвет
canon ip2700 не печатает красным


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.