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

Страницы: 1
Формула для поиска наибольшей позиции и возврата значения заголовка
 
#
05.02.2019 16:38:24
Добрый день необходима помощь в создании логического выражения для определения принадлежности поля к группе уклона.
Мне видиться это так: формула сравнивает диапазон в ячейках справа и возвращает значение шапки из колонки где собственно значение наибольшее.
Группа уклона0-33-55-77>
0-350000
3-520,320,711,71,3
3-513,435,76,80,1
=фурмула000,50
6,215,36,10,9
020,511,50
1,818,200
0000
0000
0000
1824,25,61,8
105000
115,48,600
68,610,40,90
 
Перейти    
Автоматическая отрисовка карты полей, Изменение цвета полилинии в зависимости от значения(культуры) в ротационной таблице
 
#
04.06.2018 19:02:13
Код
Sub color()
For i = 2 To 436
m = Sheets("Ротация").Cells(i, 1).Value
col = 1
y = Sheets("Карта").Cells(3, 23).Value
 For c = 3 To 15
 If Sheets("Карта").Cells(c, 25).Value = Sheets("Ротация").Cells(i, y).Value Then
 col = c
 Else
 End If
 Next c
ActiveSheet.Shapes.Range(Array(m)).Select
   With Selection.ShapeRange.Fill
       .Visible = msoTrue
       .ForeColor.RGB = ActiveSheet.Cells(col, 24).Interior.color
       .Transparency = 0
       .Solid
   End With
Изменено: BGO31rus - 04.06.2018 19:02:51
 
Перейти    
Автоматическая отрисовка карты полей, Изменение цвета полилинии в зависимости от значения(культуры) в ротационной таблице
 
#
04.06.2018 18:34:57
Добрый день, просьба помочь что не так? выбивает ошибку в

Код
Sub color()
For i = 2 To 436
m = Sheets("Ротация").Cells(i, 1).Value
col = 1
 y = Sheets("Карта").Cells(3, 23).Value
  For c = 3 To 15
  If Sheets("Карта").Cells(c, 25).Value = Sheets("Ротация").Cells(i, y).Value Then
  col = c
  Else
  End If
  Next c
[U]ActiveSheet.Shapes.Range(Array(m)).Select[/U]
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = ActiveSheet.Cells(col, 24).Interior.color
        .Transparency = 0
        .Solid
    End With

Next i
End Sub

https://yadi.sk/d/FE3b5XSm3X5Tvi ссылка на файл  
Изменено: Григорий Борисенко - 04.06.2018 19:07:55
 
Перейти    
Автоматическая отрисовка карты полей, Изменение цвета полилинии в зависимости от значения(культуры) в ротационной таблице
 
#
02.06.2018 11:01:12
https://yadi.sk/d/a7UFeuka3WsbuL - ссылка на файл

Логика макроса

1. Сличает имя полилинии с 1го листа с именем в столбце А
2. Изменяет цвет полилинии в зависимости от значения в столбцах  G H I J K L M (на листе карта должна быть возможность выбора года), при значении озимая пшеница - желтый, сахарная свекла - зеленый и.т.д. (логика зависимостей привязана к листу карта)

Макрос должен работать при изменении значений, как и в листе ротация так и в листе карта. (либо при добавлении строк и полилиний).
 
Перейти    
Изменение цвета картинок в зависимости от данных в ячейке
 
#
15.11.2017 15:52:19
Уровень пользователя экселем - немного разбираюсь в формулах, могли бы вы сделать пример на базе того что я скинул?
 
Перейти    
Изменение цвета картинок в зависимости от данных в ячейке
 
#
15.11.2017 14:25:16
Собственно по сабжу, работаю Агрономом по специфике профессии есть необходимость в постоянной корректировке ротационных таблиц полей севооборота. Интересует возможность автоматизации данного процесса в части изменения цвета полей(картинок) в зависимости от данных в колонке.  
 
Перейти    
Страницы: 1
Наверх