Используя формулу, измените ориентацию ячейки, если другая ячейка соответствует критерию

Question

Существует ли формула для изменения ориентации ячейки? Все учебники / веб-страницы, которые я искал, показывают только, как изменить ориентацию, используя вкладку ориентации. Я пытаюсь избежать использования кода VBA. Итак, кто-нибудь может предложить, если есть способ изменить ориентацию ячейки на 180 градусов, используя формулу / функции.

Обратите внимание, я пробовал Transpose, но он не работает за пределами 90 градусов. Это не приведет к повороту на 180 градусов, который я ищу. Я также попытался переместить транспонированную ячейку, но она вернула бы ее обратно в исходное положение. Итак, у меня сейчас нет идей.

Заранее благодарен.

Объяснение .gif: Моя цель - повернуть картинки транспортных средств на 180 градусов, когда я выбираю Contraflow для Да. И когда это Нет, он должен вернуться к тому, что он есть.

Answer 1

Я знаю, что вы сказали, что хотите избежать VBA, но другого пути нет. Если вы хотите активно изменить форматирование ячейки, макросы (подпрограммы) являются единственным способом. Формулы Excel не могут изменять форматирование, как правило, только содержимое ячейки.

Если вы хотите попробовать VBA, вот код, который вы должны использовать:

Щелкните правой кнопкой мыши на вкладке рабочего листа (Стандартный Driving Scenar ios) и вставьте следующий код:

Private Sub Worksheet_change(ByVal target As Excel.Range)
    Dim switchColumn  As Integer
    Dim vehicleColumnFirst As Integer
    Dim vehicleColumnLast As Integer

    switchColumn = 12
    vehicleColumnFirst = 36
    vehicleColumnLast = 39

    If target.Column = 12 Then
        If target.Value = "Yes" Then
            Range(Cells(target.Row, vehicleColumnFirst), Cells(target.Row, vehicleColumnLast)).Orientation = 90
        ElseIf target.Value = "No" Then
            Range(Cells(target.Row, vehicleColumnFirst), Cells(target.Row, vehicleColumnLast)).Orientation = -90
        End If
    End If
End Sub

Не стесняйтесь спрашивать, если у вас есть какие-либо вопросы.