Add Application_SwitchReferenceStyle

Question

uom42 opened this issue 4 years ago · comments

Для быстрого изменения стиля нумерации столбцов 1-2-3 / A-B-C и обратно

Public Sub Application_SwitchReferenceStyle()
If (ActiveWindow.Application.ReferenceStyle = xlA1) Then

    ActiveWindow.Application.ReferenceStyle = xlR1C1
Else
    ActiveWindow.Application.ReferenceStyle = xlA1
End If

End Sub