Помогите сделать гонку

[Дима1984]

Добрый день, коллеги.
Прошу помощи в визуализации мотивационной игры среди менеджеров. Во вложении файл с 2 показателями у 9 соревнующихся. Возможно ли сделать, чтобы при заполнении столбца итоговое выполнение двигались наперегонки что-то типа гоночных машинок по шкале выполнения плана?

[AleksandrH]

С помощью условного форматирования - гистограммы - сплошная заливка можна организовать что-то типа псевдо-диаграммы Ганта по выполнению плана

з.і.
Кстати, формула ИТОГО итоговое, как-то смущает. Может лучше сделать её как и для участников deathRace?

[Дима1984]

Сообщение от AleksandrH

С помощью условного форматирования - гистограммы - сплошная заливка можна организовать что-то типа псевдо-диаграммы Ганта по выполнению плана

з.і.
Кстати, формула ИТОГО итоговое, как-то смущает. Может лучше сделать её как и для участников deathRace?

Спасибо. Формулу поправил, не заметил просто. С гистограммой сделал. Отлично, но вот если бы машинки двигались...

[AleksandrH]

такая идея. изменяем размер вашей машинки до ширина=25,49992; высота=16,07031 и перемещаем на один уровень с 14 строкой(Олег), можна в ячейку В14. на лист1 вешаем код

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ActiveSheet.Shapes.Range(Array("Group 4")).Left = 139 + ActiveSheet.Range("H2") * 1000
End Sub

теперь при изменении значения в ячейке Н2, машика будет смещаться вправо.
Настраиваем "путь", у меня ето 1000 для каждого % выполнения
Допиливаем остальных 9 машинок

[Дима1984]

Сообщение от AleksandrH

такая идея. изменяем размер вашей машинки до ширина=25,49992; высота=16,07031 и перемещаем на один уровень с 14 строкой(Олег), можна в ячейку В14. на лист1 вешаем код

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ActiveSheet.Shapes.Range(Array("Group 4")).Left = 139 + ActiveSheet.Range("H2") * 1000
End Sub

теперь при изменении значения в ячейке Н2, машика будет смещаться вправо.
Настраиваем "путь", у меня ето 1000 для каждого % выполнения
Допиливаем остальных 9 машинок

Круто!! Вообще!!!

А допишите, пожалуйста, как для остальных 8 машинок сделать

[AleksandrH]

Ничего сложного. Копируем машинку 8 раз, переименовываем:

   Фигура №1 с названием « Oleg »
   Фигура №2 с названием « Wasilij »
   Фигура №3 с названием « Alsu »
   Фигура №4 с названием « Olesja »
   Фигура №5 с названием « Luiza »
   Фигура №6 с названием « Inna »
   Фигура №7 с названием « Witalij »
   Фигура №8 с названием « Iskander »
   Фигура №9 с названием « Lilia »

и размещаем каждую фигуру напротив "своего" имени
допиливаем код

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ActiveSheet.Shapes.Range(Array("Oleg")).Left = 139 + ActiveSheet.Range("H2") * 100
    ActiveSheet.Shapes.Range(Array("Wasilij")).Left = 139 + ActiveSheet.Range("H3") * 100
    ActiveSheet.Shapes.Range(Array("Alsu")).Left = 139 + ActiveSheet.Range("H4") * 100
    ActiveSheet.Shapes.Range(Array("Olesja")).Left = 139 + ActiveSheet.Range("H5") * 100
    ActiveSheet.Shapes.Range(Array("Luiza")).Left = 139 + ActiveSheet.Range("H6") * 100
    ActiveSheet.Shapes.Range(Array("Inna")).Left = 139 + ActiveSheet.Range("H7") * 100
    ActiveSheet.Shapes.Range(Array("Witalij")).Left = 139 + ActiveSheet.Range("H8") * 100
    ActiveSheet.Shapes.Range(Array("Iskander")).Left = 139 + ActiveSheet.Range("H9") * 100
    ActiveSheet.Shapes.Range(Array("Lilia")).Left = 139 + ActiveSheet.Range("H10") * 100
End Sub

[Дима1984]

Сообщение от Дима1984

Круто!! Вообще!!!

А допишите, пожалуйста, как для остальных 8 машинок сделать

А, все. не надо. Разобрался.

Реально круто. Спасибо огромное

[Дима1984]

Сообщение от AleksandrH

Ничего сложного. Копируем машинку 8 раз, переименовываем:

   Фигура №1 с названием « Oleg »
   Фигура №2 с названием « Wasilij »
   Фигура №3 с названием « Alsu »
   Фигура №4 с названием « Olesja »
   Фигура №5 с названием « Luiza »
   Фигура №6 с названием « Inna »
   Фигура №7 с названием « Witalij »
   Фигура №8 с названием « Iskander »
   Фигура №9 с названием « Lilia »

и размещаем каждую фигуру напротив "своего" имени
допиливаем код

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ActiveSheet.Shapes.Range(Array("Oleg")).Left = 139 + ActiveSheet.Range("H2") * 100
    ActiveSheet.Shapes.Range(Array("Wasilij")).Left = 139 + ActiveSheet.Range("H3") * 100
    ActiveSheet.Shapes.Range(Array("Alsu")).Left = 139 + ActiveSheet.Range("H4") * 100
    ActiveSheet.Shapes.Range(Array("Olesja")).Left = 139 + ActiveSheet.Range("H5") * 100
    ActiveSheet.Shapes.Range(Array("Luiza")).Left = 139 + ActiveSheet.Range("H6") * 100
    ActiveSheet.Shapes.Range(Array("Inna")).Left = 139 + ActiveSheet.Range("H7") * 100
    ActiveSheet.Shapes.Range(Array("Witalij")).Left = 139 + ActiveSheet.Range("H8") * 100
    ActiveSheet.Shapes.Range(Array("Iskander")).Left = 139 + ActiveSheet.Range("H9") * 100
    ActiveSheet.Shapes.Range(Array("Lilia")).Left = 139 + ActiveSheet.Range("H10") * 100
End Sub

Спасибо, огромное. Очень понравилось

[RAN.]

Дима1984, мне вот, разбираться с кодом, и создавать файл, лениво.
А поглядеть - интересно. Но лень тяжельше!
Я не говорю про тех, кому не лениво, а просто не могут.